InternetSetOption

← →
Архитектор (2004-12-14 11:10) [0]

Почему в этом коде не срабатывает timeout?
Помогите, пожалуйста.

var
hNet,hFTP:Pointer;
t:integer;
dt:TDateTime;
begin
hNet:=InternetOpen("Program_Name",
INTERNET_OPEN_TYPE_PRECONFIG,
nil,nil,0);
t:=1000; // установил timeout = 1 секунду
InternetSetOption(hNet,INTERNET_OPTION_CONNECT_TIMEOUT,
@t,sizeof(t));
dt:=Time;
hFTP:=InternetConnect(hNet,PChar(ftpHost),ftpPort,PChar(ftpUser),
PChar(ftpPass),INTERNET_SERVICE_FTP,0,0);
showmessage(inttostr(MilliSecondsBetween(Time,dt)));
// выводит больше 3 секунд (???)

InternetCloseHandle(hFTP);
InternetCloseHandle(hNet);
end;

← →
Delphi5.01 © (2004-12-14 12:02) [1]

A men kajetsa eto problema vnutrennaia. Ne zra mi v windows rabotem.

InternetSetOption Найти похожие ветки