Example Perl:
use Win32::OLE; my $src="C:\\test\\test1.pdf"; my $dest="C:\\DestFolder"; my $c = CreateObject Win32::OLE 'PDFSplitter.PDFSplitterX'; $c->convert($src,$dest, "-c pdf -log c:\\test\\PDFSplitter.log"); print $c->ErrorMessage if -e $dest;
string src="C:\\test\\test1.pdf"; string dest="C:\\test\\DestFolder\\"; PDFSplitterX Cnv = new PDFSplitterX(); Cnv.Convert(src, dest, "-c PDF -log c:\\test\\Splitter.log"); MessageBox.Show("Convert complete!");
Download .NET PDF Combine example
dim C Set C=CreateObject("PDFSplitter.PDFSplitterX") C.Convert "c:\source1.pdf", "c:\Dest Folder\", "-fo" set C = nothing
$src="C:\\test\\test.pdf"; $dest="C:\\DestFolder\\"; if (file_exists($dest)) unlink($dest); $c= new COM("PDFSplitter.PDFSplitterX"); $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('PDFSplitter.PDFSplitterX') src="C:\\test\\test.pdf"; dest="C:\\test\\DestFolder"; c.convert(src,dest, "-c PDF -log c:\\test\\PDFSplitter.log"); if not File.exist?(dest) puts c.ErrorMessage end
import win32com.client import os.path c = win32com.client.Dispatch("PDFSplitter.PDFSplitterX") src="C:\\test\\test.pdf"; dest="C:\\test\\DestFolder"; c.convert(src, dest, "-c PDF -log c:\\test\\PDFSplitter.log"); if not os.path.exists(file_path): print(c.ErrorMessage)
uses Dialogs, Vcl.OleAuto; var c: OleVariant; Source: String; begin c:=CreateOleObject('PDFSplitter.PDFSplitterX'); Source:='c:\test\source1.pdf'; C.Convert(Source, 'c:\DestFolder', '-cPDF -log c:\test\PDFSplitter.log'); IF c.ErrorMessage<> Then ShowMessage(c.ErrorMessage); end;
use Win32::OLE; my $src="C:\\test\\test1.pdf"; my $dest="C:\\DestFolder"; my $c = CreateObject Win32::OLE 'PDFSplitter.PDFSplitterX'; $c->convert($src,$dest, "-c pdf -log c:\\test\\PDFSplitter.log"); print $c->ErrorMessage if -e $dest;
© 2021. All rights reserved. CoolUtils File Converters