Решил встроить Lua в свой проект и тут же наткнулся на то обстоятельство, что из скрипта не могу вызвать метод объекта.
Т.е. могу (спс @!!ex и Servy) но несколько извращенным способом через чтение какого-нибудь свойства объекта.




При исполнении скрипта, в котором вызывается print(); появляется сообщение, что метод найден в нужном классе. Проблема в том, что я не умею вызвать метод объекта О по названию метода Method. Помнится, где-то на этом форуме встречал как это делается, но тема потерялась и всё забылось :(
Собственно вопрос: Как вызвать метод, имея ссылку на объект и название метода.

В случае если так сделать не удастся, есть еще вариант с глобальным (точнее "внутримодульным") массивом, в который будут храниться ссылки на методы. Тогда связывающая функция будет передавать не ссылку на объект и название метода, а только индекс из этого массива.

Второй вариант не нравится из-за этого массива, как-то он не вписывается в концепцию ООП, хотя и работать вроде должно быстрее и проблем меньше.

Я ниче не понял по тексту и по коду. Могу только сказать как у меня сделано:




вызов метода из скрипта:
ClassMethod(MyClass,10);

Как скрипт узнает MyClass - это другой вопрос. Лично я передаю его в функции.

Но ведь тебе на каждый метод надо писать отдельную функцию связки?

По моему коду. Вот я задумал заменить функцию print на свой метод формы Form1.print. Я получаю ссылку на объект Form1:
p1 := IntToStr(LongInt(AObject));
Название функции AObjectMethodName='print' у меня есть.
В луа выполняю такой скрипт:


Таким образом стандартный print я заменяю на вызов своей функции CallDelphiObjectsMethod и в качетсве параметров передаю ссылку на объект:
O := TObject(StrToInt(string(lua_tostring(L, 1)))); // Form1
и имя метода:
Method := lua_tostring(L, 2); // "print"
Теперь проблема в том, чтобы этот метод вызвать.

Кстати, можно узнать откуда такая работа с lua_pop?
По документации http://www.lua.org/manual/5.1/manual.html
Pops n elements from the stack.
И в примерах нигде с "-" эту ф-цию не встречал.

> [2] ggg ©   (22.12.08 05:15)

Не вижу проблем в функциях прослойках. Ето первое.
Поиск метода в списке - это медленно. Ето второе. Мой вариант буедт быстрее. и при большом количестве методов - заметно быстрее.


> [3] ggg ©   (22.12.08 05:54)

У меня тоже сначала положительные числа стояли... Потом выяснилось что это не работает... где то увидел что отрицательные. заменил. заработало.

> У меня тоже сначала положительные числа стояли... Потом
> выяснилось что это не работает... где то увидел что отрицательные.
> заменил. заработало.

Это не говорит, что "-" это правильно. Вполне возможно что это НЕ правильно. Слишком мало я еще ханимаюсь Луа.

Да, мой вариант помедленнее, зато универсальнее. Если скорость не критична, вполне можно использовать.




С lua_pop вроде всё нормально, убирает n последних элементов из стека.

> Проблема в том, что я не умею вызвать метод объекта О по
> названию метода Method. Помнится, где-то на этом форуме
> встречал как это делается, но тема потерялась и всё забылось
> :(


В меру моего недосконального знания, Делфи позволяет runtime получить указатель на адрес метода по имени. Однако, чтобы вызвать метод, ему надо передать параметры с использованием calling conversion, принятой этим методом, а сделать это правильным образом не представляется возможным, так как храниться только адрес метода, но не его параметры и способ их передачи.

Соответственно (возможно бесполезное) желание порулить делфевыми объектами из lua полностью успехом увенчаться не может. Однако, есть альтернативные варианты, одну из вариаций вы изложили в [6], с "ручной" регистрацией всех нужных методов (для каждого метода нужно вызвать AddObjectMethod). Однако, реализация в [6] довольно странная:

1. Там регистрируется не просто метод объекта, а метод в связке с объектом. TLUAExternObjectMethodAddress занимает 8 байт, хранит указатель на экземпляр класса, для которого вызывать метод (который передавать в Self), и адрес собственно метода. Таким образом, я могу вызывать метод print только для одного экземпляра - какое же это ООП?

2. Список параметров странный. Как будет выглядеть вызов зарегестрированного TForm1.print() в луа? Судя по всем "print(text);" - тоже совсем не похоже на ООП, объект (экземпляр) отсутствует :).

3. Все методы получают по сути один параметр - окружение луа, а настоящие параметры должны оттуда выковыривать сами, что не представляется удобным).

Так что, решение [1] выглядит более разумным.

Еще бы генератор прослоек написать, чтобы все время руками их не набивать ;). Да как т.н. эксперт в Делфи встроить, чтобы по хоткею переходники генерировала, было б удобно.

И Obj:=TMyClass(lua_tonumber(State,-2));
tonumber немного смущает, видимо объект по сути представляет число в типах lua. А для числа определены, например, сложение и вычитание :). Понятно, что если к числу, которое на самом деле указатель, прибавить что-то, то есть хороший шанс в программе словить AV. Ясно, конечно, что скриптописатель "сам дурак", однако есть возможность непозволить ему напортачить - тип userdata в луа, все операции для которого вы устанавливаете (или не устанавливаете) самостоятельно.


> вызов метода из скрипта:
> ClassMethod(MyClass,10);


Если я правильно помню мануал по луа, то эта запись эквивалентна следующей:




Этот вариант записи в контексте ООП выглядит более привычно.

> Если я правильно помню мануал по луа, то эта запись эквивалентна
> следующей:
>
> MyClass.ClassMethod(10);
>
> Этот вариант записи в контексте ООП выглядит более привычно.

Вот только MyClass не является классом с точки зрения Lua, так что такая запись работать не будет.

Хотя стоп. Может я и не прав... Проверю.
Только не
MyClass.ClassMethod(10);
а
MyClass:ClassMethod(10);

> [9]


Да нет, судя по всему это меня подвела память.

A call v:name(args) is syntactic sugar for v.name(v,args), except that v is evaluated only once.

Таким образом, v должен быть либо таблицей, у которого есть ключ name со значением типа function, либо для v должен быть перекрыт "index" метаметод, который будет возвращать нужную функцию. То есть, без дополнительных ухищрений, такой синтаксис использовать нельзя.

> [10] Servy ©   (23.12.08 15:22)

Да, именно это я и имел ввиду.

В принципе ничего не мещает передавать MyClass не как указатель на класс, а как таблицу.
Сути это сильно не поменяет. Только какую функцию вызывать будет уже решать таблица, а не сам кодер.

Тогда код функции будет выглядеть немного страшно:
function TMyClass:ClssMethod(Value)
 TMyClass_ClassMethod(self.classPointer, Value);
end;

Зато вызов вполне себе красиво:
MyClass:ClassMethod(10);
И все. красота.

Однако добавление метода в Lua уже не будет таким тривиальным. Потому что надо будет построить таблицу и ее передать...

сделал. Работает.
http://pda.delphimaster.net/?n=3&id=1230126644