![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Коннект "решительно отвергается"
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].