Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Коннект "решительно отвергается"


peppo ©   (2005-04-05 10:08:00) 

Вот-с, пытаюсь получить почту (с mail.ru)
При connect() (порт 110) возникает ошибка WSAECONNREFUSED (The attempt to connect was forcefully rejected). Если, подключаться через, напр., 80 порт, то соединяется успешно...
Firewall оключен.

Что не так?

Текст:

var
 ip,port: string;
 S: TSocket;
 vSockAddr: TSockAddr;
 vWSAData : TWSAData;
...
 if WSAStartup($101,vWSAData)<>0 then Messagebox(0,'Error WSA','Error',0);

 port:='110';  ip:='194.67.57.26';
...
 S := socket(PF_INET,SOCK_STREAM,IPPROTO_TCP); //??
 if s= INVALID_SOCKET then begin
   Messagebox(0,'INVALID_SOCKET','Error',0);
   Halt(1);
 end;

 FillChar(vSockAddr,SizeOf(TSockAddr),0);
 vSockAddr.sin_family :=PF_INET;
 vSockAddr.sin_port:=htons(StrToInt(port));
 vSockAddr.sin_addr.S_addr:=inet_addr(Pchar(ip));

 if connect(S,vSockAddr,SizeOf(TSockAddr)) = 0 then  //WSAECONNREFUSED (!)
...


peppo   (2005-04-05 10:18:00) [1]

Кхе.
Вопрос снимается. Я не туда стучался - надо на pop.mail.ru [194.67.23.102].


Наверх

Титульная страница Поиск, карта сайта Написать письмо