Показать сообщение отдельно
Старый 17.08.2012, 18:58   #5
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 88
Сказал Спасибо: 59
Имеет 2 спасибок в 2 сообщенях
Roman32 пока неопределено
По умолчанию

PHP код:
const
    
name 'name;
var
    timer:TTimer;
    TimerStep:byte;
procedure Init; 
begin
    TimerStep:=1;
    timer:=TTimer.Create(nil);
    timer.OnTimer:=@OnTimer;
    timer.enabled:=false;
    timer.interval:=700; //время задержки между отправкой пакетов.
end;

procedure Free;
begin
    timer.free;
end;

begin
if FromClient and (pck[1]=#$1B) and (pck[2]=#$08)and (pck[3]=#$00) then
 begin
 timer.enabled:=true;                                                                  
 end.

procedure OnTimer;
    begin
        case TimerStep of
            1: 
                begin
                    timer.interval:=600;
                    buf:=Hstr('
14 56 8A 02 10 00 00 00 00 ');
                    SendToServerEx(name);
               //   SendMsg('
1');
                    Inc(TimerStep);
                end;
            2: 
                begin 
                    buf:=Hstr('
14 E8 B9 0F 10 00 00 00 00 ');
                    SendToServerEx(name); 
               //   SendMsg('
2');
                    Inc(TimerStep);                
                end; 
            3: 
                begin 
                    buf:=Hstr('
2F 3E 01 00 00 00 00 00 00 00 ');
                    SendToServerEx(name);
               //   SendMsg('
3');   
                TimerStep:=1;  
                timer.enabled:=false;
                    timer.interval:=600;   //60000 мс = 1 минута         
                end;
        end;
    end;


begin

end. 
Вот опять что то попытался,подскажите что не так)
Roman32 вне форума   Ответить с цитированием