Cara Menggabungkan File PDF di Delphi dan VB.Net

Untuk menggabungkan atau join file PDF anda bisa menggunakan DebEnuQuickPDF Library versi Lite yang bisa anda dapatkan secara gratis. Untuk versi lite berdasar tutorial yang ada dari software tersebut join file PDF hanya bisa 2 file, tapi dengan teknik tertentu anda bisa menggabungkan file PDF tersebut secara tak terbatas.

Prosedur Instalasi

Install file instalasi yang anda download tersebut seperti biasa. Karena komponen tersebut adalah komponen activeX dll anda harus meregister dahulu ke dalam sistem dengan perintah regsvr32. Buka command prompt anda(untuk versi Windows 7 ke atas harus run sebagai administrator) lalu ketik perintah:


regsvr32 "C:\Program Files\Debenu\PDF Library\Lite\DebenuPDFLibraryLite1114.dll" atau
regsvr32 "C:\Program Files (x86)\Debenu\PDF Library\Lite\DebenuPDFLibraryLite1114.dll" untuk Windows 64bit.

Cara Menggabungkan File PDF di Delphi

Seperti penjelasan di atas, karena software ini adalah activeX komponen maka anda harus mengimport library dari komponen tersebut. Untuk itu anda harus melakukan langkah-langkah berikut:

  • Buka delphi anda lalu klik menu Componen->Import Component.
  • Jika sudah tampil gambar berikut:
    Import Component DebEnu
    Pilih import type Library lalu klik next.
  • Pilih DebEnu Quick PDF Library(Lite Edition) seperti yang terlihat gambar berikut:
    AddDebEnuActivex
    Setelah itu klik next:
  • Akan tampil form berikut:
    Import Component DebEnu Class
    Klik next saja untuk melanjutkan
  • Akan keluar tampilan seperti berikut:
    Import DebEnu Create Unit
    Pilih Create Unit lalu tekan tombol Finish.

Akan terbentuk Unit baru dengan nama DebenuPDFLibraryAX0911_TLB. Pastikan Path dari Unit DebenuPDFLibraryAX0911_TLB tersebut ada di Library Path Environment Delphi anda.

Langkah berikutnya kita membuat prosedur untuk menggabungkan PDF tersebut. Tambahkan unit DebenuPDFLibraryAX0911_TLB ke bagian uses Delphi anda lalu ketik perintah berikut:


procedure TForm1.JoinPDF(pdflib: TPDFLibrary; listFile: TStrings; SaveFilename: string);
var i,selectedId,NextSelectedId:Integer;
begin
pdflib.LoadFromFile(listFile[0],'');
selectedId:=pdflib.SelectedDocument;

for i:=1 to listFile.Count-1 do
begin
  pdflib.LoadFromFile(listFile[i],'');
  NextSelectedId:=pdflib.SelectedDocument;
  pdflib.SelectDocument(selectedId);
  pdflib.MergeDocument(NextSelectedId);
end;
pdflib.SaveToFile(SaveFilename);

end;

Eksekusi prosedur di atas misal saat button klik:


procedure TForm1.btn2Click(Sender: TObject);
var pdfLib:TPDFLibrary;
begin
if dlgSave1.Execute() then
begin
pdflib:=TPDFLibrary.Create(nil);
  try
    JoinPDF(pdfLib,lst1.Items,dlgSave1.FileName);
    ShowMessage('Join PDF Selesai');
  finally
  pdfLib.Free;
  end;
end;

Cara Menggabungkan File PDF di VB.NET

Sama seperti halnya delphi, untuk memakai DebEnu Quick PDF Library di VB.Net anda harus menambahkan reference di project anda. Klik kanan di Solution Explorer Project anda lalu klik add reference seperti berikut:

Add Reference VB.Net

Jika sudah selesai pilih tab type libraries lalu centang DebEnu Quick PDF Library(Lite Edition) seperti gambar berikut:

Add Reference DebEnu VB.NET

Jika sudah selesai, buat prosedur berikut di VB.Net anda:


Private Sub JoinPDF(pdflib As DebenuPDFLibraryLite1114.PDFLibrary, items As String(), SaveFileName As String)
        pdflib.LoadFromFile(ListBox1.Items(0), "")
        Dim firstdocid As Integer = pdflib.SelectedDocument
        Dim i As Integer
        For i = 1 To items.Count - 1
            pdflib.LoadFromFile(items(i), "")
            Dim nextDocId As Integer = pdflib.SelectedDocument
            pdflib.SelectDocument(firstdocid)
            pdflib.MergeDocument(nextDocId)
        Next
        pdflib.SaveToFile(SaveFileName)
    End Sub

Eksekusi prosedur di atas misal saat button klik:


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim PDFLibrary As DebenuPDFLibraryLite1114.PDFLibrary
            PDFLibrary = CreateObject("DebenuPDFLibraryLite1114.PDFLibrary")
            Dim query As String() = (From s In ListBox1.Items.Cast(Of String)()).ToArray

            JoinPDF(PDFLibrary, query, SaveFileDialog1.FileName)
            MsgBox("Join PDF Selesai")
        End If
       

    End Sub

Untuk lebih lengkapnya silahkan download attachment di bawah. Agar bisa di kompilasi ulang anda harus menginstall dahulu DebEnuQuickPDF Library versi Lite.

Attachments

  • zip JoinPDFDelphi
    Join PDF Delphi dengan Debenu QuickPDF
    File size: 51 KB Downloads: 2
  • zip Join PDF VB.NET
    Join PDF VB.NET dengan DebEnu QuickPDF
    File size: 146 KB Downloads: 1

anasmbahdien

Seorang programmer yang menguasai bahasa pemograman Delphi, VB.NET, PHP dan Android. Untuk hasil karya kunjungi mogotekno.com

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *