Цитата:
Сообщение от Argot
советаю почитать о Select ))
и подумать о применении функции ))
Код:
function WaitForData(Socket:TSocket,Timeout: Longint): Boolean;
var
FDSet: TFDSet;
TimeVal: TTimeVal;
begin
TimeVal.tv_sec := Timeout div 1000;
TimeVal.tv_usec := (Timeout mod 1000) * 1000;
FD_ZERO(FDSet);
FD_SET(Socket, FDSet);
Result := select(0, @FDSet, nil, nil, @TimeVal) > 0;
end;
|
мм занятно, надо подробнее почитать еще раз, пока времени не густо