Отправка почты

Помогите разобраться с ошибкой :

Project Project1.exe raised exception class EidSocketError with message 'Socket Error #10061
Connection refused Proces stopped Use Step or Run to continue


Код обработчика:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient, StdCtrls, WinSock, IdTCPConnection, IdTCPClient, IdHTTP,URLMon,
  ExtCtrls, IdMessage, IdMessageClient, IdSMTP, DB, DBClient, MConnect,
  SConnect;
 
......
 
procedure TForm1.Button3Click(Sender: TObject);
begin
IdSMTP1.Connect(10000);
IdSMTP1.Host := '192.168.5.1';
//IdSMTP1.AuthenticationType :=atNone;
//IdSMTP1.AuthenticationType :=atLogin;
//IdSMTP1. Username:='anton';
//IdSMTP1. Password:='1234554321';
if (IdSMTP1.Connected=True) then
begin
label1.Caption:='Conect';
end;
//IdMessage1.Subject:= 'zam' ;
IdMessage1.Recipients.EMailAddresses:= 'anton@****';
//IdMessage1.From.Address:=
IdMessage1.Body.Text:= 'Connect=true  aoto=none' ;
IdMessage1.Date:=StrToDate('03.03.2009');
IdSMTP1.Send(IdMessage1);
IdSMTP1.DisconnectSocket;
end;

На форме лежат IdSMTP1 и IdMessage1

Цитата **EL** @ 03.03.09, 11:36

Project Project1.exe raised exception class EidSocketError with message 'Socket Error #10061

Недоступен сервер, указанный в твоих параметрах. К примеру:

Цитата **EL** @ 03.03.09, 11:36

IdSMTP1.Connect(10000);
IdSMTP1.Host := '192.168.5.1';

Ты поручаешь компоненту соединиться, а затем прописываешь хост, с которым нужно установить соединение. И второй вопрос - по указанному IP есть кому отвечать на попытку коннекта (почтовый сервер) или "просто так, что бы было"?

закоментировал это поле
IdSMTP1.Host := '192.168.5.1';

а в IdMessage1 прописал ip
не помогает тоже самое
192.168.5.1 - почтовый сервер
пробовал и smtp.mail.ru(94.100.177.1)

Сообщение отредактировано: **EL** - 03.03.09, 12:02

Цитата **EL** @ 03.03.09, 12:01

пробовал и smtp.mail.ru

Странно. В свойствах IdSMTP1.Host (Инспектор объектов) поставил - smtp.mail.ru Далее:

procedure TForm1.IdSMTP1Connected(Sender: TObject);
begin
  ShowMessage('Connect OK');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  IdSMTP1.Disconnect;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.Connect(10000);
end;

На форме IdSMTP1 и две кнопки. При нажатии на Button1 через 1-2 сек. получил - Connect OK, т.е. соединение с сервером smtp.mail.ru успешно установлено. Что я сделал не так?

свойствах IdSMTP1.Host (Инспектор объектов) поставил - smtp.mail.ru

и кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Connect(10000);
//IdMessage1.Recipients.EMailAddresses:='an2006an@mail.ru';
//IdMessage1.Body.Text:='Test1';
//IdSMTP1.Send(IdMessage1);
//IdSMTP1.DisconnectSocket;
//IdSMTP1.Disconnect;
//IdMessage1.Clear;
end;

Та же самая ошибка

может с компонентом чтото я переставлял INDY(стандартное для делфи 7) на INDY 9

Сообщение отредактировано: **EL** - 03.03.09, 13:05

Возможно фильтрация какая мешает.

самый простой способ проверить порт
telnet <ip> <port>

Проблема решена McAfee антивирусник рубит сабака

Цитата **EL** @ 03.03.09, 13:04

может с компонентом чтото я переставлял INDY(стандартное для делфи 7) на INDY 9

Хм...у меня стандартные (шли в комплекте с Д7) - 9 версии. В принципе проверяется любым сниффером - запустил сниффер - нажал в приложении кнопку и смотри отправку пакетов по 25 порту (при подозрении на неработоспособность компонента).

Добавлено 03.03.09, 13:37

Цитата **EL** @ 03.03.09, 13:29

Проблема решена McAfee антивирусник рубит сабака

Понял.

Уважаемые. продолжу писать здесь, так как тема почти та же.
Все та же отправка письма. Все прекрасно отправляется. Но при попытке прикрутить поддержку Socks Proxy вылазит указанная выше ошибка.
Тоесть в добавляю еще 2 компонента "IdIOHandlerSocket" и "IdSocksInfo". Для компонента "IdSMTP" свойство "IOHandler" устанавливаю в "IdIOHandlerSocket1", а у компонента "IdIOHandlerSocket" свойство "SocksInfo" в "IdSocksInfo1". Настраиваю все свойства "IdSocksInfo1" и просто запускаю прогу, тоесть никаких методов типа "SocksInfo.MakeSocksConnection" я не использовал.

В том случае, если попробовать вызвать этот метод перед соединением с SMTP сервером выдает ошибку класса "EIdClosedSocket" с текстом "Disconnected". Помогите найти логику) без MakeSocksConnection не конектится, с ним просит сначала открыть сокет) замкнутый круг какой-то)