[Bargest]

Че-то я туплю... Как на WinAPI по-нормальному проверить со стороны сервера, подключен ли клиент?
Пока ничего не придумал лучше, чем

Код:

isize:=send(s,buf,buflen,0);

и если isize=-1 значит ошибка... однако ошибка будет и в случае, если например переполнен буфер клиента.
Или хоть как получить для send код ошибки?

[NumLock]

The Windows Sockets select function determines the status of one or more sockets, waiting if necessary.
int select (
int nfds,
fd_set FAR * readfds,
fd_set FAR * writefds,
fd_set FAR * exceptfds,
const struct timeval FAR * timeout
);

Parameters

nfds
[in] This argument is ignored and included only for the sake of compatibility.

readfds
[in/out] An optional pointer to a set of sockets to be checked for readability.

writefds
[in/out] An optional pointer to a set of sockets to be checked for writability

exceptfds
[in/out] An optional pointer to a set of sockets to be checked for errors.

timeout
[in] The maximum time for select to wait, or NULL for blocking operation.

что-то типа этого:

Код:

procedure check(ASocket: TSocket; ATimeOutWrite: Integer);
var
  ErrorCode: Integer;
  FDSet: TFDSet;
  TimeVal: TTimeVal;
begin
  if ASocket=INVALID_SOCKET then
    raise Exception.Create('invalid socket');
  FD_ZERO(FDSet);
  FD_SET(ASocket, FDSet);
  TimeVal.tv_sec:=ATimeOutWrite div 1000;
  TimeVal.tv_usec:=(ATimeOutWrite mod 1000)*1000;
  select(0, nil, @FDSet, nil, @TimeVal);
  if not FD_ISSET(ASocket, FDSet) then
    raise Exception.Create('exception');
end;

[Bargest]

Спасибо вам!

[Bargest]

Я немного изменил функцию, чтобы она возвращала мне True или False.

Код:

function CheckSock(ASocket: TSocket; ATimeOutWrite: integer): boolean;
var
  ErrorCode: integer;
  FDSet: TFDSet;
  TimeVal: TTimeVal;
begin
  result := false;
  if ASocket = INVALID_SOCKET then
    raise Exception.Create('invalid socket');
  FD_ZERO(FDSet);
  FD_SET(ASocket, FDSet);
  TimeVal.tv_sec := ATimeOutWrite div 1000;
  TimeVal.tv_usec := (ATimeOutWrite mod 1000) * 1000;
  select(0, nil, @FDSet, nil, @TimeVal);
  if FD_ISSET(ASocket, FDSet) then
    result := true;
end;

Однако почему-то мне всегда возвращается TRUE, даже при отключенном клиенте.
В чем ошибка?

[Bargest]

Поднимаю тему снова...

[Bargest]

Ап Ап Ап Ап Ап