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

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

не коннектится к почтовомоу серверу

Quattro ©   (2007-04-20 15:21:00) 

добрый день...подскажите, пожалуйста, почему программа не зочет соединятся с mail.ru?

procedure TForm1.Button1Click(Sender: TObject);
begin
 SMTP.Host:= Edit3.Text; // указываю сайт
 SMTP.Port:= 25; // 25 порт исп. для отправки почты
 // далее установка параметров авторизации
 SMTP.Username:= Edit4.Text;
 SMTP.Password:= Edit5.Text;
 SMTP.AuthType:=atDefault;
 SMTP.Connect;
 //заполнение записи Mes
 Mes.From.User:= Edit4.Text;
 Mes.Recipients.EMailAddresses:= Edit1.Text;
 Mes.Subject:= Edit2.Text;
 Mes.Body.Text:= Memo1.Text;
 SMTP.Send(Mes);
 SMTP.Disconnect;
end;

---

iXT   (2007-04-20 17:49:00) [1]

:)

> но в них я соображаю ещё меньше

Это в чем???

выполнить (cmd для NT, command для 9x)
в командной строке пишешь
telnet
дальше
open smtp.mail.ru 25

---

Quattro   (2007-04-20 17:35:00) [2]

> iXT ©

с удовольствием бы попробовал, но в них я соображаю ещё меньше чем в SMTP

---

iXT   (2007-04-20 17:32:00) [3]

telnet
open IP 25
Чего получается?

---

Quattro   (2007-04-20 17:26:00) [4]

допустим ящик qwerty@mail.ru и пароль rtyqwe
SMTP.Username:=qwerty;

SMTP.Password:= rtyqwe;

SMTP - компонент TIdSMTP.

после нажатия кнопки форма на некоторое время замораживается, а затем вылетает ошибка 1) Soket Error #10054 Conection reset by peer. либо 2) IdSMTPReply Error..причем ничего не меняю в коде...ошибки 1 и 2 выскакивают случайно..либо 1 либо 2...

---

ByakaBuka   (2007-04-20 17:20:00) [5]

1. указывай IP (не нужен будет DNS)
2.
SMTP.Username:= Edit4.Text;
SMTP.Password:= Edit5.Text;
????????
3.
Что есть SMTP?
4. Где и что не работает конкретно

---

Quattro   (2007-04-20 17:15:00) [6]

блин..почему не работает то?? никак не могу понять

unit Ha1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdComponent, IdTCPConnection, IdTCPClient,
 IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP,
 IdBaseComponent, IdMessage, StdCtrls, IdAntiFreezeBase, IdAntiFreeze;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Edit4: TEdit;
   Edit5: TEdit;
   Memo1: TMemo;
   Button1: TButton;
   Mes: TIdMessage;
   SMTP: TIdSMTP;
   IdAntiFreeze1: TIdAntiFreeze;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 SMTP.Host:= 'smtp.Mail.ru'; // указываю сайт
 SMTP.Port:= 25; // 25 порт исп. для отправки почты
 // далее установка параметров авторизации
 SMTP.Username:= Edit4.Text;
 SMTP.Password:= Edit5.Text;
 SMTP.AuthType:=atDefault;
 //заполнение записи Mes
 Mes.From.Name:= Edit2.Text;
 Mes.From.User:= Edit4.Text;
 Mes.Recipients.EMailAddresses:= Edit1.Text;
 Mes.Subject:= Edit2.Text;
 Mes.Body.Text:= Memo1.Text;
 Beep;
 try
   SMTP.Connect;
   try
     SMTP.Send(Mes);
     beep;
   finally
     SMTP.Disconnect;
   end;
 except on E:Exception do ShowMessage(E.Message);
 end;
end;
end.


---

iXT   (2007-04-20 16:21:00) [7]

"Не верный" ответ, хотя в большенстве случаев будет работать.

---

iXT   (2007-04-20 16:05:00) [8]

> SMTP.Host:= mail.ru;// указываю сайт

Не так.
Читать там: http://mail.ru

---

ppcumax   (2007-04-20 16:05:00) [9]

нет, если не ошибаюсь надо smtp.mail.ru или pop3.mail.ru

---

Quattro   (2007-04-20 15:58:00) [10]

ну типа mail.ru пишу :)..не так?:)

SMTP.Host:= mail.ru;// указываю сайт
SMTP.Port:= 25; // 25 порт исп. для отправки почты
// далее установка параметров авторизации
SMTP.Username:= qwerty;
SMTP.Password:= ytrewq;
SMTP.AuthType:=atDefault;
SMTP.Connect;
//заполнение записи Mes
Mes.From.User:= Edit4.Text;
Mes.Recipients.EMailAddresses:= Edit1.Text;
Mes.Subject:= Edit2.Text;
Mes.Body.Text:= Memo1.Text;
SMTP.Send(Mes);
SMTP.Disconnect;
end;

не правильно?

---

Megabyte   (2007-04-20 15:44:00) [11]

> SMTP.Host:= Edit3.Text; // указываю сайт

Что-что ты указываешь?

И вообще, телепатов нет, чего у тебя там за значения в Эдитах...

---

iXT   (2007-04-20 15:44:00) [12]

> SMTP.Host:= Edit3.Text; // указываю сайт

И чего ты указываешь тут?

---

Наверх