delphi Код:
............
_var:integer;
..................
if fromserver and (pck[1]=#$2E) then begin
_var:=ReadD(16);//если с сервера пакет 2Е, то - считали dword значение с 16ой позиции
timer.enabled:=true;//включить таймер;
end;
..........................................
//в таймере:
buf:=hstr('B5 57 72'); //в буф - начало требуемого пакета
WriteD(_var); //к находящемуся в буф - дописать ранее считаное значение
Sendtoserver;//отправить
..................
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|