Delphi FireMonkey Indy TIdHttp как отменить?

Question

Я использую Delphi 10.1 Berlin update и компонент TIdHttp от Indy. я обычно прервать соединение, используя следующий код:

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

Это прекрасно работает в приложении VCL, а также в FireMonkey приложения до тех пор, платформа является Windows. Когда я использую этот код с MacOS в качестве цели, он мгновенно закрывает мое приложение без сообщения об ошибке или чего-либо другого.

Итак, мой вопрос в том, что я делаю неправильно, и как я могу прервать соединение, когда платформа MacOS?

Answer 1

попробовать так:

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

Answer 2

Вместо затем вызвать Disconnect() непосредственно и разорвать подключение к сокету от TIdHTTP, я бы вызвать исключение вместо этого, как вызов SysUtils.Abort(), и пусть TIdHTTP или вызывающий поток закрыть сокет после того, как запрос был полностью прерван.