Plugins

charly911 · 17.06.2009, 10:32

Hello! i am trying to make a simple plugin, but i have some questions.
I am using v3.5.12.120.

I have not realy understood how to use it.
Is this ok?? :

Код:

Example pck -> RequestDropItem

pck = 12 79 A9 00 10 01 00 00 00 C6 E9 00 00 A7 5A FF FF 2C F4 FF FF

12 -> Package ID
79 A9 00 10 -> Object ID
01 00 00 00 -> Count
C6 E9 00 00 -> X
A7 5A FF FF -> Y
2C F4 FF FF -> Z

pck.pckId -> Package ID
So, if (pck.pckId=$12) -> True
    if (pck.pckId=$79) -> False
    
pck.data[]
So, if (pck.data[1]=$12) -> True    (Package ID) //yep
    if (pck.data[2]=$79) -> True    (Package no 2) //yep

ReadDEx()
So,    if (ps.ReadDEx(pck,6)=1) -> True    (01 00 00 00) Count //nop. ps.ReadDEx(pck.data,6); pck => size(2byte)data(size-2 byte) right now you reading this part [00 10 01 00]

//=====================

Sending.

buf:=#$4A#$00#$00#$00#$00;
WriteD(2);
WriteS(msg);
SendToClientEx(PlayerName);

==== Equal to ====

with ps do begin
buf:=HexToString('4A 00 00 00 00'); //оr  buf:=#$4A#$00#$00#$00#$00;
WriteD(buf,2); -> = buf := buf+#$02#$00#$00#$00 ?? //yep
WriteS(buf,msg); //correct.
SendPacketStr(buf,PlayerName,False); -> PlayerName = 'TKBelCrt' <- is this ok?? //epic fail XD look 3rd post.
end;

Ty, Charly.

NLObP · 17.06.2009, 10:45

IMHO
In plug-ins all offsets +1. The package starts with its size

Код:

0000 size
0002 ID
...

alexteam · 17.06.2009, 13:00

NLObP, not really.

recive packet:

delphi Код:

TPacket = packed record case Integer of
    0: (Size: Word;
        Data: array[0..$FFFD] of Byte);
    1: (PacketAsByteArray: array[0..$FFFF] of Byte);
    2: (PacketAsCharArray: TCharArray);
    3: (pckSize: Word;
        pckId: Byte;
        pckData: array[0..$FFFC] of Byte);
  end;

  TOnPacket = procedure(const cnt: Cardinal; const fromServer: Boolean; const connectionname:string; var packet : tpacket); stdcall;

packet.Data equal to pck in scripts.

sending packet:
procedure SendPacketStr(pck: string; const tid: integer; const ToServer: Boolean); override;

you can obtain tid by
function getConnectioidByName(name : string):integer; override;

charly911 · 17.06.2009, 19:47

OK, then

delphi Код:

pck.data[2]+pck.data[3]+pck.data[4]+pck.data[5] = (ps.ReadDEx(pck,4) ? 

and

with ps do begin
buf:=HexToString('4A 00 00 00 00'); 
WriteD(buf,2); 
WriteS(buf,msg); 
SendPacketStr(buf,getConnectioidByName(PlayerName),False); ?
end;

Ty, Charly.

alexteam · 17.06.2009, 19:56

pck.data[2]+pck.data[3]+pck.data[4]+pck.data[5] = (ps.ReadDEx(pck,4) ?
not really... at last data its a byte array.. in facts its goint this way ->

pck.data[5]*256*256*256+pck.data[4]*256*256+pck.data[3]*256+pck.data[2] = (ps.ReadDEx(pck,4)

charly911 · 17.06.2009, 20:09

OK, i understood.
Thanks.

Charly.

charly911 · 19.06.2009, 06:01

Hi, i tryed to work with the plugin, but i get an error :P
I know the problem is in this piece of code, but i do not know where :

delphi Код:

procedure OnLoad; stdcall;
var buf : string;
begin
  with ps do
  begin
        buf:=HexToString('4A 00 00 00 00');
        WriteD(buf,2);
        WriteS(buf,'Hola');
        SendPacketStr(buf,ConnectInfo.ConnectID,False);
  end;
end;

***************************
Also tryed:

procedure OnLoad; stdcall;
var buf : string;
begin
with ps do begin
  buf:=HexToString('4A 00 00 00 00'); 
  WriteD(buf,2); 
  WriteS(buf,'Hola'); 
  SendPacketStr(buf,getConnectioidByName(PlayerName),False); // Const, PlayerName = 'Asd';
end;
end;

Error i get:

Код:

==============================================================================
= 18/06/2009 21:53:04                                                        =
==============================================================================
Access violation at address 00000000. Read of address 00000000.

Exception class: EAccessViolation
Exception message: Access violation at address 00000000. Read of address 00000000.
Exception address: 00000000
------------------------------------------------------------------------------
Stack list, generated 18/06/2009 21:53:04
(0027DE6E){l2ph.exe    } [133BEE6E] uPluginData.TPlugin.LoadPlugin (Line 710, "units\uPluginData.pas" + 33) + $3
(0026D37A){l2ph.exe    } [133AE37A] uPlugins.TfPlugins.clbPluginsListClickCheck (Line 132, "units\uPlugins.pas" + 5) + $E
(0011C9B1){l2ph.exe    } [1325D9B1] CheckLst.TCheckListBox.ClickCheck + $15
(0011C992){l2ph.exe    } [1325D992] CheckLst.TCheckListBox.ToggleClickCheck + $66
(0011C8E6){l2ph.exe    } [1325D8E6] CheckLst.TCheckListBox.MouseDown + $8E
(000A9B4A){l2ph.exe    } [131EAB4A] Controls.TControl.DoMouseDown + $76
(000A9B96){l2ph.exe    } [131EAB96] Controls.TControl.WMLButtonDown + $3E
(0008871D){l2ph.exe    } [131C971D] StdCtrls.TCustomListBox.WMLButtonDown + $69
(000A9DF2){l2ph.exe    } [131EADF2] Controls.TControl.WMMouseMove + $6E
(000A98DC){l2ph.exe    } [131EA8DC] Controls.TControl.WndProc + $188
(000014BC){l2ph.exe    } [131424BC] System.SysFreeMem + $164
(000014E4){l2ph.exe    } [131424E4] System.SysFreeMem + $18C
(00001A5D){l2ph.exe    } [13142A5D] System.@FreeMem + $5
(000014BC){l2ph.exe    } [131424BC] System.SysFreeMem + $164
(000014E4){l2ph.exe    } [131424E4] System.SysFreeMem + $18C
(000014BC){l2ph.exe    } [131424BC] System.SysFreeMem + $164
(000014E4){l2ph.exe    } [131424E4] System.SysFreeMem + $18C
(000AC93B){l2ph.exe    } [131ED93B] Controls.TWinControl.WndProc + $157
(0009297D){l2ph.exe    } [131D397D] Forms.TCustomForm.WndProc + $421
(000237CC){l2ph.exe    } [131647CC] Classes.TThreadList.UnlockList + $4
(000377E0){l2ph.exe    } [131787E0] Graphics.FreeMemoryContexts + $98
(000AC5B8){l2ph.exe    } [131ED5B8] Controls.TWinControl.MainWndProc + $2C
(000AC5CD){l2ph.exe    } [131ED5CD] Controls.TWinControl.MainWndProc + $41
(000AC7A1){l2ph.exe    } [131ED7A1] Controls.TWinControl.IsControlMouseMsg + $51
(000AC93B){l2ph.exe    } [131ED93B] Controls.TWinControl.WndProc + $157
(000886A6){l2ph.exe    } [131C96A6] StdCtrls.TCustomListBox.WndProc + $5A
(000AC5B8){l2ph.exe    } [131ED5B8] Controls.TWinControl.MainWndProc + $2C
(000303DC){l2ph.exe    } [131713DC] Classes.StdWndProc + $14
(0003B956){l2ph.exe    } [1317C956] Contnrs.TComponentList.GetItems + $A
(00098E73){l2ph.exe    } [131D9E73] Forms.TApplication.ProcessMessage + $83
(00098EAA){l2ph.exe    } [131D9EAA] Forms.TApplication.HandleMessage + $A
(000990CA){l2ph.exe    } [131DA0CA] Forms.TApplication.Run + $96
(0028407F){l2ph.exe    } [133C507F] l2ph.l2ph (Line 88, "" + 26) + $2
------------------------------------------------------------------------------
System   : Windows XP Professional, Version: 5.1, Build: A28, "Service Pack 2"
Processor: Intel, Intel(R) Core(TM)2 CPU          6300  @ 1.86GHz, 1866 MHz MMX 64 bits
Memory: 2047; free 1005
Display  : 1280x1024 pixels, 32 bpp
------------------------------------------------------------------------------
List of loaded modules:
[01090000] E:\L2phx\Phx\LSPprovider.dll
<00400000> (no version info)
[01590000] E:\L2phx\Phx 3.5.x\plugins\PruebaPlugin.dll
<00400000> (no version info)
[13140000] E:\L2phx\Phx 3.5.x\l2ph.exe
           3.5.12.120 - 3.5.12.120
[5B150000] C:\WINDOWS\system32\uxtheme.dll
           6.0.2900.2180 - 6.00.2900.2180 (xpsp_sp2_rtm.040803-2158)
           Biblioteca UxTheme de Microsoft
[66740000] C:\WINDOWS\system32\hnetcfg.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Administrador de configuración de redes domésticas
[719D0000] C:\WINDOWS\system32\mswsock.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Proveedor de servicios de Microsoft Windows Sockets 2.0
[71A10000] C:\WINDOWS\System32\wshtcpip.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Windows Sockets Helper DLL
[71A20000] C:\WINDOWS\system32\WS2HELP.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Ayuda de Windows Socket 2.0 para Windows NT
[71A30000] C:\WINDOWS\system32\WS2_32.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Windows Socket 2.0 32-Bit DLL
[71A50000] C:\WINDOWS\system32\wsock32.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Archivo DLL de 32 bits de Windows Socket
[72F80000] C:\WINDOWS\system32\winspool.drv
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Controlador de administración de colas para Windows
[74DC0000] C:\WINDOWS\system32\RICHED20.DLL
           5.30.23.1228 - 5.30.23.1228
           Rich Text Edit Control, v3.0
[75160000] C:\WINDOWS\system32\msctfime.ime
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Microsoft Text Frame Work Service IME
[76340000] C:\WINDOWS\system32\imm32.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Windows XP IMM32 API Client DLL
[76360000] C:\WINDOWS\system32\comdlg32.dll
           6.0.2900.2180 - 6.00.2900.2180 (xpsp_sp2_rtm.040803-2158)
           DLL de diálogos comunes
[76BB0000] C:\WINDOWS\system32\PSAPI.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Process Status Helper
[770F0000] C:\WINDOWS\system32\oleaut32.dll
           5.1.2600.3266 - 5.1.2600.3266
[773A0000] C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.2982_x-ww_ac3f9c03\comctl32.dll
           6.0.2900.2982 - 6.0 (xpsp.060825-0040)
           User Experience Controls Library
[774B0000] C:\WINDOWS\system32\ole32.dll
           5.1.2600.2726 - 5.1.2600.2726 (xpsp_sp2_gdr.050725-1528)
           Microsoft OLE para Windows
[77BD0000] C:\WINDOWS\system32\version.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Version Checking and File Installation Libraries
[77BE0000] C:\WINDOWS\system32\msvcrt.dll
           7.0.2600.2180 - 7.0.2600.2180 (xpsp_sp2_rtm.040803-2158)
           Windows NT CRT DLL
[77DA0000] C:\WINDOWS\system32\advapi32.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           API base de Windows 32 avanzado
[77E50000] C:\WINDOWS\system32\RPCRT4.dll
           5.1.2600.3173 - 5.1.2600.3173 (xpsp_sp2_qfe.070709-0052)
           Remote Procedure Call Runtime
[77EF0000] C:\WINDOWS\system32\GDI32.dll
           5.1.2600.3099 - 5.1.2600.3099 (xpsp_sp2_qfe.070308-0217)
           GDI Client DLL
[77F40000] C:\WINDOWS\system32\SHLWAPI.dll
           6.0.2900.3020 - 6.00.2900.3020 (xpsp.061023-0222)
           Biblioteca de utilidades de Shell
[7C800000] C:\WINDOWS\system32\kernel32.dll
           5.1.2600.3119 - 5.1.2600.3119 (xpsp_sp2_gdr.070416-1301)
           DLL de cliente API BASE de Windows NT
[7C910000] C:\WINDOWS\system32\ntdll.dll
           5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
           DLL de la capa de Windows NT
[7C9D0000] C:\WINDOWS\system32\shell32.dll
           6.0.2900.2951 - 6.00.2900.2951 (xpsp.060713-0238)
           DLL común del shell de Windows
[7E1E0000] C:\WINDOWS\system32\oledlg.dll
           5.1.2600.3016 - 1.0 (xpsp_sp2_gdr.061016-0148)
           Compatibilidad con interfaz de usuario de OLE 2.0 de Microsoft Windows(TM)
[7E390000] C:\WINDOWS\system32\user32.dll
           5.1.2600.3099 - 5.1.2600.3099 (xpsp_sp2_qfe.070308-0217)
           DLL de cliente USER API de Windows XP
------------------------------------------------------------------------------
Active Controls hierarchy:
TCheckListBox "clbPluginsList"
TGroupBox "GroupBox5"
TfPlugins "fPlugins"
------------------------------------------------------------------------------

Ty, Charly.

PS: L2ph v3.5.12.120

QaK · 19.06.2009, 09:18

charly911, do you have "ps" variable in "var" block in the plugin?

charly911 · 19.06.2009, 09:45

Yes, when i compile it everything seems ok, no errors...
Code:

delphi Код:

library PruebaPlugin;

{$define Release} // для совместимости с релизом пакетхака, при дебуге можно закоментировать

uses
  FastMM4,
  usharedstructs;
const PlayerName = 'PentA';
var                                {version} {revision}
  min_ver_a: array[0..3] of Byte = ( 3,4,1,      46   );
  min_ver: Integer absolute min_ver_a; // минимальная поддерживаемая версия программы
  ps: TPluginStruct; // структура передаваемая в плагин

// Обязательно вызываемая функция.
// Должна вернуть описание плагина,
// заодно может проверить версию программы
function GetPluginInfo(const ver: Integer): PChar; stdcall;
begin
  if ver<min_ver then
    Result:='Демонстрационный Plugin к программе l2phx'+sLineBreak+
            'Для версий 3.4.0+'+sLineBreak+
            'У вас старая версия программы! Плагин не сможет корректно с ней работать!'
  else
    Result:='Демонстрационный Plugin к программе l2phx'+sLineBreak+
            'Для версий 3.4.0+';
end;

// Обязательно вызываемая функция.
// Получает структуру с ссылками на все функции основной программы,
// которые могут вызываться из плагина.
// Если вернёт False то плагин выгружается.
function SetStruct(const struct: TPluginStruct): Boolean; stdcall;
begin
  ps:=struct;
  Result:=True;
end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при установки соединения (cnt) с клиентом (withServer=False) 
// или сервером (withServer=True)
procedure OnConnect(const cnt: Cardinal; // номер соединения
                    const withServer: Boolean); stdcall; // с сервером?
begin

end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при разрыве соединения (cnt) с клиентом (withServer=False)
// или сервером (withServer=True)
procedure OnDisconnect(const cnt: Cardinal; // номер соединения
                       const withServer: Boolean); stdcall; // с сервером?
begin

end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при выгрузке плагине
procedure OnFree; stdcall;
begin

end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при загрузке плагине
procedure OnLoad; stdcall;
var buf : string;
begin
  with ps do
  begin
        buf:=HexToString('4A 00 00 00 00');
        WriteD(buf,2);
        WriteS(buf,'Hola');
        SendPacketStr(buf,ConnectInfo.ConnectID,False);
  end;
end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при вызове скриптовой функции обьявленной в RefreshPrecompile
function OnCallMethod(const MethodName: String; // имя функции в верхнем регистре
                      var Params, // параметры функции
                      FuncResult: Variant // результат функции
         ): Boolean; stdcall; // если вернёт True то дальнейшая
                              // обработка функции прекратиться
begin
  Result:=False; // передаём обработку функции программе
  if MethodName='PI' then begin
    Result:=True; // запрещаем дальнейшую обработку функции в программе
    FuncResult:=Pi;
  end;
end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается перед компиляцией скриптов
function OnRefreshPrecompile(var funcs: TStringArray): Integer; stdcall;
begin
  SetLength(funcs,1); // указываем количество добавляемых в скрипт функций
  funcs[0]:='function Pi:Extended'; // одна из добавляемых функций
end;

// Необязательно вызываемая функция. (может отсутствовать в плагине)
// Вызывается при приходе пакета, параметры:
// cnt - номер соединения
// fromServer - если пакет от сервера равна True, если от клиента то False
// pck - собственно пакет (в виде массива)
procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; var pck: 
  TPacket); stdcall;
begin
  if pck.size<3 then exit; // на случай если предыдущие плагины обнулили пакет
end;

// экспортируем используемые программой функции
exports
  GetPluginInfo,
  SetStruct,
  OnPacket,
  OnConnect,
  OnDisconnect,
  OnLoad,
  OnFree,
  OnCallMethod,
  OnRefreshPrecompile;

begin
end.

Charly.

QaK · 19.06.2009, 09:55

ConnectInfo - where is the description of this variable?