0

Quero criar um gerador de relatório no meu sistema, permitindo assim o usuário personalizar o layout do relatório.

Preciso salvar estes relatórios no banco de dados para que ele seja acessível para todos os computadores da rede.
(não tem como ser com pasta compartilhada)

Quando eu faço LoadFromFile ou LoadFromStream esta dando Exceptions EAccessViolation e/ou Invalid floating point operation

Código:

procedure TForm2.FormCreate(Sender: TObject);
    begin
      frxReport1.DesignReportInPanel(Panel1);
      frxReport1.DataSets.Clear;
    end;

{relatorio <-> arquivo}
procedure TForm2.LoadfromFile1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    frxReport1.Clear;
    frxReport1.DataSets.Clear;
    frxReport1.LoadFromFile(OpenDialog1.FileName);
    frxReport1.Designer.Update;
    frxReport1.Designer.UpdatePage;
    frxReport1.Designer.UpdateControlState;
  end;
end;

procedure TForm2.gravar1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    frxReport1.SaveToFile(SaveDialog1.FileName);
end;

{relatório <-> DB}
procedure TForm2.mniLoadfromDB1Click(Sender: TObject);
var
  ms: TStringStream;
begin
  if not ZConnection1.Connected then
    ZConnection1.Connect;
  sds1.Close;
  sds1.Open;
  sds2.Close;
  sds2.ParamByName('id').AsInteger := sds1ID_GRELATORIO.AsInteger;
  sds2.Open;
  frxReport1.Clear;
  pFinalizaDatasets;
  //O Field report deve ser convertido para String pois o zeos retorna
  // Blob como TWideMemoField o que causa erro se transferimos diretamente para stream
  frxReport1.LoadFromStream(TStringStream.Create(sds1REPORT.AsString));
  //frxReport1.DesignReportInPanel(Panel1);

  //frxReport1.DataSets.Clear;
  //sds2.First;
  //while not sds2.Eof do
  //begin
  //  pAddDataSet(sds2NOME.AsString,sds2COMANDO_SQL.AsString);
  //  sds2.Next;
  //end;
  frxReport1.Designer.Update;
  frxReport1.Designer.UpdatePage;
  frxReport1.Designer.UpdateControlState;
  frxReport1.Designer.UpdateDataTree;
end;



procedure TForm2.pFinalizaDatasets;
var
  I: Integer;
begin
  for I := 0 to frxReport1.DataSets.Count - 1 do
  begin
    if Assigned(frxReport1.DataSets[i].DataSet)
      and (TfrxDBDataset(frxReport1.DataSets[i].DataSet).DataSet is TZReadOnlyQuery )then
    begin
      TZReadOnlyQuery(TfrxDBDataset(frxReport1.DataSets[i].DataSet).DataSet).Close;
      TfrxDBDataset(frxReport1.DataSets[i].DataSet).DataSet.Free;
      TfrxDBDataset(frxReport1.DataSets[i].DataSet).Free;
    end;
  end;
  frxReport1.DataSets.Clear;

end;

procedure TForm2.mnisavefromdb1Click(Sender: TObject);
var
  ms: TMemoryStream;
  I: Integer;
begin
  if not ZConnection1.Connected then
    ZConnection1.Connect;
  sds1.Close;
  sds1.Open;
  sds2.Close;
  sds2.Open;
  ms := TMemoryStream.Create;

  sds1.Insert;
  sds1NOME.AsString := Text;
  frxReport1.SaveToStream(ms);
  ms.Position := 0;
  sds1REPORT.LoadFromStream(ms);
  sds1FK_CATEGORIA.AsInteger := 1;
  sds1.Post;

  for I := 0 to frxReport1.DataSets.Count - 1 do
  begin
    sds2.Insert;
    sds2NOME.AsString := TfrxDBDataset(frxReport1.DataSets[i].DataSet).UserName;
    sds2COMANDO_SQL.AsString :=
      tzreadonlyquery(TfrxDBDataset(frxReport1.DataSets[i].DataSet).dataset).sql.text;
    sds2FK_GRELATORIO.AsInteger := sds1ID_GRELATORIO.AsInteger;
    sds2.Post;
  end;
  ms.Free;

end;

Função do FastReport que levanta exceção:

function TfrxPaperXProperty.GetValue: String;
var
  e: Extended;
begin
  e := GetFloatValue;
  case TfrxDesignerForm(Designer).Units of
    duCM: e := e / 10;
    duInches: e := e / 25.4;
    duPixels: e := e * 96 / 25.4;
    duChars: e := e * 96 / 25.4 / FRatio;
  end;

  if e = Int(e) then
  Result := FloatToStr(e) else
  Result := Format('%f', [e]);

end;

Report do madException:

registered owner   : infra / Microsoft
operating system   : Windows 7 x64 Service Pack 1 build 7601
system language    : Portuguese
system up time     : 6 days 3 hours
program up time    : 3 seconds
processors         : 4x Intel(R) Core(TM) i5-4440S CPU @ 2.80GHz
physical memory    : 4176/8109 MB (free/total)
free disk space    : (C:) 610,11 GB
display mode       : 1440x900, 32 bit
process id         : $1b38
allocated memory   : 71,96 MB
largest free block : 1,08 GB
executable         : prjTeste.exe
exec. date/time    : 2015-12-24 11:35
compiled with      : Delphi 2009
madExcept version  : 4.0.12
callstack crc      : $0134efd3, $cd3301a9, $cd3301a9
exception number   : 1
exception class    : EAccessViolation
exception message  : Access violation at address 005DBDDF in module 'prjTeste.exe'. Read of address 0000003C.

main thread ($1538):
005dbddf +02b prjTeste.exe frxClass        4629  +8 TfrxComponent.GetReport
00627b07 +01b prjTeste.exe frxDesgnEditors  891  +2 TfrxDataSetProperty.GetValue
005fe3dd +019 prjTeste.exe frxInsp          486  +1 TfrxObjectInspector.GetValue
005ff5ae +0f6 prjTeste.exe frxInsp          958 +24 TfrxObjectInspector.PBMouseMove
00511891 +025 prjTeste.exe Controls                 TControl.MouseMove
0051190e +06e prjTeste.exe Controls                 TControl.WMMouseMove
00511012 +2d2 prjTeste.exe Controls                 TControl.WndProc
00510c38 +024 prjTeste.exe Controls                 TControl.Perform
00514d2a +0ae prjTeste.exe Controls                 GetControlAtPos
00514df2 +0a6 prjTeste.exe Controls                 TWinControl.ControlAtPos
00510c38 +024 prjTeste.exe Controls                 TControl.Perform
00514ea7 +097 prjTeste.exe Controls                 TWinControl.IsControlMouseMsg
005153c2 +3be prjTeste.exe Controls                 TWinControl.WndProc
00514c30 +02c prjTeste.exe Controls                 TWinControl.MainWndProc
00499300 +014 prjTeste.exe Classes                  StdWndProc
76ea7895 +00a USER32.dll                            DispatchMessageW
0053351d +11d prjTeste.exe Forms                    TApplication.ProcessMessage
00533562 +00a prjTeste.exe Forms                    TApplication.HandleMessage
0053388d +0c9 prjTeste.exe Forms                    TApplication.Run
00797531 +049 prjTeste.exe prjTeste          18  +4 initialization
76553378 +010 kernel32.dll                          BaseThreadInitThunk

--------------------------------------------------------------------------

registered owner   : infra / Microsoft
operating system   : Windows 7 x64 Service Pack 1 build 7601
system language    : Portuguese
system up time     : 6 days 3 hours
program up time    : 12 seconds
processors         : 4x Intel(R) Core(TM) i5-4440S CPU @ 2.80GHz
physical memory    : 4123/8109 MB (free/total)
free disk space    : (C:) 610,11 GB
display mode       : 1440x900, 32 bit
process id         : $2344
allocated memory   : 86,75 MB
largest free block : 805,31 MB
executable         : prjTeste.exe
exec. date/time    : 2015-12-24 11:35
compiled with      : Delphi 2009
madExcept version  : 4.0.12
callstack crc      : $2f0c432c, $4c6dd36f, $4c6dd36f
exception number   : 1
exception class    : EAccessViolation
exception message  : Access violation at address 006279C1 in module 'prjTeste.exe'. Read of address 6E04ECC6.

main thread ($2008):
006279c1 +00d prjTeste.exe frxDesgnEditors 845  +2 TfrxPictureProperty.GetValue
005fe3dd +019 prjTeste.exe frxInsp         486  +1 TfrxObjectInspector.GetValue
005ff5ae +0f6 prjTeste.exe frxInsp         958 +24 TfrxObjectInspector.PBMouseMove
00511891 +025 prjTeste.exe Controls                TControl.MouseMove
0051190e +06e prjTeste.exe Controls                TControl.WMMouseMove
00511012 +2d2 prjTeste.exe Controls                TControl.WndProc
00510c38 +024 prjTeste.exe Controls                TControl.Perform
00514d2a +0ae prjTeste.exe Controls                GetControlAtPos
00514df2 +0a6 prjTeste.exe Controls                TWinControl.ControlAtPos
00510c38 +024 prjTeste.exe Controls                TControl.Perform
00514ea7 +097 prjTeste.exe Controls                TWinControl.IsControlMouseMsg
005153c2 +3be prjTeste.exe Controls                TWinControl.WndProc
00514c30 +02c prjTeste.exe Controls                TWinControl.MainWndProc
00499300 +014 prjTeste.exe Classes                 StdWndProc
76ea7895 +00a USER32.dll                           DispatchMessageW
0053351d +11d prjTeste.exe Forms                   TApplication.ProcessMessage
00533562 +00a prjTeste.exe Forms                   TApplication.HandleMessage
0053388d +0c9 prjTeste.exe Forms                   TApplication.Run
00797531 +049 prjTeste.exe prjTeste         18  +4 initialization
76553378 +010 kernel32.dll                         BaseThreadInitThunk

1 Resposta 1

-1

Após chamar o relatório através de "LoadFromFile", você não precisa chamar "Update", basta chamar "DesignReport" para abrir o leiaute do relatório.

Eu já utilizo o FastReport como um construtor de relatórios para o usuário há 10 anos e sempre funcionou perfeitamente.

Espero ter ajudado!

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .