mainunit.cpp

生成PDF文档的控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StartButtonClick(TObject *Sender)
{
  TMemoryStream* MemStream = new TMemoryStream();

  VPDF->OutputStream = MemStream;           // Set output stream
  VPDF->Compression = cmFlateDecode;        // Set flate compression

  VPDF->BeginDoc(false);                                      // Create PDF file
  VPDF->CurrentPage->PrintText(10, 10, 0, "Hello world !!!"); // Print text
  VPDF->EndDoc();                                             // Close PDF file

  TFileStream* OutputStream = new TFileStream ( "Memory.pdf", fmCreate);
  OutputStream->CopyFrom( MemStream, MemStream->Size );           // Copy from memory
  delete OutputStream;

  delete MemStream;	
}
//---------------------------------------------------------------------------