Код:
const
zakup='23 30 00 30 00 00 00';
zatocsh='19 4C 9D 2D 10 00 00 00 00';
var
i,m:integer;
Timer01: TTimer;
UseItem: string;
procedure Init;
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
Timer01.interval:=800; //интервал(в милисекундах) как часто таймер срабатывает
end;
procedure OnTimer01(Sender: TObject);
begin
//buf:=HStr(zakup); //закупка
buf:=HStr(zatocsh); //заточка
SendToServer;
end;
begin
if FromServer and (pck[1]+pck[2]=#$62#$28) then
begin
buf:=HStr(zakup);
SendToServer;
i:=0;
end;
if FromServer and (pck[1]+pck[2]+pck[4]=#$21#$01#$01) then begin
UseItem:=pck[8]+pck[9]+pck[10]+pck[11];
buf:=#$19+UseItem+#$00#$00#$00#$00;
SendToServer;
end;
if FromServer and (pck[1]+pck[2]=#$62#$26) then i:=i+1;
if i=23 then begin
buf:=HStr(UseItem);
SendToServer;
end;
end.
Все работает ток теперь пуху не точит (таимер не работает)
разобраться не могу
Добавлено через 19 часов 5 минут
ну кто мне поможет с таимером разобраться?