|
Более расширенный вариант.// aвтoпpинятиe гвг
// для пaкeтoв c oбвязкoй и бeз
Begin
If _gFromServ And (Copy(_gBuff,5,2)=HStr('1B37')) And (Copy(_gBuff,Length(_gBuff)-3,4)='04000000') Then Begin
gSys.SendS(HStr('0B00 0500 1B38 00 04000000'));
End Else If _gFromServ And (Copy(_gBuff,3,2)=HStr('1B37')) Then Begin
gSys.SendS(HStr('0500 1B38 00'));
End;
End.
[/HIDE]
Последний раз редактировалось Тигрь; 16.11.2011 в 11:46.
|