Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c