VPF::вызов конструктора через RTTI - Форум программистов

dvamaster

Дата 2.6.2011, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Доброго времени суток!

Как можно вызвать через RTTI конструктор с параметрами, чтобы создать объект.

Код


var
  rt: TRttiType;
  rm: TRttiMethod;
begin
  Result := false;
  rt := rttic.FindType(FClass);
  if rt = nil then
    begin
      FErrorStr := 'not found class "' + FClass + '"';
      Exit
    end;
  rm := rt.GetMethod('Create');
  if rm = nil then
    begin
      FErrorStr := 'not found method "Create"';
      Exit
    end;

как теперь его вызвать?
Какие параметры использовать в Invoke? результат должен получится как после вызова Create(nil)

Или конструкторы вызываются иначе?

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

CodeMonkey

Дата 2.6.2011, 23:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Ммм.... интереса ради: а зачем такое надо? smile

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

dvamaster

Дата 3.6.2011, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Что-то навроде скриптинга (хранение описания форм в БД).

Сейчас изучаю исходники скриптовых систем

Это сообщение отредактировал(а) dvamaster - 3.6.2011, 06:59

--------------------

THandle

Дата 3.6.2011, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

dvamaster, тут было нечто смежное, может быть будет интересно:

http://forum.vingrad.ru/index.php?showtopi...t&p=1673891
http://forum.vingrad.ru/index.php?showtopi...t&p=1674543
http://forum.vingrad.ru/index.php?showtopi...t&p=1675057
http://forum.vingrad.ru/index.php?showtopi...t&p=1678005

dvamaster

Дата 3.6.2011, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Ура, нашел!!!

http://delphi2010.ru/?p=218

Код


program Project12;
{$APPTYPE CONSOLE}
uses
  Classes, Rtti, TypInfo;
var
  ctx : TRttiContext;
  t : TRttiType;
  Param : TRttiParameter;
  AddMethod : TRttiMethod;
  SL : TValue; // Contains TStringList instance

begin
  ctx := TRttiContext.Create;
  t := ctx.GetType(TStringList.ClassInfo);
  // Create an Instance of TStringList
  SL := t.GetMethod('Create').Invoke(t.AsInstance.MetaclassType,[]);
  // Invoke "Add" and return string representatino of result.
  Writeln(t.GetMethod('Add').Invoke(SL,['Hello World']).ToString);
  // Write out context.
  Writeln((sl.AsObject as TStringList).Text);
  readln;
  ctx.Free;
end.

и еще, формирование параметра TValue

Код


var
  p: TValue;
begin
  TValue.Make(@Application, TypeInfo(TApplication), p);

Это сообщение отредактировал(а) dvamaster - 3.6.2011, 11:11

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »