trichview.support
Load from stream RVF |
Author |
Message |
Ricardo Bas |
Posted: 07/25/2002 14:56:41 (Sorry second post, because of wrong computer date!) I am trying to build a routine which export all existing documents to one document. When i do the export all the contents of the documents are messed up through each other, instead of after each other. I am using the following code; ---------------------------------------------------------------------------- -- rve.InsertText( Chr(13) ); rve.InsertBreak( 3, rvbsline, clRed ); rve.ApplyParaStyle(0); rve.ApplyTextStyle(3); rve.InsertText( 'Overview documents'); rve.InsertBreak( 3, rvbsline, clRed ); rve.InsertText( Chr(13) ); table := TRVTableItemInfo.CreateEx(2,2,rve.RVData); table.Bestwidth := -100; table.cells[0.0].BestWidth := 150; table.cells[0,0].Clear; table.cells[0,0].AddTextNL('Date:', 3,3,3,0); table.cells[0,1].Clear; table.cells[0,0].AddTextNL(DateToStr(Date), 3,3,3,0); ... rve.InsertItem('', table); While not qryData.Eof Do Begin rve.InsertText( Chr( 13 ) ); rve.InsertText( 'Contents:' ); stream := qryData.CreateBlobStream(qryData.FieldByName('Content'), bmRead); rve.InsertRVFFromStream(Stream, rve.ItemCount); stream.free; qryData.Next; end; rve.format; ---------------------------------------------------------------------------- -------------------- Any idea more than welcome. Thanks, Ricardo Bas |
Powered by ABC Amber Outlook Express Converter