VPF::winsock, WSAAsyncSelect + connect = WSAENOTSOCK - Форум программистов

Digitalator

Дата 23.3.2006, 00:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Здраствуйте.
Пишу такой код, в результате ловлю ошибку WSAENOTSOCK, т.е. передан НЕ хендл сокета. А это хендл, и если убрать вызов WSAAsyncSelect, ошибки не возникает. Почему так происходит?

Код


      SocketHandle := winsock.Socket(AF_Inet, Sock_Stream, IPProto_TCP);
      Addr.sin_family:=AF_Inet;
      Addr.sin_addr.S_addr:=Inet_Addr( pansichar(FIP) );
      Addr.sin_port:=HToNS(FPort);
      FillChar(Addr.sin_zero,SizeOf(Addr.sin_zero),0);
        code := WSAAsyncSelect(socketHandle, sockWindow, FMSG, cEvents);
         if code = 0 then Connect(socketHandle,Addr,SizeOf(TSockAddr)); //Ошибка на этой строчке
         if code = 0 then
              begin
              ...
              result := true
              end else begin
              FErrorCode := WSAGetLastError;
              //Здесь 10038 WSAENOTSOCK
              result := false;
              end

PS.
WSAStartUP($0101,WSAData)
сделан в секции initialization модуля

Это сообщение отредактировал(а) Digitalator - 23.3.2006, 00:24

Rouse_

Дата 23.3.2006, 16:22 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 18
Всего: 29

Что-то типа такого должно быть:

Код


function TGSCustomClientSocket.Initialize: Integer;
var
  Err: Integer;
  InAddr: u_long;
  Host: PHostEnt;
begin
  Result := SOCKET_ERROR;
  if GetActive then Exit;
  FHandle := AllocateHWnd(GSocketWndProc);
  if WSAStartup($202, FWSAData) <> 0 then
  begin
    Error(WSAGetLastError, 'TGSCustomClientSocket.Initialize -> WSAStartup');
    Exit;
  end;
  try
    FSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
    if FSocket = INVALID_SOCKET then
    begin
      Error(WSAGetLastError, 'TGSCustomClientSocket.Initialize -> FSocket = INVALID_SOCKET');
      Exit;
    end;

    InAddr := inet_addr(PChar(FAddress));
    if InAddr = INADDR_NONE then
    begin
      Host := gethostbyname(PChar(FAddress));
      if not Assigned(Host) then
      begin
        Error(WSAGetLastError, 'TGSCustomClientSocket.Initialize -> Host := gethostbyname [Host = nil]');
        Exit;
      end;
      InAddr := PInAddr(Host.h_addr_list^)^.S_addr;
    end;

    with FSockAddr do
    begin
      sin_addr.S_addr := InAddr;
      sin_port := htons(FPort);
      sin_family := AF_INET;
    end;
    if WSAAsyncSelect(FSocket, FHandle, SOCKET_NOTIFY_MSG,
      FD_CONNECT or FD_READ or FD_WRITE or FD_CLOSE) = SOCKET_ERROR then
    begin
      Error(WSAGetLastError, 'TGSCustomClientSocket.Initialize -> WSAAsyncSelect = SOCKET_ERROR');
      Exit;
    end;
    AddState(gsConnecting);
    if Assigned(FConnecting) then FConnecting(Self);
    if connect(FSocket, FSockAddr, SizeOf(FSockAddr)) = SOCKET_ERROR then
    begin
      Err := WSAGetLastError;
      if Err <> WSAEWOULDBLOCK then
      begin
        Error(Err, 'TGSCustomClientSocket.Initialize -> Err <> WSAEWOULDBLOCK');
        SetActive(False);
        Exit;
      end;
    end;
    Result := 0;
  except
    if FSocket <> INVALID_SOCKET then
      closesocket(FSocket);
    WSACleanup;
  end;
end;

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

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Digitalator

Дата 24.3.2006, 17:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

Что-то типа такого должно быть:

найди хотябы одно принципиальное отличие в коде

PS. Всем спасибо, ошибку нашел. Ошибка хоть и возникала в этом месте, но причина далеко - была неправильная синхронизация потоков smile

Rouse_

Дата 24.3.2006, 21:59 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 18
Всего: 29

Цитата(Digitalator @ 24.3.2006, 18:31

)

найди хотябы одно принципиальное отличие в коде

Отсутствие окна, которое будет принимать сообщения... Может оно и было раньше по коду, но ты его не указал...

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

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Digitalator

Дата 26.3.2006, 17:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

code := WSAAsyncSelect(socketHandle, sockWindow, FMSG, cEvents);

чем тебе sockWindow не окно ? или имеет какое-то принципиальное значение какое именно это окно и в какой строчке проги я его создавал?

M
Girder

Пожалуйста... будьте сдержанней.

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