Все било б очень просто, если б работали функции Sleep() и Delay(), но нет =(((
п.с. мну опередили, прочетал то что више, ети функции не помогли б =(
пока что рабочая програма имеет такой вид :
const
Name='name';
var
timer1: TTimer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=10000;
end;
procedure OnTimer1(Sender: TObject);
begin
buf:=hstr('2F 89 05 00 00 00 00 00 00 00 ');
SendToServerEx(Name);
end;
procedure Free;
begin
timer1.Free;
end;
begin
end.
воть, но как ее переделать так чтоб шло:
1) пакет №1
2)ждем 10 сек
3)пакет № 2 три раза через 0,3 сек
4)обратно к пункту 1
попиталса вставить еще 1 таймер аналогично 1му, не работает, хз почему =((
Последний раз редактировалось AlbeNeC, 15.07.2009 в 17:27.
|