[Seattle] THttpClient - Abbruch im ReceiveData Event

[Sir Rufo]

Zitat von Union:

Hast Du es mal alternativ hiermit versucht?

Jupp, das Verhalten bleibt aber gleich

Delphi-Quellcode:

{$DEFINE USE_REQUEST_VERSION}

procedure TForm1.ImageLoaderDoWorkEvent( Sender: TObject; e: TDoWorkEventArgs );
var
  url     : string;
  http    : THttpClient;
  response: IHTTPResponse;
{$IFDEF USE_REQUEST_VERSION}
  request: IHTTPRequest;
{$ENDIF}
begin
  url := e.Argument.AsString;

  http := THttpClient.Create;
  try
{$IFDEF USE_REQUEST_VERSION}
    request               := http.GetRequest( sHTTPMethodGet, url );
    request.OnReceiveData := ImageLoaderHttpCLientReceiveDataEvent;
    response              := http.Execute( request );
{$ELSE}
    http.OnReceiveData := ImageLoaderHttpCLientReceiveDataEvent;
    response           := http.Get( url );
{$ENDIF}
    e.Result := TValue.From( response );
  finally
    http.Free;
  end;
end;

Was aber auch zu erwarten war, denn THttpClient.Get macht intern exakt das.