Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.14;
Скачать: CL | DM;

Вниз

function connect...   Найти похожие ветки 

 
4ert   (2006-12-21 06:24) [0]

Есть вот такая функция:

function CallServer(Server:string; Port:word):integer;
var
 SockAddr:TSockAddr;
begin
 Result:=socket(Internet,Stream,0);
 if Result=-1 then exit;
 FillChar(SockAddr,SizeOf(SockAddr),0);
 SockAddr.Family:=Internet;
 SockAddr.Port:=swap(Port);
 SockAddr.Addr:=HostToLong(Server);
 if Connect(Result,SockAddr,SizeOf(SockAddr))<>0 then begin
  Disconnect(Result);
  Result:=-1;
 end;
end;

Что в ней плохо, так это то, что если сервер не доступен, аль тупорылит, то приходится ждать очень много при полном зависании программы, хотелось бы узнать у более осведомленных людей две вещи:
1) Как бы сделать так, что подключаясь ждали какое-нить определённое время(скажем 3 секунды), и если за это время не удалось подключится, то забиваем на эт дело и выходим из функции... Эт вообще возможно?
2)Как избавиься от подвисания проги во время её попытки конекта?

Заранее спасибо!!!


 
Сергей М. ©   (2006-12-21 08:13) [1]

1) После создания перевести гнездо в неблок.режим, см. IoCtlSocket(FIONBIO) и select()
Можно так же задействовать и неблок.режим с асинхронными нотификациями, см. WSAAsyncSelect, WSAEventSelect, WSAEnumNetworkEvents, WSAWaitForMultipleobjects

2) Вынести блокирующие участки кода в доп.поток



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

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

Наверх




Память: 0.46 MB
Время: 0.048 c
3-1161686398
Sergey_b
2006-10-24 14:39
2007.01.14
Запросы


15-1166630309
vidiv
2006-12-20 18:58
2007.01.14
борьба со спамом. идея 2.


10-1127993555
BPK
2005-09-29 15:32
2007.01.14
TOLEContainer + MSWord = сохранить в память как HTML


15-1166454093
DillerXX
2006-12-18 18:01
2007.01.14
Вопрос по 2м шахматным позициям


15-1166977326
Yegorchic
2006-12-24 19:22
2007.01.14
При включении ADSL модема сигнал в трубке затихает