Проблема с L2 Init Blowfish

[cvillian]

Ну это когда нужно изменить пакет. Я говорю про то когда его нужно собрать. В WP PPC мого удобных функций для этого есть, надо видима придумывать что-то похожее. Я тоже думаю пакет в стринге держать.

[Yegor]

Сообщение от 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;