VPF::Ошибка WSAENOTSOCK при вызове select - Форум программистов

Чучмек

Дата 12.3.2011, 17:23 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

Вызов select в некоторых случаях завершается c ошибкой WSAENOTSOCK.
Использую select для проверки готовности соединения.
Ошибка вознекает "через раз". В чем может быть причина?
Спасибо...

Код


...
...
...
s:=socket(af_inet,SOCK_STREAM, IPPROTO_TCP);
Len:=1;
ioctlsocket(s,FIONBIO,Len);
connect(s,adres_name,sizeof(tsockaddr));
FD_ZERO(wFD);
FD_ZERO(eFD);
FD_SET(s,wFD);
FD_SET(s,eFD);
if -1=select(0,nil,@wFD,@eFD,nil) then
    begin
    err:=WSAGetLastError;    
    end;
...
...
...

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Чучмек

Дата 12.3.2011, 17:56 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

Все, проблема решена.
WSAENOTSOCK это и есть НЭТСОКЭТ.
Просто после модификации кода не доглядел куда перставил Label.
Получилось

Код


procedure TMyThread.execute;
var ...;
label statr;
begin
...
s:=socket(af_inet,SOCK_STREAM, IPPROTO_TCP);
...
start:
connect(s,adres_name,sizeof(tsockaddr));
...
suspend;
goto start;
end;

Вместо

Код


procedure TMyThread.execute;
var ...;
label statr;
begin
...
start:
s:=socket(af_inet,SOCK_STREAM, IPPROTO_TCP);
...
connect(s,adres_name,sizeof(tsockaddr));
...
suspend;
goto start;
end;

Изв...

Это сообщение отредактировал(а) Чучмек - 12.3.2011, 17:57

--------------------

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »