Снова KOLWord

← →
max727 (2007-07-18 10:41) [0]

Добрый день всем!
Похожая ветка была, но ка-то заглохла.
Итак
не могу разобраться почему не работает простенькая программка

program HelloWorld; uses KOL, KOLWord; var W:PWordDocument; begin W:=NewWordDocument; W.ObjInvoke( "Add", [], nil ); W.ObjName := "Selection"; W.ObjInvoke( "TypeText", [ sParam("Hello, Wor(L)d!") ], nil ); W.ObjName := "Application"; W.ObjPropBool["Visible"]:=True; MsgOK("По идее должен показаться ворд, но его нет!"); W.Free; end.

а вопрос заключается в следующем:
почему Word-то видимым не становится?

← →
ANTPro © (2007-07-18 17:55) [1]

> [0] max727 (18.07.07 10:41)

Пользваться поиском научись:
http://delphimaster.net/view/11-1182779412/

← →
max727 (2007-07-18 18:39) [2]

2ANTPro
да знаю я про эту ветку
и про эту тоже знаю
http://delphimaster.net/view/11-1161608565/

но ответа на вопрос так и не увидел
(почему ворд видимым не становится?)

← →
Jon © (2007-07-18 19:14) [3]

You must add OleInit before using the object.

← →
max727 (2007-07-19 09:27) [4]

2Jon

OleInit вызывается уже в функции
NewWordDocument

так что такая программа:
program HelloWorld; uses KOL, KOLWord; var W:PWordDocument; begin OleInit; W:=NewWordDocument; W.ObjInvoke( "Add", [], nil ); W.ObjName := "Selection"; W.ObjInvoke( "TypeText", [ sParam("Hello, Wor(L)d!") ], nil ); W.ObjName := "Application"; W.ObjPropBool["Visible"]:=True; MsgOK("По идее должен показаться ворд, но его нет!"); W.Free; OleUnInit; end.

Вдет себя так же

Я так и не понял, в чем ошибка-то?

Вариант с CreateOleObject("Word.Application") будет лучше(но размер больше), примеров с ним больше да и с VCL совместимо.
ЗЫ ИМХО

← →
max727 (2007-07-20 11:02) [6]

да, согласен
вариант с ComObj лучше (гораздо удобнее и работоспособнее)

но мне не дает покоя вопрос:
Почему этот вариант не работает? (хочу много знать)
Знал бы - сам подправил бы модуль
но я не шибко разбираюсь в интерфейсах
поэтому без посторонней помощи мне не обойтись

Снова KOLWord Найти похожие ветки