TfrxReport в Dll неработает?

intaari

Добрый день!!!
Решил перемемтить рабочую процедуру построения отчета в DLL.

Procedure GetReport(RepName:string; NPacient:integer);
begin
  if not dmReport.frxReport1.LoadFromFile(RepName)
  then ShowMessage('Файл отчета ''+RepName+'' не загруженна')
  else
   begin
    dmReport.frxReport1.Variables['NPacient']:=NPacient;
    if dmReport.frxReport1.PrepareReport
    then dmReport.frxReport1.ShowReport;
  end;
end;

Выдает ошибку "Access violation at adress 000664c1c in modul DllReport.dll"
В чем причина непойму. пошагово слетает на dmReport.frxReport1.ShowReport.

-=Serg=-

Что такое dmReport? Глобальная переменная? или это объект переданный из основной программы? Подробнее расскажи. Исползуешь ли run-time пакеты?

intaari

dmReport - это DataModule на котором лежат пиктограмки frxClass, frxBDEComponents, frxCross. Больше в Dll ничего нет. В этом unit:

unit rep;

interface

uses
  SysUtils, Classes, frxClass, frxBDEComponents, frxCross, Dialogs;

type
  TdmReport = class(TDataModule)
    frxCrossObject1: TfrxCrossObject;
    frxBDEComponents1: TfrxBDEComponents;
    frxReport1: TfrxReport;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmReport: TdmReport;
  Procedure GetReport(RepName:string; NPacient:integer);
StartDate,StopDate:TDateTime);
implementation

{$R *.dfm}
Procedure GetReport(RepName:string; NPacient:integer);
begin
  if not dmReport.frxReport1.LoadFromFile(RepName)
  then ShowMessage('Файл отчета ''+RepName+'' не загруженна')
  else
   begin
    dmReport.frxReport1.Variables['NPacient']:=NPacient;
    if dmReport.frxReport1.PrepareReport
    then dmReport.frxReport1.ShowReport;
  end;
end;

end.

В самой библиотеке:

library DllReport;

uses
  SysUtils,
  Classes,
  rep in 'rep.pas' {dmReport: TDataModule};

{$R *.RES}
exports GetReport;
begin
end.

В процедуру передается назване файла отчета и переменная типа integer.

-=Den=-

Попробуйте не frxReport1.ShowReport, а frxReport1.ShowPreparedReport.

-=Serg=-

Модуль ShareMem не используешь значит вместо string используй PChar или ShortString (смотри примечание которое появляется при создании новой dll)

intaari

Упростил код, убрал вообще все параметры процедуры

Procedure GetReport;//(RepName:ShortString; NPacient:integer);
begin
  if not dmReport.frxReport1.LoadFromFile('DirOnProcA41.fr3')
  then ShowMessage('Файл отчета ''+RepName+'' не загруженна')
  else
   begin
    dmReport.frxReport1.Variables['NPacient']:=1;
    if dmReport.frxReport1.PrepareReport
    then dmReport.frxReport1.ShowPreparedReport;
  end;
end;

<span style='font-size:14pt;line-height:100%'>Все равно таже ошибка!!!</span>

-=Serg=-

А где создается dmReport?

Посмотри пример в Demos\Dll

intaari

-=Serg=-. Спасибо.
Я посмотрел пример там форма создается, а у меня дата модуль уже создан при проектировании. На что мне обратить внимание на переменную TApplication или на что то другое.

-=Serg=-

Создавай датамодуль динамически. По аналогии с тем как сделано в демке.

intaari

Удалось вызвать отчет следующей процедурой:

Procedure GetReport(A: TApplication);
var
  dmReport: TDataModule1;
begin
  Application.Handle := A.Handle;
  dmReport := TDataModule1.Create(A);
  try
    if not dmReport.frxReport1.LoadFromFile('DirOnProcA41.fr3')
    then ShowMessage('Файл отчета не загруженна')
    else 
      begin
        dmReport.frxReport1.ShowReport;
        dmReport.frxReport1.Variables['NPacient']:=1;
      end;
  finally
    dmReport.Free;
  end;
end;

Как правильно передать параметр в процедуру. Мне необходимо передать имя файла отчета ('DirOnProcA41.fr3') и переменную типа integer. Если можно на примере.