trichview.com

trichview.support




Load from stream RVF


Return to index


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