CoderX :: Forums - Показать сообщение отдельно

Deffol · 07.06.2011, 02:29

ну ладно, я понял, вот так нормально?

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, вместо байтов, я сам пробовал не доходит.

07.06.2011, 02:29	#7
Deffol Местный Регистрация: 17.02.2011 Сообщений: 118 Сказал Спасибо: 51 Имеет 2 спасибок в 2 сообщенях	ну ладно, я понял, вот так нормально? 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, вместо байтов, я сам пробовал не доходит.