La2 - ICQ

[alexteam]

00001010 1 0000 ?Init@@YAHPAX@Z
00001060 2 0001 ?addMessage@@YAHKPA_W0@Z

)))

вот те.

скрипт для использования на пт2.

var
initok : boolean;
maskval : array[0..10] of variant;

procedure Init; //will be called on script initialization
begin
initok := ChatLoadAndInit('c:\test\ChatServer.dll');
if not initok then
ShowMessage('Dll Load Fail!!');
end;

procedure Free;
begin
end;

begin
if fromserver and initok then
if pck[1] = #$4a then
begin
readmask('dss',6,maskval);
chatsay(maskval[0],maskval[1],maskval[2]);
end;
end.

[destructor]

во,
какие будут предложения по формату callback функции?

зы:

00001010 1 0000 ?Init@@YAHPAX@Z
00001060 2 0001 ?addMessage@@YAHKPA_W0@Z

ну ***, у всех бывает

[alexteam]

по формату калбек.. хм.. в общем сейчас инит вот такой.
function (saycallback : pointer):integer; stdcall;
допустим туда я буду передавать поинтер на вот такую ф-ю.
function (MsgTypeword; Target, Msg : pchar):boolean;

Добавлено через 9 минут
мла.. напортачил с кодироффкой

Добавлено через 15 минут
нифига не пойму. попытка вывести русский текст в консольку - фигвамс.

Добавлено через 6 минут
эээ млять. в твоей консольке же CP866

[destructor]

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

function (MsgTypeword; Target, Msg : pchar):boolean;

попробую перевести на руский:
BOOL __stdcall CallbackMsg (DWORD Type, wchar_t* Msg);
Type - тут какбы все ясно
Msg - указатель на юникод строчку.

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

эээ млять. в твоей консольке же CP866

вобще то не в моей а в твоей, консолька типа часть твоей ОС,
а кодировку в реестре можеш поднастроить
а у меня обычный printf() того что прислали

а вобще сделано тупо для теста работает\неработает плагин.
если надо допилю до нормальной.

[alexteam]

Сделай вызов такой вот функции поинтер на которую лежит в калбак инита
и добавь для теста вызов каллбэка с заранее известными параметрами (можно прям в ините). и выкладывай сюды. чтобы я мог плагин и скрипт не только поправить, но и протестить.

Добавлено через 3 минуты
про кодировку - я сказал чтобы ты не ругался что русский не отображает.

[destructor]

держи: chatserver.rar

1)выровнял имена экспорта < !
2)то что передаеш в указателе, вызывается прям из init
3)DWORD __stdcall CallbackMsg (DWORD Type, wchar_t* Msg); < возвращаем DWORD, под коды ошибок

[destructor]

так, моя ушел в реал.
завтра буду разбиратся как плагин в пакетхаке включить

[alexteam]

подсунуть длл пакетхаку и отметить галочкой 0_о

Добавлено через 1 минуту
зы.
function (MsgType:Dword; Target, Msg : pchar):boolean;
3 параметра, бла.

[destructor]

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

3 параметра, бла.

этот ваш паскаль нечитаемый какойто,

target это типа имя для пм?

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

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

подсунуть длл пакетхаку и отметить галочкой 0_о

а скрипт тогда накуя?

3 параметра: chatserver.rar

[alexteam]

target это типа имя для пм?

да.

а скрипт тогда накуя?

вопрос был:

завтра буду разбиратся как плагин в пакетхаке включить

а про скрипт -
всунуть в скрипты и тож отметить галочкой -)

скрипт нужен для обработки пакетов и отправки данных в плагин (уже готовых данных)

сам плагин не работает с протоколом. т.е. для адаптации к примеру под интерлюд надо будет поменять одно значение в скрипте не трогая плагин.

под вечер прикручу каллбэк.. а щас - сраный реал (работа)