Прощу помощи с плагином

[Noise]

Доброго времени суток, вот выдалось свободное время и меня снова посещают мысли о написание плагина для l2phx (первый опыт бы не совсем удачный я о нем писал тут), но все равно вернулся и попытался разобраться:

l2phx вылетает с критом проблема в процедуре OnPacket притом изучив множество тем на форуме я понял, что эта процедура у всех разная О_о тем не менее скопировал вариант:

Оффтоп

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

connectionname:string;

Выделенное красным в образце (в этой теме) не было.

После этого свершилось чудо, l2phx перестал критовать при попытке залогиниться. Но появилась новая проблема, пх видит что пакета пришли но pck.pckId всегда содержит разные значения, т.е. пх не понимает какой именно пакет приходит!!! После еще 3х часового поиска по форуму и попыток подобрать рабочий вариант процедуры обнаружил следующее:


Оффтоп

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

var pck: String

Пи изменении типа pсk стал опозновать пакеты (pсk[1]) более того я смог почитать значение чата, но после того как читаю пакет, или пытаюсь его убрать из отправки на сервер (pck.Size := 0; или pck := '';) пх опять критует...

В общем прощу помочь разобраться что именно не так и почему.

Цель гениально простая надо смотреть все пакета чата от клиента (#$38) и записывать из в текстовый файл!
Ну и что бы при этом l2phx не критовал :)))

Весь используемый мной исходный код в этой теме, единственное изменение это параметры метода OnPacket (оно указанно выше (красным выделены изменения))

[supernewbie]

Noise, попробуй юзать общий менеджер памяти (FastMM)

[Noise]

Что значит попробуй юзать? т.е. то что он в юнитах числится этого мало?

uses
  FastMM4 in 'fastmm\FastMM4.pas',
  FastMM4Messages in 'fastmm\FastMM4Messages.pas',
  variants,
  usharedstructs in 'units\usharedstructs.pas',
  Controls,
  Forms,
  Dialogs,
  sysutils,
  Classes;

И без него вообще разве подключается плагин к пх?

[supernewbie]

Noise, достаточно. подключается.
помню я убивал пакет так))
PCardinal(Cardinal(pck)-4)^:=0;
в XE2 при таком выкрутасе утечки нет, в фастмме пх - хз

Добавлено через 7 минут

после того как читаю пакет

читалось нормально у меня, какая делфи у тебя?

[Noise]

У меня D7. Да не проблема не в том что бы убить, даже если не убивать, а просто посмотреть, что в я отправил, то оно все равно критует...
т.е. даже если сделать так:

if not FromServer then and (pck[1] = #$38) then
  showmessage(ps.ReadS(pck, 2)); // еще пробовал pck[2] 
 

То оно выводит содержание чата, но после этого пх критует.

[supernewbie]

Noise, так, сорцы в студию

[Noise]

http://coderx.ru/showpost.php?p=182904&postcount=11


и то что внутри OnPacket:

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

if not FromServer then and (pck[1] = #$38) then
showmessage(ps.ReadS(pck, 2)); // еще пробовал pck[2]

Так что оно у тебя точно есть

[supernewbie]

Noise, исправь
ps:PPluginStruct;
и ps:=struct;

хотя попробуй, мало ли что)

Добавлено через 12 минут
можешь ещё попробовать OnCallMethod заюзать

Добавлено через 8 минут
у меня работает плагин

только в нем ид пакета 49 а не 38

PS пх - 3.5.28.151

[Noise]

Блин я не имею возможности протестировать, у меня только интерлюд клиент...
а в нем say2 это 38, а H5 у меня нету

Покажи плиз содержимое OnPacket ну и usharedstructs тот что у тебя скинь плиз
а еще лучше все сразу, просто очень хочу понять в чем именно у меня косяк возникает!

[supernewbie]

Noise, держи