Показать сообщение отдельно
Старый 17.08.2012, 22:17   #8
Местный
 
Аватар для kpa9pt
 
Регистрация: 13.01.2010
Сообщений: 159
Сказал Спасибо: 18
Имеет 30 спасибок в 23 сообщенях
kpa9pt имеет немного плохого в прошлом
По умолчанию

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;

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
if FromClient and (pck[1]=#$1B) and (pck[2]=#$08)and (pck[3]=#$00) then
 
begin
 timer
.enabled:=true;                                                                  
 
end
А вот так?
kpa9pt вне форума   Ответить с цитированием
За это сообщение kpa9pt нажился спасибкой от: