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

Комментарии

• -=Serg=-

  February 2006 отредактировано 05:33

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

  February 2006 отредактировано February 2006

  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=-

  February 2006 отредактировано 05:33

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

  February 2006 отредактировано 05:33

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

  February 2006 отредактировано 05:33

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

  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=-

  February 2006 отредактировано 05:33

  А где создается dmReport?
  
  Посмотри пример в Demos\Dll
• intaari

  February 2006 отредактировано 05:33

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

  February 2006 отредактировано 05:33

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

  February 2006 отредактировано 05:33

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

  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. Если можно на примере.