Цитата:
Сообщение от J-Fobos
|
Спасибо помогло, в то место вставил этот код:
Код:
ValueCP:=ReadD(Length(pck)-3);
SendMessage(IntToStr(ValueCP));
Я так понял ReadD(i:index):integer считывает с позиции i 4 байта ключительно, после долгих тестов, помог в программе "преобразовщик".
Вот собственно скриптик, кто хочет потестить, пожалуйста (Пишет красноватом шрифтом в чате ваше ЦП).
Код:
const
Name='Marilyn'; <= Сюда впишите свой ник.
chat=19; //15,18,19
var
ValueCP:integer;
procedure SendMessage(Msg:String);
begin
buf:=#$4A;
WriteD(0);
WriteD(Chat);
WriteS(':');
buf:=buf+#$FF+#$FF+#$FF+#$FF;
WriteS(Msg);
SendToClientEx(Name);
end;
begin
if FromServer and (ConnectName=Name) and (pck[1]=#$18) then
begin
ValueCP:=ReadD(Length(pck)-3);
SendMessage(IntToStr(ValueCP));
end;
end.