Перед последним end. - вставь
delphi Код:
if fromserver and (pck[1]=#$B9) then begin
idx:=StrtoHex(pck[2])+StrtoHex(pck[3])+StrtoHex(pck[4])+StrtoHex(pck[5]);
name:='OID: '+idx;
SendMsg('В таргете '+GetValue(name));
end;
idx - "индекс" - это ОИД - только записаный наоборот, как в пакете, просто начинал с использования лишь 3ех байт, 4ый появился позже, а переделывать - пока лень, вот и все. Вполне возможно заменить к привычной форме idx:=inttostr(ReadD(j)); - только менять надо сразу по всему скрипту.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 29.08.2010 в 09:18.
|