| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

OLE в KOL/MCK [Delphi, Windows]

JT ©   (2004-11-05 08:59:00) 

Доброго времени суток! Есть такая проблема:

usesComObj;

var Excel : Variant;

procedureTForm1.Button1Click(Sender : TObject);
begin
Excel:=CreateOleObject('Excel.Application.11');
Excel.Visible:=True;
end;

procedureTForm1.Button2Click(Sender : TObject);
begin
if notVarIsEmpty(Excel) thenExcel.Quit;
end;


В VCL проекте всё это прекрасно работает, а вот в KOL при вызове функции CreateOleObject возникает исключение - чего то там насчёт вызова CoInitialize - точно текст мессаги не помню. Народ, подскажите пожалуйста, чего я не так делаю?

---

JT   (2004-11-09 10:27:00) [1]

Бальшое пасиба!!! Извиняюсь, что отвечаю с такими интервалами - ну нет у меня дома инета.

---

DmiSb   (2004-11-05 10:27:00) [2]

Я делал так

uses .....,ComObj;

.....
var WorkBook, Sheet: Variant;
 exl: OleVariant;
 fileName: String;
begin
 KOL.OleInit;
 fileName:= '1.xls';
 exl := CreateOleObject('Excel.Application');
 exl.DisplayAlerts := false;
 WorkBook := exl.Application.WorkBooks.Add(filename);
 Sheet := WorkBook.WorkSheets[1];
 ....

 ....
 exl.visible:=true;
 exl.Application.ActiveWorkBook.Saveas(filename);
end;

Будут вопросы, звони  :0)

---

mdw   (2004-11-05 10:22:00) [3]

Так вызови сначала CoInitialize.

---

Наверх