ShowMessage(format(' blablabla: %x ',[ord(pck[1])])); ?
Оффтоп
delphi Код:
procedure Init; //Вызывается при включении скрипта
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('Test message');
Sendmsg(ViewHex(buf));
Sendmsg(ViewHex(buf[6]+buf[7]+buf[8]+buf[9]));
Sendmsg(ViewHex(buf[12]+buf[13]+buf[14]+buf[15]+buf[16]+buf[17]+buf[18]+buf[19]));
end;
function ViewHex(hstr:string):string;
var
idx:integer = 1;
begin
result:='';
while (idx<=length(hstr)) do begin
result:=result+format('%.2x ',[ord(hstr[idx])]);
inc(idx);
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.
delphi Код:
15.06.2015 03:03:24 Script: 4A 00 00 00 00 0A 00 00 00 00 00 54 00 65 00 73 00 74 00 20 00 6D 00 65 00 73 00 73 00 61 00 67 00 65 00 00 00
15.06.2015 03:03:24 Script: 0A 00 00 00
15.06.2015 03:03:24 Script: 54 00 65 00 73 00 74 00
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 15.06.2015 в 04:16.
|