| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

InternetSetOption [D5, Win2k]

Архитектор ©   (2004-12-14 11:10:00) 

Почему в этом коде не срабатывает 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:00) [1]

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

---

Наверх