Re: SaveRVFToStream

Return to index

Author

Message

Tobias Th�rn

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

"CCY" <[email protected]> skrev i meddelandet

news:[email protected]...

> 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