Plugins

[charly911]

uses
FastMM4,
usharedstructs; <-- Here
-------
ConnectInfo : tConnectInfo;

tConnectInfo = packed record
ConnectID:integer;
ConnectName:string[200];
end;
------

[alexteam]

seems like its crashes here

with ps do

coz ps = nil..

so.. its mean that you missed that part.

function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

Добавлено через 4 минуты
your plugin must contain this code (every plugin MUST)

library plugname;
uses
  FastMM4,
  usharedstructs;

var
ps: TPluginStruct;


function GetPluginInfo(const ver: Integer): PChar; stdcall;
begin
    Result:='Plugindescription';
end;

function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

exports
  GetPluginInfo,
  SetStruct;

begin
end.

Добавлено через 11 минут
also. about
ps.ConnectInfo

before using it you must call ps.GoFirstConnection

example

with ps do
begin
  if GoFirstConnection then
  begin    
    //now ConnectInfo contains data of first active connection in ph.
    //so we can use it.

  end
else 
  begin
  //ph dont have intercepted connections.
  end;

end;

Добавлено через 7 минут
we got GoNextConnection function. its used to enumerate all present connections.

example

buf := 'we want send this data to all intercepted connections';
with ps do
  if GoFirstConnection then
    repeat
      SendPacketStr(buf, ConnectInfo.ConnectID, False);
    until GoNextConnection;

[charly911]

Hi alexteam, i have in the plugin all you told me, but i still get an error.
I will describe yo step by step what i did:

Open RAD 2007
File -> New -> Other.. -> DLL Wizard
Paste code.
Build -> OK
Compile -> OK
Copy new dll to {L2phDir}/plugins
Start L2ph
Open L2 -> Login
Conection intercepted
Activate plugin
¡¡ Error !!


Charly.

[alexteam]

can you post it's source ?

[charly911]

Here you are:

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
  if GoFirstConnection then
        begin
                buf:=HexToString('4A 00 00 00 00');
                WriteD(buf,2);
                WriteS(buf,'Hola');
                SendPacketStr(buf,ConnectInfo.ConnectID,False);
        end;
  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.

[alexteam]

one thing... my fail....

function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

[charly911]

ps := struct^; Error : pointer type required o.O

Charly.

[alexteam]

SetStruct(const struct: PPluginStruct)

[charly911]

Compiled, built, but still getting error, im going crazy

Access violation at address 013952C4 in module 'PruebaPlugin.dll'. Write of address 1325C4A0.

Exception class: EAccessViolation
Exception message: Access violation at address 013952C4 in module 'PruebaPlugin.dll'. Write of address 1325C4A0.
Exception address: 013952C4

Charly.

[alexteam]

procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; const connectionname:string; var pck: TPacket); stdcall;

Добавлено через 3 минуты
fully work project.
http://ifile.it/qfbtl7c
i hope its will be usefull.