Delphi FireMonkey Indy TIdHttp wie abbrechen?

Question

Ich verwende Delphi 10.1 Berlin Update und Indys TIdHttp-Komponente. ich abbrechen in der Regel eine Verbindung mit dem folgenden Code:

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

Dies in einer VCL-Anwendung funktioniert gut, auch in einer Anwendung Firemonkey, so lange die Windows-Plattform ist. Wenn ich diesen Code mit MacOS als Ziel verwende, schließe ich meine Anwendung sofort ohne Fehlermeldung oder irgendetwas angezeigt.

Also meine Frage hier ist, was mache ich falsch, und wie kann ich eine Verbindung abbrechen, wenn die Plattform MacOS ist?

Answer 1

versuchen wie folgt aus:

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

Answer 2

Vielmehr Disconnect() dann direkt anrufen und die Socket-Verbindung weg von TIdHTTP reißen, würde ich eine Ausnahme statt erhöhen, wie SysUtils.Abort() Aufruf und lassen TIdHTTP oder der aufrufende Thread die Buchse schließen nachdem die Anfrage vollständig abgebrochen wurde.

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;