Gera��o de PDF com Fortes Reports

Question

Boa tarde pessoal,estou utilizando o Delphi 7 com o Fortes Reports. Sei que o fortes possui a op��o de gerar o relat�rio em PDF mas existe alguma forma de fazer isso sem utilizar o preview. Preciso ge...

Sremulador · Answer

amigo utilize primeiramente o prepare, depois salve o relat�rio, vc podera achar mais detalhes no forum oficial ou no [url]www.produsys.com.br/forum[/url]...

Zooropa · Answer

[quote:34aac72066=�sremulador�]amigo utilize primeiramente o prepare, depois salve o relat�rio, vc podera achar mais detalhes no forum oficial ou no [url]www.produsys.com.br/forum[/url][/quote:34aac72066]Amigo, agrade�o a dica. O f�rum est� com a maioria dos links fora do ar mas eu dei uma lida na documenta��o existente no site e consegui tirar minhas d�vidas. Minha �nica dificuldade � a seguinte: o arquivo .pdf gerado pelo fortes tem 40MB enquanto que o arquivo original n�o chega a 1MB. Existe uma forma de enxugar este arquivo? Detalhe: o arquivo possui tr�s imagens .jpg mas a maior delas ocupa apenas 240Kb. Agrade�o pela ajuda....

Zooropa · Answer

Boa tarde Pessoal,ser� que algu�m pode me ajudar na d�vida acima? Muito obrigado....

Zooropa · Answer

Ol� pessoal, postarei aqui o c�digo que estou utilizando para gerar o PDF...infelizmente ele est� gerando um arquivo com mais de 40MB e o arquivo original tem menos de 1MB.

FrmRelatorio.RLReport1.Prepare;
FrmRelatorio.RLPDFFilter1.FilterPages(FrmRelatorio.RLReport1.Pages);
FrmRelatorio.RLReport1.SaveToFile(Destino);

Ainda estou precisando de ajuda neste caso...se algu�m souber como devo proceder, agrade�o

Sremulador · Answer

amigo, seu relat�rio tem umagens, o problema pode esta ae, se n�o me engano ele n�o indexa alguns itens....

Steve_narancic · Answer

E ai amigo, conseguiste resolver o problema com o tamanho dos arquivos pdf gerados?...

Ivanh · Answer

[code:1:36bdb5e28d]FrmRelatorio.RLReport1.Prepare;FrmRelatorio.RLReport1.DefaultFilter  := RLPDFFilter1;FrmRelatorio.RLReport1.SaveToFile(Destino);[/code:1:36bdb5e28d]Tenta isso...

Steve_narancic · Answer

[quote:84d302eea8=�ivanh�][code:1:84d302eea8]FrmRelatorio.RLReport1.Prepare;FrmRelatorio.RLReport1.DefaultFilter  := RLPDFFilter1;FrmRelatorio.RLReport1.SaveToFile(Destino);[/code:1:84d302eea8]Tenta isso[/quote:84d302eea8]este c�digo n�o seria para salvar o relatorio sem dar o preview?...

Ivanh · Answer

[quote:204c30c171=�steve_narancic�][quote:204c30c171=�ivanh�][code:1:204c30c171]FrmRelatorio.RLReport1.Prepare;FrmRelatorio.RLReport1.DefaultFilter  := RLPDFFilter1;FrmRelatorio.RLReport1.SaveToFile(Destino);[/code:1:204c30c171]Tenta isso[/quote:204c30c171]este c�digo n�o seria para salvar o relatorio sem dar o preview?[/quote:204c30c171][b:204c30c171]Exatamente[/b:204c30c171], naum foi essa a pergunta????...

Sremulador · Answer

amigo o problema maior e que o filtro n�o trata imagens redundantes.

function TRLPDFFilter.WriteBitmap(aBitmap:TBitmap):integer;
var
  begstm:integer;
  endstm:integer;
  lenat :integer;
begin
  lenat:=AddObj;
  Inc(fImageCount);
  if fImageCount>Length(fImages) then
    SetLength(fImages,Length(fImages)*2+ImagesInc);
  fImages[fImageCount-1].ImageObjAt:=BeginObj;
  Result:=fImageCount;
  WriteLn(�/Type/XObject�);
  WriteLn(�/Subtype/Image�);
  WriteLn(�/Width �+IntToStr(aBitmap.Width));
  WriteLn(�/Height �+IntToStr(aBitmap.Height));
  WriteLn(�/ColorSpace/DeviceRGB�);
  WriteLn(�/BitsPerComponent 8�);
  WriteLn(�/Length �+PDF_IndirectObjStr(lenat));
  WriteLn(�/Filter [/ASCIIHexDecode]�);
  begstm:=BeginStream;
  WriteBitmapData(aBitmap);
  WriteLn(�>�);
  endstm:=EndStream;
  BeginShortObj(lenat);
  WriteLn(IntToStr(endstm-begstm));
  EndShortObj;
end;

  function CreateImageObj(aObj:TRLImageObject):integer;
  var
    grp:TGraphic;
    bmp:TBitmap;
    crc:cardinal;
    imf:TRLImageFile;
    i  :integer;
  begin
    crc:=CRC32(aObj.Data);
    i:=0;
    while (i<fImageFiles.Count) and (TRLImageFile(fImageFiles[i]).ImageCRC<>crc) do
      Inc(i);
    if i<fImageFiles.Count then
      Result:=TRLImageFile(fImageFiles[i]).ImageId
    else
    begin
      bmp:=nil;
      grp:=FromMetaGraphic(aObj.Data);
      try
        if grp is TBitmap then
          bmp:=TBitmap(grp)
        else
        begin
          bmp:=NewBitmap(grp.Width,grp.Height);
          bmp.Canvas.Draw(0,0,grp);
        end;
        // retorna o indice da imagem
        Result:=WriteBitmap(bmp);
        imf:=TRLImageFile.Create;
        imf.ImageId :=Result;
        imf.ImageCRC:=crc;
        fImageFiles.Add(imf);
      finally
        if (bmp<>nil) and (bmp<>grp) then
          bmp.free;                
        grp.free;
      end;
    end;  
  end;

se voc� puder dar uma contribuil�ao ser� muito bem vinda

F�rum Gera��o de PDF com Fortes Reports #367761