VPF::получить тип Ole значения в Variant

evgeny

Дата 24.8.2002, 20:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Для работы из дельфи с Оffice-приложениями использую тип Variant.

var WordApp : Variant ;
WordApp := CreateOleObject ('Word.Application') ;

Каким образом узнать , значение какого Ole-типа храниться в переменной Variant. Например:

var WishType : String ;
WishType := ЖелаемаяФункция(WordApp) ;
---------------------------------------------
Результат: WishType = 'Word.Application' ;

Fantasist

Дата 25.8.2002, 11:40 (ссылка)

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

Загрузка ...

Лентяй

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

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

Впрямую никак. В Variant всего лишь сохраняется указатель на интерфейс IDispatch.

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

Волны гасят ветер...

Dapo

Дата 26.8.2002, 12:50 (ссылка)

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

Загрузка ...

Опытный

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

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

не совсем то, что нужно, но думаю отсюда можно плясать:

....
var MyApp:Variant;
....
MyApp:=CreateOleObject('Word.Application');
....
function GetAppName(App:Variant):string;
begin
Result:=App.Name;
end;

В данном случае возвратит 'Microsoft Word'. Тривиально? ;-)

Естесственно будет работать только если переменная - Automation Object иначе - исключение.

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

Pilot Reaction Trainer
Пятнашки под Андроид
Мой блог по AndEngine

Fantasist

Дата 27.8.2002, 11:08 (ссылка)

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

Загрузка ...

Лентяй

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

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

Цитата

В данном случае возвратит 'Microsoft Word'. Тривиально?

Ага, а если объект поддерживает метод/проперти Name в каком-то своем контексте(а может и вообще не поддерживать), и возвратит овощь его знает что? Да и использовать такое имя довольно муторно и не надежно. Я думаю плясать надо от создания класса. Типа:

Код


 TMyOleSrv=class
 protected
     v:Variant;
     fGUID:TGUID;
     fProgID:String;
 public
   constructor Create(ProgID:String);
   begin
      fGUID:=ProgIDToGUID(ProgID); //точно функцию не помню
      fProgID:=ProgID;
      v:=CreateOleObject(ProgID);
   end;

   destructor Destroy;
   begin
      v:=Unassigned;
   end;

   property OleObj:Variant read v; default;
   property GUID:TGUID read fGUID;
   property ProgID:String read ProgID;
 end;

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

Волны гасят ветер...

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