Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > winsock, WSAAsyncSelect + connect = WSAENOTSOCK


Автор: Digitalator 23.3.2006, 00:22
Здраствуйте.
Пишу такой код, в результате ловлю ошибку 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 модуля

Автор: Rouse_ 23.3.2006, 16:22
Что-то типа такого должно быть:

Код

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;

Автор: Digitalator 24.3.2006, 17:31
Цитата
Что-то типа такого должно быть:

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

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

Автор: Rouse_ 24.3.2006, 21:59
Цитата(Digitalator @ 24.3.2006, 18:31 Найти цитируемый пост)
найди хотябы одно принципиальное отличие в коде

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

Автор: Digitalator 26.3.2006, 17:15
Цитата
code := WSAAsyncSelect(socketHandle, sockWindow, FMSG, cEvents);

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)