[alyamus]

Прежде всего, привет всем.Я прошу прощения за мой плохой русский.Я войти на сайт из Турции.У меня есть проблема в Delphi 7.Я написал программу электронной почты работает в XP.но программа не работает в Windows 7.Windows 7 на компьютер, но работает для меня.но он не работает в других Windows 7.Indy компоненты часто используемых.Beni anlamak için yardımcı olun

[Pyro]

не уверен, но причина может быть в том, что установлен этот checkbox?:

[alyamus]

к сожалению, не произошло.работает на моем компьютере не работает на другом компьютере

Я удивляюсь, почему acemiyim: (

[PS11011010]

Сообщите, пожалуйста тексты ошибок, если они возникают.

[alyamus]

Error : Connection Closed Gracefully


Он дает эту ошибку

[alyamus]

Поэтому я прошу следующее . ıdsmtp Что нам нужно, окна или, как это работает

[PS11011010]

В событиии IdSMTP1.OnDisconnected надо написать IdSMTP1.Connect(3000);

[alyamus]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.IdSMTP1.Host:=edit1.Text;
form1.IdSMTP1.Username:=edit2.Text;
form1.IdSMTP1.Password:=edit3.Text;

try
form1.IdSMTP1.Connect;
except

end;
form1.IdMessage1.From.Address :=edit2.Text;
form1.IdMessage1.Recipients.EMailAddresses:=edit4.Text;
form1.IdMessage1.Subject:=edit5.Text;
form1.IdMessage1.Body.Add(memo1.Text);
form1.IdSMTP1.Send(form1.IdMessage1);
form1.IdSMTP1.Disconnect;
FORM1.IdMessage1.Clear;
label1.Caption:='Mail Gönderildi.';
end;

code: отсутствующий место где

[alyamus]

ты собираешься помочь этот код не работает на другом компьютере

[Страдалецъ]

Другой компьютер подключен к интернету так-же?
Настройки сети такие-же? На компьютере имеется антивирус который проверяет почту?
В состав Windows7 входит простая почтовая программа, попробуйте ее настроить и проверить прохождение почты.