ну ладно, я понял, вот так нормально?
delphi Код:
begin
if FromClient then
begin
if pck=HStr('B9 57 76 00 2F 00 31 04 40 04 31 04 40 04 00 00') then
begin
buf:=HStr('C9 57 66 04 41 0A C7 43 AA CA 25 45 5F E9 54 43 64');
SendToServer;
buf:=HStr('9E 57 5D 3B BA C1 43 1D E1 24 45 AE 62 50 43 64 00');
SendToServer;
buf:=HStr('67 57 04');
pck:='';
end;
//ну и дальше продолжение...
а кто может объяснить как тут реализовать Read, вместо байтов, я сам пробовал не доходит.