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

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

← →
wesel ©   (2007-08-27 05:40) [0]

Доброе время суток всем Мастерам!

Создал поток, Примерно так он віглядит в программе:
procedure findthread.Execute;
var
book,sheet,find,rows:integer;
range:variant;
str:array [0..7] of string;
fnd:boolean;
begin
 while not Terminated do
begin
  book:=0;
  find1.BookPos.Max:=find1.LB1.Items.Count;
 while book<find1.LB1.Items.Count do
  begin
  try
  E:= CreateOleObject("Excel.Application");
  except
  end;
  E.workbooks.open(find1.LB1.Items.Strings[book]);
....

Вопрос в том что на последней строке он відает следующее исключение "Не был произведен вызов CoInitialize"  Ошибка EOLESysError

Сам поток запускаеться нормально, Но только стоит попытаться открыть  объект типа ексел, так сразу выдает такое исключение!!!!

Просто как я понял "Программа разделяеться на основной поток и те которые запущены из основного, во второстепеном потоке можно также описывать разные функцие , и вызывать объекты как и в основном потоке программы",

Помогите если я что то не так понял .

---

← →
Slym ©   (2007-08-27 05:57) [1]

begin
if Failed(CoInitialize(nil)) then RaiseLastOSError;
try
  while not Terminated do
........
finally
 CoUninitialize;
end;
end;

---

← →
DrPass ©   (2007-08-27 10:00) [2]

В оффтопик:

> find1.BookPos.Max:=find1.LB1.Items.Count;

Это - компоненты на форме? Будешь так с ними обращаться в потоке - еще не один баг огребешь... :)

---

← →
Slym ©   (2007-08-27 13:54) [3]

Если они не визуальные, то для начала и так работать будет :)

---

← →
DrPass ©   (2007-08-27 16:20) [4]

> Slym ©   (27.08.07 13:54) [3]

Внутренний голос мне подсказывает, что первое - TProgressBar, второе - TListBox :)

---

← →
clickmaker ©   (2007-08-27 17:19) [5]

> if Failed(CoInitialize(nil)) then RaiseLastOSError;

RaiseLastOSError - бессмысленно. Здесь свои коды возврата: E_INVALIDARG, E_OUTOFMEMORY, E_UNEXPECTED, S_OK, E_FAIL

---

← →
Leonid Troyanovsky ©   (2007-08-27 17:58) [6]

> clickmaker ©   (27.08.07 17:19) [5]

> RaiseLastOSError - бессмысленно.

Да и нехорошо без синхронизации-то.

--
Regards, LVT.

---

← →
wesel ©   (2007-08-27 20:29) [7]

Синхронизация идет дальше в коде , когда поиск дает свои результаты, тогда и синхронизирую вывод информации, на форме!!!,


> begin
> if Failed(CoInitialize(nil)) then RaiseLastOSError;
> try
>   while not Terminated do
> ........
> finally
>  CoUninitialize;> end;
> end;

Спасибо за помощь.!!!!  Но кто то может пояснить

> > clickmaker ©   (27.08.07 17:19) [5]
>
> > RaiseLastOSError - бессмысленно.

---

← →
sniknik ©   (2007-08-27 21:21) [8]

> Но кто то может пояснить
[5]
> Здесь свои коды возврата ...
а не через GetLastError как в основном у winapi функций.

---

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

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



Память: 0.47 MB
Время: 0.015 c