Мастера есть проблема надо бы её рештиь...

← →
Djon007 © (2004-01-31 21:58) [0]

Добрый вечер знатоко вот код проги почему то когда она доходит до SEND то вешаеться что делать?
procedure TForm1.Button1Click(Sender: TObject);
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
s:string;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
E.Host:="";
E.Port:=25;
E.UserId:="";
E.Password:="";
E.Connect();
if E.Connected then
Subject := "";
From.Text := "";
Body.Text := "";
Recipients.EMailAddresses := "";
with LSMTP do
begin
//AuthenticationType:=atNone;
E.Send(LMsg);
//ShowMessage("");
Disconnect;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;
end;
end.

← →
Djon007 © (2004-01-31 22:47) [1]

никто не поможет бедному программеру :(

Мастера есть проблема надо бы её рештиь... Найти похожие ветки