| Azret |
| Отправлено: 25.06.2004, 20:54 |
|
Не зарегистрирован
|
Прошу прошения за навязчивость, но проблема не терпит отлагательств!
Привожу код тестовой програмки:
Главная форма:
------ h — файл ---------
раздел "__published:"
TButton *bGO;
void __fastcall bGOClick(TObject *Sender);
раздел "public:"
void __fastcall TurnThread(TObject *Sender); //Сообщение о завершении процесса.
__fastcall TfMain(TComponent* Owner);
Остальное — как обычно.
----- cpp — файл --------
void __fastcall TfMain::bGOClick(TObject *Sender) // Нажатие на кнопку bGO
{
MyThread *tCalc = new MyThread(true);
tCalc->OnTerminate = TurnThread;
tCalc->FreeOnTerminate = true;
tCalc->Resume();
}
//---------------------------------------------------------------------------
void __fastcall TfMain::TurnThread(TObject *Sender)
{
ShowMessage("End thread!");
}
//---------------------------------------------------------------------------
/*********************************/
/*********** Код потока ***********/
в H-файл добавил только:
#include
Код cpp — файла:
void __fastcall MyThread::Execute()
{
Variant ExcelApp = Variant::CreateObject("Excel.Application"); // Ошибка фиксируется на этой строке.
ExcelApp.OlePropertySet("Visible", true);
}
Сообщение об ошибке (EOleSysError): "не был произведён вызов CoInitialize"
Подскажите, пожалуйста, где "грабли"! |
|
| Azret |
| Отправлено: 27.06.2004, 10:59 |
|
Не зарегистрирован
|
На других форумах получил исчерпывающий ответ!
"в начале MyThread::Execute() вызов CoInitialize(0), а в конце CoUninitialize()"
Вопрос снят с рассмотрения! |
|
|
