Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Ошибка Winsock.Connect()

Автор: koder 22.3.2007, 08:41

Не могу проверить, успешно ли соединение с сервером или нет. Во всех случаях функция выдает -1, даже при успешном соединении

Автор: Alkash 22.3.2007, 09:43

Пример приведи кода своего, а то ошибка в 17 строке.

Автор: koder 22.3.2007, 09:51

Код


  Socket_AddressInfo.sin_family := AF_INET;
          Socket_AddressInfo.sin_port := htons(port);
          Socket_AddressInfo.sin_addr.S_addr := Get_Inet_Addr(Host);
          if Socket_AddressInfo.sin_addr.S_addr <> -1 then begin
            errsock := Winsock.Connect(Socket_Handle,Socket_AddressInfo, SizeOf(Socket_AddressInfo));
          if errsock = 0 then
               Socket_Connected := true
            else
               Socket_Connected := false;
            SetTimer(Message_Handle, ETCP_Message, ETCP_ConnectTimeOut, nil);
          end else OnError('Connect: Host Not Found.');

Автор: Alkash 22.3.2007, 09:54

Попробуй так

Код


 if Connect(Sock, SAddr, SizeOf(SAddr)) = SOCKET_ERROR then 
  begin
    ShowMessage('Conection failed ! =((('); 
    Exit; 
  end;