function connect...
4ert © (2006-12-21 06:24:00)
Есть вот такая функция:
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:00) [1]
1) После создания перевести гнездо в неблок.режим, см.
IoCtlSocket(FIONBIO) и select()
Можно так же задействовать и неблок.режим с асинхронными
нотификациями, см. WSAAsyncSelect, WSAEventSelect,
WSAEnumNetworkEvents, WSAWaitForMultipleobjects
2) Вынести блокирующие участки кода в доп.поток
Наверх 
ЧАТ |
Орешник |
|
