Цитата:
Сообщение от cvillian
Ну это когда нужно изменить пакет. Я говорю про то когда его нужно собрать. В WP PPC мого удобных функций для этого есть, надо видима придумывать что-то похожее. Я тоже думаю пакет в стринге держать.
|
Эти функции именно и созданы чтобы его собрать.
procedure WriteC(var pck: string; const v:byte; ind:integer=-1); stdcall;
procedure WriteH(var pck: string; const v:word; ind:integer=-1); stdcall;
procedure WriteD(var pck: string; const v:integer; ind:integer=-1); stdcall;
procedure WriteQ(var pck: string; const v: Int64; ind:integer=-1); stdcall;
procedure WriteF(var pck: string; const v:double; ind:integer=-1); stdcall;
procedure WriteS(var pck: string; const v: WideString; ind:integer=-1); stdcall;
На самом деле очень удобно.
Берем пустую переменную типа String и последовательно пишем в нее ID, и прочие данные.
Например:
PHP код:
// Создаем пакет для посылки текста в чат
function Say2(text: WideString; textType:integer; targetChar: ShortString = ''): string;
begin
Result:= #$49;
WriteS(Result, text);
WriteD(Result, textType);
if(targetChar <> '')and(textType = 2) then WriteS(Result, targetChar);
SendPacket(result);
end;