VPF::создание экземпляра класса Delphi из скрипта

dvamaster

Дата 5.6.2012, 08:36 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Работать с экземплярами классов созданных самой Delphi не вызывает труда.

Но как создать экземпляр класса Delphi в самом скрипте? т.е. оператором new!

на MSDN нет инфы smile

так работает с экземпляром класса.

Код


function TForm1.GetItemInfo(pstrName: PWideChar; dwReturnMask: LongWord;
  out ppiunkItem, ppti: IInterface): HResult;
var
  od: TObjectDispatch;
begin
  Result := S_FALSE;
  if SameText('Form1', pstrName) then
    begin
      if dwReturnMask and SCRIPTINFO_IUNKNOWN <> 0 then
        begin
          od := TObjectDispatch.Create(Self);
          ppiunkItem := od as IInterface;
          Result := S_OK;
          Exit
        end;
      if dwReturnMask and SCRIPTINFO_ITYPEINFO <> 0 then
        begin
          Result := TYPE_E_ELEMENTNOTFOUND;
          Exit;
        end;
    end;
end;

При вызове в скрипте оператора new с именем класса (например: new TMyObject()) dwReturnMask равен SCRIPTINFO_IUNKNOWN.
И как тут передавать класс?

Может нужно создавать экземпляр класса?
А использован ли оператор new можно определить по pstrName, там будет содержаться имя типа. Тип до этого добавить с помощью AddNamedItem.
Тогда как получить параметры конструктора? (например: new TMyObject("testparam"))

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

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

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

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

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

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