Текущий архив: 2006.04.09;
Скачать: CL | DM;
Вниз
Открыть документ (изменить) Excel из потока Найти похожие ветки
← →
balepa (2006-03-07 12:51) [0]Subj
← →
balepa (2006-03-07 13:03) [1]Делаю вот так (как я понял неправильно делаю)
procedure MThread.Execute;
var
s: string;
Excel, WorkBook, Sheet: Variant;
begin
//GS:= 0;
Excel := CreateOleObject("Excel.Application.8");
Excel.Visible := False;
Excel.Workbooks.Open("c:\Мои документы\Книга1.xls");
Sheet := Excel.Workbooks[1].WorkSheets[1];
gs:= sheet.cells[1,1]; //[строка, столбец]
//label1.Caption:= s;
Excel.Workbooks.Close;
Excel.Quit;
repeat
// inc(GS);
Synchronize(Form1.UpdateL);
until Terminated = True;
end;
вылазит ошибка: Небыл произведен вызов CoInitialize
← →
Fay © (2006-03-07 13:32) [2]> Небыл произведен вызов CoInitialize
Ну так произведи это вызов! Коран не запрещает. Только вызывать нужно из того же потока.
← →
balepa (2006-03-07 13:41) [3]To: Fay Ну так произведи это вызов! Коран не запрещает. Только вызывать нужно из того же потока.
А я не мусульманин. По этом прошу если вам не трудно посмотрите в библии нет ли такого запрета.
Вынес в отдельную процедуру, и вызвал Synchronize(MyProcedure) подойтет ?
← →
Fay © (2006-03-07 13:44) [4]2 balepa (07.03.06 13:41) [3]
Вынес в отдельную процедуру
Вынес ЧТО?
← →
balepa (2006-03-07 13:52) [5]
> To Fay (07.03.06 13:44)
Вот это:procedure MTHread.F;
var
s: string;
Excel, Sheet: Variant;
begin
Excel:= CreateOleObject("Excel.Application.8");
Excel.Visible := False;
Excel.Workbooks.Open("c:\Мои документы\Книга1.xls");
Sheet := Excel.Workbooks[1].WorkSheets[1];
gs:= sheet.cells[1,1]; //[строка, столбец]
Excel.Workbooks.Close;
Excel.Quit;
end;
вызываю:procedure MThread.Execute;
begin
Synchronize(F);
end;
← →
Fay © (2006-03-07 13:54) [6]2 balepa (07.03.06 13:52) [5]
А зачем тогда поток?!
← →
balepa (2006-03-07 13:59) [7]А это был просто пример
Нужно формировать разные графики сразу (от разных клиентов). Client-Server.
А незнаеш случайно как такое можно в Visual Basic организовать ?
← →
Fay © (2006-03-07 14:04) [8]2 balepa (07.03.06 13:59) [7]
> А это был просто пример
Примеров того, как делать не надо, на форуме и так завались.
Так что там с CoInitialize?
Страницы: 1 вся ветка
Текущий архив: 2006.04.09;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.015 c
