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::Button1Click(TObject *Sender)
{
	int I;
	TVPDF * SourceDoc;
	int DocLen;

	DestDoc->FileName = DestEdit->Text;
	DestDoc->BeginDoc(false);

	SourceDoc = new TVPDF(NULL);
	try
	{
		DocLen = SourceDoc->LoadFromFile(SourceEdit1->Text); // Load first source document
		for (I = 0; I < DocLen; I++)
		{                                                                          // Copy all pages
			DestDoc->CopyPageFromDocument(SourceDoc, I, (DestDoc->PagesCount - 1));//  from first source
		}                                                                          //  document
	}
	__finally
	{
		delete SourceDoc;
	}

	SourceDoc = new TVPDF(NULL);
	try
	{
		DocLen = SourceDoc->LoadFromFile(SourceEdit2->Text); // Load first source document
		for (I = 0; I < DocLen; I++)
		{                                                                          // Copy all pages
			DestDoc->CopyPageFromDocument(SourceDoc, I, (DestDoc->PagesCount - 1));//  from second source
		}                                                                          //  document
	}
	__finally
	{
		delete SourceDoc;
	}

	SourceDoc = new TVPDF(NULL);
	try
	{
		DocLen = SourceDoc->LoadFromFile(SourceEdit3->Text); // Load first source document
		for (I = 0; I < DocLen; I++)
		{                                                                          // Copy all pages
			DestDoc->CopyPageFromDocument(SourceDoc, I, (DestDoc->PagesCount - 1));//  from third source
		}                                                                          //  document
	}
	__finally
	{
		delete SourceDoc;
	}

	DestDoc->DeletePage(DestDoc->PagesCount - 1); //Delete last empty page
	DestDoc->EndDoc();
}
//---------------------------------------------------------------------------