Форум АНТИЧАТ - Организация цикла (Delphi 2007)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Организация цикла (Delphi 2007) (https://forum.antichat.xyz/showthread.php?t=96802)

Организация цикла (Delphi 2007)

Здарово всем кто читает эту тему.
Проблемка такая я пишу на delphi прогу которая раз в n минут посылает письмо с информацией мне на mail. Так как у многих стоит динамический ip. Всё уже сделал код написал но не могу заставить работать таймер... Кто знает помогите...Внизу перевожу лог того что есть...

Код:

 implementation



{$R *.dfm}

function GetLocalIP: String;

const WSVer = $101;

var

wsaData: TWSAData;

P: PHostEnt;

Buf: array [0..127] of Char;

begin

Result := '';

if WSAStartup(WSVer, wsaData) = 0 then begin

if GetHostName(@Buf, 128) = 0 then begin

P := GetHostByName(@Buf);

if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);

end;

WSACleanup;

end;

end;







procedure TForm3.Timer1Timer(Sender: TObject);

var

 msg:TIdMessage;

 a:string;

begin

IdSMTP1.AuthType := atDefault;

IdSMTP1.Username:='!!!!!!!!!!!!!';

IdSMTP1.Password:='!!!!!!!!!!!!!!111';

IdSMTP1.Host:='smtp.mail.ru';

IdSMTP1.Connect();

begin

a:=formatdatetime('hh:mm',now);

msg:=TIdMessage.Create(self);

Msg.Subject:='ip';

Msg.Recipients.EMailAddresses:='!!!!!!!!!!!';

Msg.From.Address:='!!!!!!!!!!!!!!;

Msg.Body.Add(a+' время =))э') ;

Msg.Date:=StrToDate('11.11.2008');

if IdSMTP1.Connected=True then  IdSMTP1.Send(Msg);

end;

IdSMTP1.Disconnect;

end;



end.

ps interval таймера 30000 типа 30 секунд..но надо сделать хотя бы 30 минут..у человека нет часто рвётся))

А не проще сделать так?

Цитата:

label send;
begin
send:
IdSMTP1.AuthType := atDefault;
IdSMTP1.Username:='!!!!!!!!!!!!!';
IdSMTP1.Password:='!!!!!!!!!!!!!!111';
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Connect();
begin
a:=formatdatetime('hh:mm',now);
msg:=TIdMessage.Create(self);
Msg.Subject:='ip';
Msg.Recipients.EMailAddresses:='!!!!!!!!!!!';
Msg.From.Address:='!!!!!!!!!!!!!!;
Msg.Body.Add(a+' время =))э') ;
Msg.Date:=StrToDate('11.11.2008');
if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
end;
IdSMTP1.Disconnect;
end;
Sleep(30000)
goto send;

Можеш прокоментировать данный тобой исходник?
чё то я не втыкаю что тут ты юзаеш так как и что это?
label send;

Цитата:

Сообщение от Karacь

Можеш прокоментировать данный тобой исходник?
чё то я не втыкаю что тут ты юзаеш так как и что это?
label send;

Я просто переделал исходный код отсылки E-Mail. Не так сложно сообразить куда надо вставить этот код.
процедуру с таймером вообще убери. на обработчик кнопки поставь этот код

если там есть окно оно будет зависать на время Sleep
а вообще при инициализации таймера вставь
timer1.Interval:=30000*60;

Если окно будет зависать поставь в исходный код эту строку

Цитата:

Application.ProcessMessages;

Всё хорошо но в это коде когда запускаю вылазиет ошибка.

ps код

Код:

procedure TForm3.FormCreate(Sender: TObject);

label send;

var

 msg:TIdMessage;

 a:string;

begin

IdSMTP1.AuthType := atDefault;

IdSMTP1.Username:='5465446';

IdSMTP1.Password:='6565566565';

IdSMTP1.Host:='smtp.mail.ru';

IdSMTP1.Connect();

begin

a:=formatdatetime('hh:mm',now);

msg:=TIdMessage.Create(self);

Msg.Subject:='ip';

Msg.Recipients.EMailAddresses:='55665656';

Msg.From.Address:='556454';

Msg.Body.Add(a+'время '+GetLocalip+' айпишник') ;

if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);

end;

IdSMTP1.Disconnect;

end;

Sleep(30000)

goto send;

end;

end;

Где красным там ошибка. На слове sleep он не хочет работать пишет

Код:

[DCC Error] Unit3.pas(72): E2029 Declaration expected but identifier 'Sleep' found

Цитата:

procedure TForm3.FormCreate(Sender: TObject);
label send;
var
msg:TIdMessage;
a:string;
begin
IdSMTP1.AuthType := atDefault;
IdSMTP1.Username:='5465446';
IdSMTP1.Password:='6565566565';
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Connect();
begin //этот begin не нужен убери его
send: //ты метку убрал зачем
a:=formatdatetime('hh:mm',now);
msg:=TIdMessage.Create(self);
Msg.Subject:='ip';
Msg.Recipients.EMailAddresses:='55665656';
Msg.From.Address:='556454';
Msg.Body.Add(a+'время '+GetLocalip+' айпишник') ;
if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
end;
IdSMTP1.Disconnect;
end;
Sleep(30000) ;
goto send;
end;
end;

проверь так

Всеравно такая же ошибка..не понимает он что такое sleep

Цитата:

Сообщение от Karacь

Всеравно такая же ошибка..не понимает он что такое sleep

Пздц. Ты хоть библиотеку Windows подключил?