Thread-Kündigung mit http Get-Anfrage beenden

Question

Ich habe diesen Code innerhalb Thread und wenn ich terminieren, beendet es schnell, wenn es nicht in der Mitte der http-Anfrage ist, aber wenn ich 20 Threads habe, dauert es Zeit, http-Anfrage beenden und beenden der Faden. Code:

procedure TParser.Execute; 
var 

    i,b:integer; 
    t:string; 
    begin 
http := thttpsend.create; 
http.KeepAlive:=true; 
Ftest:=TStringList.Create; 
{http.timeout:=5000;} 
for i:=0 to FStartNum.Count do 

if FLocalVariable<FStartNum.Count-FThreadCount then 
begin 
if terminated then begin 
exit; 
end 
else 

EnterCriticalSection(Form1.StringSection); 
try 



FLocalVariable := form1.GlobalVariable; 
Inc(FLocalVariable); 
form1.GlobalVariable := FLocalVariable; 


finally 

LeaveCriticalSection(Form1.StringSection); 
http.Clear; 

HTTP.HTTPMethod('GET',FStartNum.Strings[FLocalVariable]); 
     Ftest.LoadFromStream(HTTP.Document); 

     Synchronize(progress); 
parse; 
Ftest.Clear; 

end; 
end; 
end; 

Wie komme ich vom Hauptformular diese HTTP-Anforderung zu stoppen:

HTTP.HTTPMethod('GET',FStartNum.Strings[FLocalVariable]); 
      Ftest.LoadFromStream(HTTP.Document); 

Dank

Edit: Termination Code:

for i:=Low(fparser) to High(fparser) do 
    begin 
    Fparser[i].Terminate(); 

    end; 

Answer 1

Rufen Sie die THttpSend.Abort() Methode Stoppen Sie eine Übertragung, die gerade ausgeführt wird. Sie können das tun in dem THttpSend.OnStatus Ereignis, zB:

procedure TParser.Execute; 
var 
    ... 
begin 
    http := THttpSend.Create; 
    http.OnStatus := HttpStatus; 
    ... 
end; 

procedure TParser.HttpStatus(Sender: TObject; Reason: THookSocketReason; const Value: String); 
begin 
    if Terminated then Http.Abort; 
end;