Plugins

[QaK]

ConnectInfo - where is the description of this variable?

[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 ?

[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.