Поток

← →
9899100 (2007-10-16 11:44) [0]

Уважаемые гуру, подскажите что за беда. Использую в программе компонент TEkRTF для формирования отчета в формате RTF все работает замечательно, но как тока я засовываю строки формирования отчета в поток.... файл отчета не создается
вот кусок кода:
(если в процедуре основного потока программы)
Procedure TForm1.Report;
Var rtf:TEkRTF;
Begin
Rtf:=TEkRTF.Create(nil);
Rtf.InFile:="shablon.rtf";
Rtf.OutFile:="out.rtf";
Rtf.Execute([Od]); //Od - TQuery
End;

Ежели я делаю
Type TMyThread=Class(TThread)
private
protected
Procedure Execute;
end;
....
Procedure TMyThread.Execute;
Var rtf:TEkRTF;
Begin
FreeOnTerminate;=True;
While not Terminated do
Begin
If Form1.Od.Active Then
Begin
.....
Rtf:=TEkRTF.Create(nil);
Rtf.InFile:="shablon.rtf";
Rtf.OutFile:="out.rtf";
Rtf.Execute([Od]);
....
Rtf.Free;
end;
end;
End;

от тут после вызова rtf.Execute([Od]);
ничего не происходит, т.е. файлик не создается (как в первом случае) и при трассировке, выполнение операторов после этой строчки тоже не происходит. Программа не виснет, все ОК, т.е. при открытии запроса поток подхватывает его, дальнейшие откртытия запоса, тоже все ок, т.е. программа работает намана , но рез-тата нет :(
В чем прикол??

← →
9899100 (2007-10-16 11:56) [1]

люююди ну ктонить подскажите что не так?

← →
Сергей М. © (2007-10-16 12:02) [2]

> В чем прикол?

"Прикол" - в исключении, которое возбуждается при выполнении строчки rtf.Execute([Od]);

← →
9899100 (2007-10-16 12:23) [3]

млин точно едрить колотить :(
промучался целый день, а штука в том что отключены stop on delphi exception
и я просто не видел что оно ругается :)

Поток Найти похожие ветки