Indy+Proxy=Отвал потока
Что-то сегодня всё спрашивают про потоки и всё с ними связанное.
Сегодня всемирный день Threads?
Но раз на то пошло задам и я вопрос.
Пытаюсь разобраться какого хрена иногда валятся потоки при юзании прокси.
То-есть просто при запросе поток падает и всё.
Пример:
Код:
procedure TVoteThread.Execute;
var text:string;
begin
{--//--}
FState := shReady;
Synchronize(Start);
FResult := 2;
{Создаём компоненты}
{}
FH := TidHTTP.Create;
FS := TIdIOHandlerStack.Create;
{--//--}
HTTPParms:=TStringList.Create;
StreamParms := TStringStream.Create;
{--//--}
FH.IOHandler := FS;
if FProxyTag=0 then FH.IOHandler := FS.MakeDefaultIOHandler(FH);
if (FProxyTag=1) or (FProxyTag=2) then
begin
SI := TIdSocksInfo.Create;
SSL := TidSSLioHandlerSocketOpenSSL.create;
SSL.SSLOptions.Method := sslvtlsv1;
SSL.Port := 443;
FH.IOHandler := SSL;
end;
FH.HandleRedirects := true;
FH.HTTPOptions := [];
FH.ReadTimeout := FTimeOut * 1000;
FH.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7';
FH.Request.Accept := 'text/html, */*';
FH.Request.Connection := 'Keep-Alive';
FH.Request.AcceptEncoding := 'identity';
if FProxyTag=0 then
begin
FH.ProxyParams.ProxyServer := FProxyHost;
if not (FProxyPort='') then FH.ProxyParams.ProxyPort := strtoint(FProxyPort);
if not (FProxyUserName='') then FH.ProxyParams.ProxyUsername := FProxyUserName;
if not (FProxyPassword='') then FH.ProxyParams.ProxyPassword := FProxyPassword;
end;
if (FProxyTag=1) or (FProxyTag=2) then
begin
SI.Authentication := sanoAuthentication;
SI.Host := FProxyHost;
if not (FProxyPort='') then SI.Port := strtoint(FProxyPort);
SI.Username := FProxyUserName;
SI.Password := FProxyPassword;
if FProxyTag=1 then SI.Version := svSocks4;
if FProxyTag=2 then SI.Version := svSocks5;
if not (FProxyUserName='') then SI.Authentication := saUsernamePassword;
SSL.Transparentproxy := SI;
end;
{Основное выполнение потока}
try
try
text:=FH.GET('http://');
except
FResult := 2;
end;
FState := shComplete;
Synchronize(Complete);
finally
ReleaseThread(Self);
end;
end;
|
