VPF::WinSock, connect = SOCKET_ERROR - Форум программистов

RaIDeR

Дата 16.8.2005, 14:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

Проверьте пожалуйста мой код.
Вроде всё правельно, но соединения не происходит. smile

В чём проблема ?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Sock: TSocket;
  SAddr: TSockAddrIn;
  WSAData: TWSAData;
  HostEnt: PHostEnt;
  Serv_IP: PChar;
  Buff: array [0..256] of Char;
begin
try
  WSAStartUp(257, WSAData);
  Sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  
  HostEnt := GetHostByName('smtp.mail.ru');

  Serv_IP := inet_ntoa(PInAddr(HostEnt.h_addr_list^)^);
  memo1.Lines.Add('Serv_IP: ' + Serv_IP);

  with SAddr do
  begin
    sin_family := AF_INET;
    sin_port := htons(25);
    sin_addr.S_addr := Inet_Addr(Serv_IP);
  end;

  if Connect(Sock, SAddr, SizeOf(SAddr)) = SOCKET_ERROR then // вот здесь всегда ошибка 
  begin
    ShowMessage('Conection failed ! =((('); 
    Exit; 
  end;
  Recv(Sock, Buff, SizeOf(Buff), 0);
  memo1.Lines.Add('Connect: ' + Buff);

...

finally
  CloseSocket(Sock);
  WSACleanUp();
end;
end;

Delphins

Дата 16.8.2005, 17:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Хм. Посмотри на это:
WSAStartUp(257, WSAData);
Меня насторожил параметр 257.

<Spawn>

Дата 16.8.2005, 18:04 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Delphins 257 это версия Winsock, а именно 1.1, иначе ее можно было бы записать как $101.

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

RaIDeR

Дата 16.8.2005, 18:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Похоже что дело не в этом ... пробовал так:
WSAStartUp(MAKEWORD(1, 0), WSAData);
и даже так:
WSAStartUp($0101, WSAData);
Всё равно не получилось. smile

ps
Есть ли у кого нибудь возможность проверить у себя сей код ...проверьте плиз smile

Может дело не в коде.

Это сообщение отредактировал(а) RaIDeR - 16.8.2005, 18:14

Mayk

Дата 16.8.2005, 18:26 (ссылка)

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

Загрузка ...

^аВаТаР^ сообщение>>

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

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

А что возвращает WSAGetLastError ?

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

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

p0s0l

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

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Ничего не менял - работает:

Цитата(Memo1)

Serv_IP: 194.67.23.111
Connect: 220 mail.ru ESMTP Wed, 17 Aug 2005 00:23:20 +0400

Может у тебя какой-нибудь фаервол ?...

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

С уважением, г-н Посол.

RaIDeR

Дата 16.8.2005, 23:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

Бред какой-то smile

... только что проверил всё работает ! А до этого WSAGetLastError
возвращало след:

Цитата

Подключение не установленно т.к конечный комп отверг запрос на подключение.

2 p0s0l:
Фаер был откючен.

Благодарю всех за помощь !

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