- fixed ticket [cbcbb3b2fc] about PtrInt definition
  - fixed ticket [91f8f3ec6f] about error retrieving unknown headers
  - fixed ticket [f79ff5714b] about potential finalization issues as .bpl in IDE
  - fixed ticket [2d53fc43e3] about unneeded port 80
  - fixed ticket [11b327bd77] about TCrtSocket not working with Delphi 2009+
  - fixed ticket [0f6ecdaf55] for better compatibility with HTTP/1.1 cache
  - fixed ticket [814f6bd65a] about missing OnHttpThreadStart in CreateClone

  - fixed potential Access Violation error at THttpServerResp shutdown
  - removed several compilation hints when assertions are set to off
  - added aRegisterURI optional parameter to THttpApiServer.AddUrl() method

}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
................................................................................
  end;
  EHttpApiServer.RaiseOnError(hQueryRequestQueueProperty,
    Http.QueryRequestQueueProperty(fReqQueue,HttpServerQueueLengthProperty,
      @Result, sizeof(Result), 0, @returnLength, nil));
end;

procedure THttpApiServer.SetHTTPQueueLength(aValue: Cardinal);
var i: integer;
begin
  if Http.Version.MajorVersion<2 then
    raise EHttpApiServer.Create(hSetRequestQueueProperty,ERROR_OLD_WIN_VERSION);
  if (self=nil) or (fReqQueue=0) then
    exit;
  EHttpApiServer.RaiseOnError(hSetRequestQueueProperty,
    Http.SetRequestQueueProperty(fReqQueue,HttpServerQueueLengthProperty,
      @aValue, sizeof(aValue), 0, nil));
  if fClones<>nil then
    for i := 0 to fClones.Count-1 do
      THttpApiServer(fClones.List{$ifdef FPC}^{$endif}[i]).SetHTTPQueueLength(aValue);
end;


{ HTTP_RESPONSE }

procedure HTTP_RESPONSE.SetContent(var DataChunk: HTTP_DATA_CHUNK_INMEMORY;
  const Content, ContentType: RawByteString);

  - fixed ticket [cbcbb3b2fc] about PtrInt definition
  - fixed ticket [91f8f3ec6f] about error retrieving unknown headers
  - fixed ticket [f79ff5714b] about potential finalization issues as .bpl in IDE
  - fixed ticket [2d53fc43e3] about unneeded port 80
  - fixed ticket [11b327bd77] about TCrtSocket not working with Delphi 2009+
  - fixed ticket [0f6ecdaf55] for better compatibility with HTTP/1.1 cache
  - fixed ticket [814f6bd65a] about missing OnHttpThreadStart in CreateClone
  - fixed ticket [51a9c086f3] about THttpApiServer.SetHTTPQueueLength()
  - fixed potential Access Violation error at THttpServerResp shutdown
  - removed several compilation hints when assertions are set to off
  - added aRegisterURI optional parameter to THttpApiServer.AddUrl() method

}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
................................................................................
  end;
  EHttpApiServer.RaiseOnError(hQueryRequestQueueProperty,
    Http.QueryRequestQueueProperty(fReqQueue,HttpServerQueueLengthProperty,
      @Result, sizeof(Result), 0, @returnLength, nil));
end;

procedure THttpApiServer.SetHTTPQueueLength(aValue: Cardinal);

begin
  if Http.Version.MajorVersion<2 then
    raise EHttpApiServer.Create(hSetRequestQueueProperty,ERROR_OLD_WIN_VERSION);
  if (self<>nil) and (fReqQueue<>0) then

    EHttpApiServer.RaiseOnError(hSetRequestQueueProperty,
      Http.SetRequestQueueProperty(fReqQueue,HttpServerQueueLengthProperty,
        @aValue, sizeof(aValue), 0, nil));



end;


{ HTTP_RESPONSE }

procedure HTTP_RESPONSE.SetContent(var DataChunk: HTTP_DATA_CHUNK_INMEMORY;
  const Content, ContentType: RawByteString);