Delphi FireMonkey Indy TIdHttp 如何中止？

Question

I am using Delphi 10.1 Berlin update and Indy's TIdHttp component. I usually abort a connection using the following code:

procedure TMyThread.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: int64);
begin
    if abort then (asender as tidhttp).Disconnect;
end;

This works fine in a VCL application, also in a FireMonkey application as long the platform is Windows. When I use this code with MacOS as target, it close my application instantly without error message or anything displayed.

So my question here is what am I doing wrong, and how can I abort a connection when the platform is MacOS?

Answer 1

Rather then call Disconnect() directly and rip the socket connection away from TIdHTTP , I would raise an exception instead, like calling SysUtils.Abort() , and let TIdHTTP or the calling thread close the socket after the request has been fully aborted.

procedure TMyThread.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: int64);
begin
  if Self.Abort then SysUtils.Abort;
end;

procedure TMyThread.Execute;
var
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create;
  try
    ...
  finally
    HTTP.Free;
  end;
end;

Answer 2

try like this :

procedure TMyThread.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: int64);
begin
  try  
    if abort then (asender as tidhttp).Disconnect;
  except
  end;
end;

Answer 3

procedure TMyThread.Execute;
var
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create;
  try
    try
     ...
    except
      on E:Exception do ...//do not re-raise it.
    end
  finally
    HTTP.Free;
  end;
end;

Try catching the thread exception.