Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 12.03.2009, 20:44   #1
Пользователь
 
Регистрация: 05.02.2009
Сообщений: 62
Сказал Спасибо: 1
Имеет 18 спасибок в 9 сообщенях
lexayar пока неопределено
По умолчанию Передача указателя на процедуру в DLL

Подскажите плиз, как можно в подключенную к скрипту dll передать параметром указатель на процедуру (функцию).
Никак не получается выполнить ее внутри DLL, такое ощущение что dll в другом адресном пространстве загружается

Добавлено через 8 минут
Пробую так:
script:
Код:
var
  lib: integer;

procedure Init; //Вызывается при включении скрипта
begin
  lib := loadLibrary('dll\Utils\Utils.dll');
  try
    CallFunction(lib,'PacketProcess',1,[@test]);
  finally
    FreeLibrary(lib);
  end;
end;

procedure test;
begin
  showmessage('Test message');
end;
dll:
Код:
type
  TScriptProc = procedure;

procedure PacketProcess(PScriptProc: Pointer);  stdcall;
var
  ScriptProc: TScriptProc;
begin
  ScriptProc := TScriptProc(PScriptProc);
  ScriptProc;
end;

Последний раз редактировалось lexayar, 12.03.2009 в 20:44. Причина: Добавлено сообщение
lexayar вне форума   Ответить с цитированием
 

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 20:34.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!