使用http獲取請求終止的線程終止

Question

我在線程內部有此代碼，並且當我調用終止時，如果它不在http請求的中間，它會很快終止，但是當我有20個線程時，需要時間來完成http請求並退出線程。 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; 

如何停止從主要形式是HTTP請求：

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

感謝

編輯：終端代碼：

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

    end; 

Answer 1

調用THttpSend.Abort()方法停止正在進行的轉移。你可以做的是，在THttpSend.OnStatus事件，如：

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;