Таймат у Synapse

[leonidus]

Есть код для загрузки большого архива через синапс:

var
fHTTP:THttpSend;
t:ttime;
s:string;
ms:TmemoryStream;
begin
ms:=TmemoryStream.Create;
label2.Caption:=timetostr(Now);
fHTTP:=THttpSend.Create;
HttpGetBinary('...test.zip', ms);
ms.SaveToFile('file.zip');
ms.Free;
fHTTP.Free;
label4.Caption:=timetostr(Now);

Закачка у меня осуществляется порядка 10 секунд и все это время програма висит, что на данный момент меня пока устраивает. Если в ходе закачки оборвать связь с инетом, программа может висеть несколько минут пока связь не возобновитсья. После возобновления получаю файл целым как и положено. Однако теперь мне нужно как-то реализовать таймаут. Если в течение N секунд ничего не получаем - продолжаем работу программы и она не зависает так надолго.

Пробовал так
fHTTP.Sock.SocksTimeout:=2000;
и так
fHTTP.Timeout:=2000;

бесполезно. Подскажите кто с талкивался с подобной проблемой?

[Bright-rider]

Вынеси в отдельный поток загрузку архива и форма не будет подвисать.

[Santino]

Посмотри свойства KeepAlive и KeepAliveTimeout

{:If @true (default value), keepalives in HTTP protocol 1.1 is enabled.}
property KeepAlive: Boolean read FKeepAlive Write FKeepAlive;

{:Define timeout for keepalives in seconds!}
property KeepAliveTimeout: integer read FKeepAliveTimeout Write FKeepAliveTimeout;