Создание почтового клиента на Delphi - Работа с сетью в Delphi

g0liath · 18.03.2009, 20:47

Пишу почтовый клиент на Delphi. Для его написания использую Indy компоненты. Решил начать с самого простого: загрузить с сервера одно письмо и отобразить его на экране.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdPOP3.Host:='pop3.mail.ru';
 IdPOP3.Port:=110;
 IdPOP3.Username:='g0liath@mail.ru';
 IdPOP3.Password:='------';
 IdMessage.Clear;
 IdPOP3.Connect;
 Memo1.Clear;
 IdPOP3.Retrieve(1, IdMessage);
 Memo1.Lines.AddStrings(IdMessage.Body);
 IdPOP3.Disconnect;
end;

Все компилируется, но при запуске процедуры выскакивает "Socket Error #10061 Connection refused". Слышал, что на это может повлиять файрвол. У меня установлен Антивирус Касперского 7 (файрвола там нету) и Comodo Firewall (отключен). Брандмауэр тоже отключен.

Что не так?

mihali4 · 18.03.2009, 20:52

Что не так?
Раздел не тот... Вам нужно было в раздел "Работа с сетью в Delphi".
Надеюсь, модератор раздела перенесет...

g0liath · 19.03.2009, 01:30

Тему можно удалить. Все дело было в Comodo Firewall. Даже в полностью выключенном состоянии он не давал программе подключиться.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание клиента и интерфейса	AlexMod	Gamedev - cоздание игр: Unity, OpenGL, DirectX	2	24.01.2009 20:07
как получить пароль почтового ящика	Яся	Помощь студентам	2	06.12.2007 08:02
скрипт, который бы смог забирать почту с почтового сервера (pop3) и обрабатывать ее	Hallo	PHP	11	21.11.2006 21:18

18.03.2009, 20:47	#1
g0liath Пользователь Регистрация: 16.02.2008 Сообщений: 10	Создание почтового клиента на Delphi Пишу почтовый клиент на Delphi. Для его написания использую Indy компоненты. Решил начать с самого простого: загрузить с сервера одно письмо и отобразить его на экране. Код: `procedure TForm1.Button1Click(Sender: TObject); begin IdPOP3.Host:='pop3.mail.ru'; IdPOP3.Port:=110; IdPOP3.Username:='g0liath@mail.ru'; IdPOP3.Password:='------'; IdMessage.Clear; IdPOP3.Connect; Memo1.Clear; IdPOP3.Retrieve(1, IdMessage); Memo1.Lines.AddStrings(IdMessage.Body); IdPOP3.Disconnect; end;` Все компилируется, но при запуске процедуры выскакивает "Socket Error #10061 Connection refused". Слышал, что на это может повлиять файрвол. У меня установлен Антивирус Касперского 7 (файрвола там нету) и Comodo Firewall (отключен). Брандмауэр тоже отключен. Что не так? Последний раз редактировалось g0liath; 19.03.2009 в 01:09.

18.03.2009, 20:52	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Что не так? Раздел не тот... Вам нужно было в раздел "Работа с сетью в Delphi". Надеюсь, модератор раздела перенесет...

19.03.2009, 01:30	#3
g0liath Пользователь Регистрация: 16.02.2008 Сообщений: 10	Тему можно удалить. Все дело было в Comodo Firewall. Даже в полностью выключенном состоянии он не давал программе подключиться.