mainunit.cpp

生成PDF文档的控件

//*******************************************************//
//                                                       //
//       This unit is part of the VISPDF VCL library.    //
//       Written by R.Husske - ALL RIGHTS RESERVED.      //
//                                                       //
//       Copyright (C) 2000-2008, www.vispdf.com         //
//                                                       //
//       e-mail: [e-mail]                      //
//       http://www.vispdf.com                           //
//                                                       //
//*******************************************************//

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;

__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}

void __fastcall TMainForm::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();
}