Как вызвать GetEnumerator на произвольном типе?

Question

Я пишу элемент управления, который должен иметь возможность отображать любой список данных. То, что я хотел сделать, заключалось в том, чтобы имитировать конструкцию for-in, в которой я проверяю публичную функцию GetEnumerator, которая содержит свойство Current и метод MoveNext.

Я определил следующее:

1. я могу проверить существования метода простого вызова MethodAddress на моем объекте. Если я получаю адрес, метод существует.
2. Я могу использовать RTTI для проверки типа возвращаемого метода.
3. Я могу использовать RTTI, чтобы проверить свойство и прочитать его.

Промежуток, хотя, я пропускаю маленькие кусочки информации:

1. Как вызвать метод, учитывая его адрес? Могу ли я просто написать определение (например, для импорта), указать адрес и назвать его?
2. Проверка возвращаемого типа метода требует вызова GetTypeData с его PTypeInfo. Я получаю PTypeInfo, вызывая TypeInfo для типа. Итак, как мне получить PTypeInfo для данного метода, учитывая только его адрес?

Answer 1

1. Для вызова метода, вы принимаете возвратил адрес и поместил его в указатель кода TMethod. Поместите объект в указатель данных, а затем переведите его в указатель метода с правой подписями.
2. Чтобы проанализировать подпись функции, вам понадобится довольно сложный RTTI. Для получения дополнительной информации см. http://hallvards.blogspot.com/2006/05/hack-10-getting-parameters-of.html. Но обратите внимание на предостережение в стороне дна:

Обратите внимание, что это работает только если экземпляр (или один из его компонентов) также имеет свойство, опубликованную указует на опубликованном метод. хорошей новостью является то, что это имеет место для наиболее существующих опубликованных методов - таких как обработчики событий на экземпляре TForm . Плохая новость заключается в том, что это не было бы в случае любых опубликованных методов, которые мы хотели бы вызвать динамически во время выполнения (и, следовательно, не будет назначен ни одному событию).

То, что вы пытаетесь сделать, может оказаться невозможным при текущей модели RTTI. Но Delphi 2010, как предполагается, имеет расширенную систему RTTI, которая позволит вам делать что-то подобное намного проще, и это связано с RSN. (Раньше был отсчет релиза на сайте Embarcadero, который сегодня отсчитывает до полуночи.Тем не менее, они убрали его, поэтому я не уверен, что это официальная дата релиза или нет.)

Answer 2

Прежде всего обратите внимание, что RTTI доступен только для опубликованных свойств и методов.

Для вызова метода найденного по MethodAdress, просто сделать:

TMyMethod = procedure (Self : TObject; const Param : String); 
... 
var 
    MyMethod : TMyMethod; 
... 
MyMethod := Obj.MethodAdress ('MethodName'); 
if Assigned (MyMethod) then 
    MyMethod (Obj, 'Hallo'); 

Что касается вашего второго вопроса, то это может помочь:

Link