l2ph -> Plugins

[Denever]

Build
  [Error] Project2.dpr(133): Array type required
  [Error] Project2.dpr(133): Incompatible types: 'String' and 'Integer'
  [Error] Project2.dpr(136): Incompatible types: 'String' and 'Integer'
  [Error] Project2.dpr(141): Incompatible types: 'TPacket' and 'String'
  [Error] Project2.dpr(150): Statement expected but 'EXPORTS' found

procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; var pck: TPacket); stdcall;
var
  buf: string;
begin
if pck.size<3 then exit; // на случай если предыдущие плагины обнулили пакет
if FromServer and (pck[1]=#$03) and (MyName=0) then // <- 133 строчка
begin
 i:=22;
Name:=ps.ReadS(i); // <- 136 строчка
 //
 //
 //
 //
 pck:=''; // 141 строчка
 //
 //
 //
 //
end;

exports // 150 строчка.
  GetPluginInfo,
  SetStruct,
  OnPacket,
  OnLoad,
  OnFree;
begin
end.

Пробую переделать скрипт в плагин..
Помогите в чём проблема?

[xkor]

Denever, как минимум в том что TPacket это не string а запись из нескольких вариантов массивов, так что работать с pck как со строкой не выйдет. В 133й строке вместо "pck[1]=#$03" надо как то так "pck.pckId=$03", на 136ой не "ps.ReadS(i)" а "ps.ReadSEx(pck,i+1)", на 141 не "pck:=''" а "pck.size:=0", а что не так 150ой строкой я не совсем понял

[Denever]

Спасибо

[Aries]

упс

[supernewbie]

Сообщение от xkor

а что не так 150ой строкой я не совсем понял

дык там end'а в OnPacket'е не хватает

[Denever]

if FromServer and (pck.pckId=$03) then
begin
 i:=22;
 Name:=ps.ReadSEx(pck,i); //+1?? Пробывал.
 ShowMessage('Найден: '+Name); // debug сообщений есть ли имя?

Почему не определяет имя?

Procedure SendPM(msg:string);
var
  buf: string;
begin
  with ps do begin
    buf:=#$4A;
    WriteD(buf,0);
    WriteD(buf,10);
    WriteS(buf,'');
    WriteS(buf,msg);
    SendPacketStr(buf,MyID,False);
  end;
end;

При отправки данной процедуры я получаю ошибку вместе с сообщением и плагин завершается..
В чём может быть проблема?

// Процедура OnLoad устанавливает:
MyID:=ConnectInfo.ConnectID;