Ошибка при закрытие Adoquery1.Close

Dremlin13

Здравствуйте.
У меня следующий вопрос.
Есть код:

var
Stream1: TMemoryStream;begin
Adoquery1.Close;
Adoquery1.Parameters.ParamByName('p1).Value:= 1;
Adoquery1.Open;

Stream1:= TMemoryStream.Create;

FastReport1.PrepareReport;

FastReport2.SaveToStream(Stream1, True, True);
Stream1.Position:= 0;

FastReport1.LoadFromStream(Stream1);

FastReport1.PrepareReport(False);

FastReport1.ShowPreparedReport;

Stream1.Free;

<span style='color:red'>Adoquery1.Close;</span>
end;

Есть два FastReport'а в обоих хранятся шаблоны отчетов, ссылающиеся на один и тот же DataSet (Adoquery1). После создания и отображения композитного отчета возникает ошибка 'Stack overflow' при закрытии DataSet'а (AdoQuery1).

Именно если добавляется и подготавливается 2-ой отчет, после FastReport1.PrepareReport(False), возникает ошибка при отработке AdoQuery1.Close.

-=Den=-

Проверил на своей базе, всё работает.
Как подключаетесь к БД через какой драйвер и т.д. ?

gpi

Случайно не D5 без ADOupdate?

Dremlin13

У меня стоит Delphi 6 Upd2.

Dremlin13

Всем спасибо за ответы. Организация купила FastReport v. 3.19. Поставил его, и никаких проблем. До этого стоял 3.18 Trial.