Проблема при подключении плагина.

[supernewbie]

там устарели плагины чтоли, пробуй как в этих сорцах

[NLObP]

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

Вот кстати скомпиленное мной... у тебя оно нормально будет работать?

Пакетхак падает с ошибкой.

Попробуй мой.

[Noise]

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

там устарели плагины чтоли, пробуй как в этих сорцах

Скорее всего да... скомпили твои сорцы все норм встало, никаких ошибок. Спасибо!

NLObP, Твой работает, спасибо.


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

Вот нашел тут (ссылка)
Но при попытке заблокировать чат:

if not FromServer and (pck[1]=#$38) then pck := '';

Клиент подвисает, пх опять ругается...
Прочитав эту тему
Пробовал сделать так (изменив при этом var pck: string на var pck: TPacket) :

if not FromServer and (pck.pckId=$38) then pck.size := 0;

Все равно фигня...

Добавлено через 2 часа 29 минут
У меня мозг плавится... как прочесть значение чата?

if not FromServer and (pck[1]=#$38) then
text := ps.ReadSEx(pck,3)

Не прокатывает

[supernewbie]

Noise, если у тебя D >= 2010, то все string и char меня на ansitring и ansichar епт

Добавлено через 1 минуту
PS ошибка была из-за:
в посте ксора:
function SetStruct(const struct: TPluginStruct): Boolean; stdcall;
а надо:
function SetStruct(const struct: PPluginStruct): Boolean; stdcall;

Добавлено через 4 минуты
кстати он пакет не юзай, он глючит

юзай OnCallMethod, он е*нуться реализован конечно но вроде робит нормал

[Noise]

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

Noise, если у тебя D >= 2010, то все string и char меня на ansitring и ansichar епт

Добавлено через 1 минуту
PS ошибка была из-за:
в посте ксора:
function SetStruct(const struct: TPluginStruct): Boolean; stdcall;
а надо:
function SetStruct(const struct: PPluginStruct): Boolean; stdcall;

Добавлено через 4 минуты
кстати он пакет не юзай, он глючит

юзай OnCallMethod, он е*нуться реализован конечно но вроде робит нормал

Последнее компилил уже в D7.
Ну тогда щас полезу смотреть что там за OnCallMethod.

Добавлено через 16 минут
К великому сожалению, то что я хочу сделать можно сделать только через OnPacket;
Буду признателен если кто нить подскажет как все таки получить значение чата.

if not FromServer and (pck[1]=#$38) then
text := ps.ReadSEx(pck,3)

Вот так не работает

[Pinko]

http://coderx.ru/showthread.php?t=22...EB%F3%F5%E8%F5

[supernewbie]

Noise, нифига, через onCallMethod можно сделать что угодно
см. http://coderx.ru/showthread.php?t=2415

[Noise]

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

http://coderx.ru/showthread.php?t=22...EB%F3%F5%E8%F5

Прочти тему полностью, а не только последнюю строчку, последнего сообщения.
Интересует как это сделать в методе OnPacket в плагине, а не в простом скрипте.

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

Noise, нифига, через onCallMethod можно сделать что угодно
см. http://coderx.ru/showthread.php?t=2415

В том то и дело, цель была сделать плагин без подключения скриптов, только не спрашивай почему :)

[supernewbie]

Noise, ну юзай он пакет но могут быть проблемы
и юзай там ps.ReadS(2)

[Noise]

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

Noise, ну юзай он пакет но могут быть проблемы
и юзай там ps.ReadS(2)

В ReadS передается 2 параметра первый сам пакет, второй индекс.
Хотя и так, и этак все равно не получается получить значение чата