Re: How to print html with ReportBuilder

Author

Message

Sergey Tkachenko

Posted: 05/29/2003 21:31:43

What is the value of StringReplace(QRY_EMP_CONSULTA_CREDITO.FieldByName('dsc_descricao').AsString , #$D#$A, '

', [rfReplaceAll]); ? May be it causes RvHtml to generate incorrect document? > Sergey, > > I made this way. > > I put a TppRichView in the report and the follow code in the beforegenerate > of the detail band: > > procedure TFORM_FICHA_AVALIA_NEW.ppDetailBand3BeforeGenerate(Sender: > TObject); > const > Header = ' content="text/html; charset=windows-1252">';

> Footer = ''; > var Texto: string; > begin > inherited; > try > RvHtmlImporter1.RichView := ppRichView1.RichView; > Texto := > StringReplace(QRY_EMP_CONSULTA_CREDITO.FieldByName('dsc_descricao').AsString > , #$D#$A, '

', [rfReplaceAll]); > > if Pos('', UpperCase(Texto)) > 0 then > RvHtmlImporter1.LoadHtml(Texto) > else > RvHtmlImporter1.LoadHtml(Header + Texto + Footer); > except > end; > end; > > It still gave me an access violation but was enought for me to show plain > text an html from de same query. > > Thanks. > > Tito. > >