[Помогите!] Опять вопрос про пакеты =)

[артём612]

Вообщем в ответ я получаю пакет 07 00 15 0D XX ZZ 02 (так показано в снифире)

мне надо прочитать байты XX и ZZ так чтобы переменная DWORD key1 была равна XX а переменная DWORD key2 была равна ZZ

зарание спасибо

[VeTaL_UA]

А получаешь то во что? Если в string, то так:

procedure Del(var s:string);
var
i:integer;
begin
i:=Pos(' ',s);
  if i=0 then Exit;
  repeat
  Delete(s,i,1);
  i:=Pos(' ',s)
  until i=0;
end;

procedure GetKeys(s:string; var t1,t2:DWord);
begin
Del(s);
t1:=StrToInt('0x'+Copy(s,9,2));
t2:=StrToInt('0x'+Copy(s,11,2));
end;

GetKeys может быть таким, если криво получаешь:

procedure GetKeys(s:string; var t1,t2:DWord);
begin
t1:=Ord(s[5]);
t2:=Ord(s[6]);
end;

Если в массив байтов, то так:

procedure GetKeys(a:array[0..6] of Byte; var t1,t2:DWord);
begin
t1:=a[5];
t2:=a[6];
end;

Ну есть ещё туча вариантов, но, обычно, эти самые распространённые.