Re: SaveRVFToStream

Return to index

Author

Message

Tobias Thörn

Posted: 01/30/2004 10:22:44

"CCY" <cychia@chrysanth.com> skrev i meddelandet

news:401a0ee4@support.torry.net...

> hi,

> I have tried the following code:

>     ms := TMemoryStream.Create;

>     rve.savervftostream(ms);

>

> but the ms is empt after executing the code. does anyone know why?

>

> best regards,

> Chen Yap

>

>

Are you sure it is empty?

I use a diffrent method that works:

  Stream := TMemoryStream.Create;

  Stream.Position := 0;

  for i := 0 to RVPrint.PagesCount -1 do

  begin

    RVPrint.SavePageAsRVF(Stream, i+1);

    Stream.Position := Stream.Size;

  end;

  Stream.Position := 0;

  rvrh.RichView.LoadRVFFromStream(Stream);

Regards,

Tobias