Re: Problem saving to PDF using RolePDF.

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/13/2004 8:44:39

> var

>   rvPDF:     TRichViewPDF;

>   MemStream: TMemoryStream;

> begin

>   rvPDF := TRichViewPDF.Create(nil);

>   try

>     rvPDF.AutoLaunch := true;

>     rvPDF.CreateOutlines := true;

>     ShowMessage('items: '+IntToStr(rvePad.ItemCount));

>     MemStream := TMemoryStream.Create;

>     try

>       rveSource.SaveRVFToStream(MemStream, false);

// INSERT HERE

  MemStream.Position := 0;

>       rvPDF.RichView.LoadRVFFromStream(MemStream);

>       ShowMessage('Items: '+IntToStr(rvPDF.RichView.ItemCount));

>       rvPDF.SaveToPDFFile('Readme.pdf');

>     finally

>       MemStream.Free;

>     end;

>   finally

>     rvPDF.Free;

>   end;