блин ну считать можно вот так:
'delphi' Код:
var
IDpck:integer;
begin
if fromclient and (pck[1]=#$32) then
IDpck:=ReadD(4);
а вот как вставить я не знаю)
Добавлено через 16 минут
вот так попробуй:
'delphi' Код:
var
IDpck:integer;
begin
if fromclient and (pck[1]=#$32) then
IDpck:=ReadD(4);
begin
buf:=hstr('A1 57 5E 8F 00 00 00 01 00 01 00');
WriteD(IDpck);
buf:=buf+Hstr('01 00 00 00 00 00 00 00');
sendtoserver;
end;
end.
Добавлено через 1 минуту
я правда не уверен, но я пока не могу ниче придумать, писал в блокноте
ничего от делфи нету
Добавлено через 28 минут
ну че, помогло?
а то я проверить сам не могу даже правилен ли синтаксис
Добавлено через 5 минут
slokky, блин ты куда пропал, давай пиши помогло или нет, а то меня щас за флуд забанят, мне жэ интересно ё моё