Проблема при работе с двумя потоками

← →
Артем © (2003-12-12 05:55) [0]

Уважаемые Мастера!Помогите, пожалуйста, решить такую проблему. Дело в том, что при запуске вторго потока
Delphi выдает следующую ошибку:"Project project1.exe raised exception class EOleSysError with
message "Не был произведен вызов Colnitialize"". Что за Colnitialize? В чем здесь проблема?
Заранее всем благодарен.

← →
крот (2003-12-12 07:04) [1]

CoInitialize + F1

← →
Артем © (2003-12-12 11:08) [2]

А что это значит, крот?

← →
Silver Alex © (2003-12-12 11:18) [3]

не морочь себе голову, подключи модуль activex.И в (я так подозреваю) в методе Execute напиши

activex.CoInitialize(nil);
try
...
finally
activex.CoUninitialize;
end;

← →
sniknik © (2003-12-12 11:22) [4]

это значит в потоке испльзуются COM обьекты (ADO к примеру), которым просто необхотим вызов CoInitialize о чем и пишет в ошибке. (по F1 найдеш исчерпывающую инфу).
обойти это не получится (только скрыть, к примеру добавить какой нибудь модуль (DataModule) в котором этот вызов автоматически при инициализации).

← →
Артем © (2003-12-12 17:04) [5]

Проблема с Colnitialize исчезла, но появилась новая:
EOleExeption with message "Вызов был отклонен".
Ребята, помогите, пожалуйста, иначе - я без Вас никак.

← →
sniknik © (2003-12-12 17:16) [6]

> "Вызов был отклонен".
милицию вызывали? обычное дело. если чтото другое то надо знать что и как.

← →
Артем © (2003-12-12 17:50) [7]

В потоке обращаюсь к TWordApplication и TWordDocument, открываю вордовский файл, выполняю некоторые процедуры... В чем здесь может быть проблема?

← →
Silver Alex © (2003-12-12 17:58) [8]

> Артем © (12.12.03 17:50) [7]

через Synchronize?может какие-то мьютексы надо?или там критичесиие секции

← →
panov © (2003-12-12 18:04) [9]

>Артем © (12.12.03 17:50) [7]
А вот теперь без кода уже ничем не помочь...

← →
Артем © (2003-12-12 18:19) [10]

Вот частично код:
procedure TSearchWordThread.Execute; var cl,name,path,fileopen:olevariant; forwd,wr,wholewrd,tr,fndflag:olevariant; i:longint; n:Int64; begin activex.CoInitialize(nil); try cl:=$00000000; forwd:=false; wr:=wdFindStop; wholewrd:=false; tr:=false; for i:=0 to l.items.Count-1 do begin name:=l.items[i].caption; path:=l.items[i].subitems[0]; fileopen:=path+name; n:=0; Wa.Connect; Wa.Documents.Open(fileopen,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); Wd.ConnectTo(Wa.ActiveDocument); Wa.Connect; Wa.Documents.Open(fileopen,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); Wd.ConnectTo(Wa.ActiveDocument); with wd.range.find do begin execute(w,tr,wholewrd,tr,tr,tr,forwd,wr,tr,tr,tr,emptyparam,emptyparam,emptyparam,emptyparam); if found=true then begin n:=n+1; fndflag:=true; while fndflag=true do begin execute(w,tr,wholewrd,tr,tr,tr,forwd,wr,tr,tr,tr,emptyparam,emptyparam,emptyparam,emptyparam); if found=true then begin n:=n+1; fndflag:=true;end else fndflag:=false; end; end; end; wd.close(cl); wd.disconnect; wa.quit; wa.disconnect; it:=i; nu:=n; synchronize(add); end; finally activex.CoUninitialize; end; end; procedure TSearchWordThread.add; begin l.Items[it].subitems.add(inttostr(nu)); end;

ЧТоб тебе вечно пришлось править программы с такими именами переменных!
Вроде все понятно, ты к интерфейсу, созданному в одном потоке, обращаешься из другого. Естественно, будет ругань. Хорошо еще, что не "Критический сбой". Так нельзя, если надо - используй маршалинг

Вот ё-моё! То "Вызов отклонен", то "Размеры после изменения стали слишком малы или велики"...

Romkin, а что такое маршалинг?

Самое простое - вызывай CreateOleObject в методе Execute, и ошибок не будет.
http://www.techvanguards.com/com/tutorials/tips.asp#Marshal interface pointers across apartments

Romkin, Вы не против будете, если я к Вам по почте обращусь?
P.S. Сегодня уже не будет возможности выйти в инет.

Проблема при работе с двумя потоками Найти похожие ветки