Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка Winsock.Connect() 
:(
    Опции темы
koder
Дата 22.3.2007, 08:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Не могу проверить, успешно ли соединение с сервером или нет. Во всех случаях функция выдает -1, даже при успешном соединении
--------------------
THE TRUTH IS OUT THERE
PM WWW ICQ   Вверх
Alkash
Дата 22.3.2007, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


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

Репутация: нет
Всего: нет
Пример приведи кода своего, а то ошибка в 17 строке.


--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
koder
Дата 22.3.2007, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

  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.');


--------------------
THE TRUTH IS OUT THERE
PM WWW ICQ   Вверх
Alkash
Дата 22.3.2007, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


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

Репутация: нет
Всего: нет
Попробуй так
Код

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



--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0692 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.