Скачать: CL | DM;

Снова 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.



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

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

---

← →
ANTPro ©   (2007-07-19 22:34) [5]

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c