Total HTML Converter X

 dim C Set C=CreateObject("HTMLConverter.HTMLConverterX") C.Convert "c:\source.HTML", "c:\dest.JPG", "-cJPG -log c:\html.log" C.Convert "https://www.coolutils.com/", "c:\URL Page.PDF", "-cPDF -log c:\html.log" set C = nothing 

 dim C Set C=CreateObject("HTMLConverter.HTMLConverterX") Response.Clear Response.AddHeader "Content-Type", "binary/octet-stream" Rresponse.AddHeader "Content-Disposition", "attachment; filename=test.pdf" Response.BinaryWrite c.ConvertToStream("C:\www\ASP\Source.html", "C:\www\ASP", "-cpdf -log c:\html.log") set C = nothing 

 Esempio PHP: $src="C:\test\test.html"; $dest="C:\test\test.pdf"; if (file_exists($dest)) unlink($dest); $c= new COM("HTMLConverterPro.HTMLConverterX"); $c->convert($src,$dest, "-c pdf -log c:\HTML.log"); if (file_exists($dest)) echo "OK"; else echo "fail:".$c->ErrorMessage; 

 require 'win32ole' c = WIN32OLE.new('HTMLConverterPro.HTMLConverterX')

src="C:\test\test.html"; dest="C:\test\test.tiff";

c.convert(src,dest, "-c TIFF -log c:\test\HTML.log");

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

 import win32com.client import os.path

c = win32com.client.Dispatch("HTMLConverterPro.HTMLConverterX")

src="C:\test\test.eml"; dest="C:\test\test.tiff";

c.convert(src, dest, "-c TIFF -log c:\test\HTML.log");

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

 uses Dialogs, Vcl.OleAuto;

var c: OleVariant; begin c:=CreateOleObject('HTMLConverterPro.HTMLConverterX'); C.Convert('c:\test\source.html', 'c:\test\dest.tiff', '-c TIFF -log c:\test\HTML.log'); IF c.ErrorMessage<> Then ShowMessage(c.ErrorMessage); end; 

 var c = new ActiveXObject("HTMLConverterPro.HTMLConverterX"); c.Convert("C:\test\source.html", "C:\test\dest.pdf", "-c PDF"); if (c.ErrorMessage!="") alert(c.ErrorMessage) 

 use Win32::OLE;

my $src="C:\test\test.html"; my $dest="C:\test\test.tiff";

my $c = CreateObject Win32::OLE 'HTMLConverterPro.HTMLConverterX'; $c->convert($src,$dest, "-c TIFF -log c:\test\HTML.log"); print $c->ErrorMessage if -e $dest;