PDF संयोजक X

dim C
Set C=CreateObject("PDFCombine.PDFCombineX")
C.Convert "c:\source1.pdf"+Chr(13)+"c:\source2.pdf", "c:\dest.pdf", "-fo"
set C = nothing

$src="C:\\test\\test1.pdf".Chr(13)."C:\\test\\test2.pdf";
$dest="C:\\test\\DestCombine.PDF";
if (file_exists($dest)) unlink($dest);
$c= new COM("PDFCombine.PDFCombineX");
$c->convert($src,$dest, "-c PDF -log c:\doc.log");
if (file_exists($dest)) echo "OK"; else echo "fail:".$c->ErrorMessage;

require 'win32ole'
c = WIN32OLE.new('PDFCombine.PDFCombineX')

src="C:\\test\\test1.pdf\nC:\\test\\test2.pdf";
dest="C:\\test\\DestCombine.pdf";

c.convert(src,dest, "-c PDF -log c:\\test\\PDFCombine.log");

if not File.exist?(dest)
  puts c.ErrorMessage
end

import win32com.client
import os.path

c = win32com.client.Dispatch("PDFCombine.PDFCombineX")

src="C:\\test\\test1.xlsx/nC:\\test\\test2.docx";
dest="C:\\test\\DestCombine.pdf";

c.convert(src, dest, "-c PDF -log c:\\test\\PDFCombine.log");

if not os.path.exists(file_path):
  print(c.ErrorMessage)

uses Dialogs, Vcl.OleAuto;

var
  c: OleVariant;
  Source: String;
begin
  c:=CreateOleObject('PDFCombine.PDFCombineX');
  Source:='c:\test\source1.docx'+Chr(13)+'c:\test\source2.xlsx';
  C.Convert(Source, 'c:\test\dest.pdf', '-cPDF -log c:\test\PDFCombine.log');
  IF c.ErrorMessage<> Then
    ShowMessage(c.ErrorMessage);
end;

var c = new ActiveXObject("PDFCombine.PDFCombineX");
var src="C:\\test\\test1.xlsx/nC:\\test\\test2.docx";
c.Convert(src, "C:\\test\\dest.pdf", "-c PDF");
if (c.ErrorMessage!="")
  alert(c.ErrorMessage)

use Win32::OLE;

my $src="C:\\test\\test1.docx\nC:\\test\\test2.xlsx";
my $dest="C:\\test\\DestCombine.pdf";

my $c = CreateObject Win32::OLE 'PDFCombine.PDFCombineX';
$c->convert($src,$dest, "-c pdf  -log c:\\test\\PDFCombine.log");
print $c->ErrorMessage if -e $dest;