محول ملفات HTML للخوادم

 
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 

 
مثال 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;