Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поток

9899100 © (2007-10-16 11:44:00)
Уважаемые гуру, подскажите что за беда. Использую в программе компонент 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 12:23:00) [1]
млин точно едрить колотить :(
промучался целый день, а штука в том что отключены stop on delphi exception
и я просто не видел что оно ругается :)

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

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

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

9899100 (2007-10-16 11:56:00) [3]
люююди ну ктонить подскажите что не так?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »