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