Convertidor de archivos XML para servidores

dim C
Set C=CreateObject("XMLConverter.XMLConverterX")
C.Convert "c:\source.XML", "c:\dest.JSON", "-cJSON -log c:\XML.log"
set C = nothing

dim C
Set C=CreateObject("XMLConverter.XMLConverterX")
Response.Clear
Response.AddHeader "Content-Type", "binary/octet-stream"
Rresponse.AddHeader "Content-Disposition", "attachment; filename=test.JSON"
Response.BinaryWrite c.ConvertToStream("C:\www\ASP\Source.XML", "C:\www\ASP", "-cJSON  -log c:\XML.log")
set C = nothing

$src="C:\test.XML";
$dest="C:\test.XLS";
if (file_exists($dest)) unlink($dest);
$c= new COM("PDFConverter.PDFConverterX");
$c->convert($src,$dest, "-c XLS  -log c:\pdf.log");
if (file_exists($dest)) echo "OK"; else echo "fallo:".$c->ErrorMessage;

require 'win32ole'
c = WIN32OLE.new('XMLConverter.XMLConverterX')

src="C:\\test\\test.XML";
dest="C:\\test\\test.pdf";

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

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

import win32com.client
import os.path

c = win32com.client.Dispatch("XMLConverter.XMLConverterX")

src="C:\\test\\test.XML";
dest="C:\\test\\test.pdf";

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

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

uses Dialogs, Vcl.OleAuto;

var
  c: OleVariant;
begin
  c:=CreateOleObject('XMLConverter.XMLConverterX');
  C.Convert('c:\test\source.XML', 'c:\test\dest.pdf', '-cPDF -log c:\test\XML.log');
  IF c.ErrorMessage<> Then
    ShowMessage(c.ErrorMessage);
end;

$src="C:\test.XML";
$dest="C:\test.XLS";
if (file_exists($dest)) unlink($dest);
$c= new COM("PDFConverter.PDFConverterX");
$c->convert($src,$dest, "-c XLS  -log c:\pdf.log");
if (file_exists($dest)) echo "OK"; else echo "fallo:".$c->ErrorMessage;

use Win32::OLE;

my $src="C:\\test\\test.XML";
my $dest="C:\\test\\test.pdf";

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

#include 

static const CLSID CLSID_XMLConverterX =
  {0x6B411E7E, 0x9503,0x4793,{0xA2, 0x87, 0x1F, 0x3B, 0xA8, 0x78, 0xB9, 0x1C}};
static const IID IID_IXMLConverterX =
  {0xEF633BED, 0xC414,0x49B0,{0x91, 0xFB, 0xC3, 0x9C, 0x3F, 0xE0, 0x08, 0x0D}};

#undef INTERFACE
#define INTERFACE IXMLConverterX
DECLARE_INTERFACE_(IXMLConverterX, IDispatch)
{
    STDMETHOD(QueryInterface)(THIS_ REFIID, PVOID*) PURE;
    STDMETHOD(Convert)(THIS_ LPCTSTR, LPCTSTR, LPCTSTR) PURE;
    STDMETHOD(About)(THIS) PURE;
    //const SourceFile: WideString; const DestFile: WideString; const Params: WideString; safecall;
};

typedef HRESULT (__stdcall *hDllGetClassObjectFunc) (REFCLSID, REFIID, void **);

int main () {
  HRESULT hr;
  if (CoInitialize(NULL)) {
    printf ("Error en CoInitialize.");
    return -1;
  }

  LPCTSTR lpFileName = "XMLConverter.dll";
  HMODULE hModule;
  hModule = LoadLibrary (lpFileName);
  printf ("hModule: %d\n", hModule);
  if (hModule == 0) {
    printf ("Error en LoadLibrary.");
    return -1;
  }

  hDllGetClassObjectFunc hDllGetClassObject = NULL;
  hDllGetClassObject = (hDllGetClassObjectFunc) GetProcAddress (hModule, "DllGetClassObject");
  if (hDllGetClassObject == 0) {
    printf ("Error en GetProcAddress.");
    return -1;
  }
  IClassFactory *pCF = NULL;
  hr = hDllGetClassObject (&CLSID_XMLConverterX, &IID_IClassFactory, (void **)&pCF);
  /* No se puede cargar con un ID diferente */
  printf ("hr hDllGetClassObject: %d\n", hr);
  if (!SUCCEEDED (hr)) {
    printf ("Error en hDllGetClassObject.");
    return -1;
  }
  IXMLConverterX *pIN;
  hr = pCF->lpVtbl->CreateInstance (pCF, 0, &IID_IXMLConverterX, (void **)&pIN);
  printf ("hr CreateInstance: %d\n", hr);
  if (!SUCCEEDED (hr)) {
    printf ("Error en hDllGetClassObject.");
    return -1;
  }
  hr = pCF->lpVtbl->Release (pCF);
  printf ("hr Release: %d\n", hr);
  if (!SUCCEEDED (hr)) {
    printf ("Error en Release.");
    return -1;
  }
  hr = pIN->lpVtbl->About (pIN);
  printf ("hr About: %d\n", hr);
  if (!SUCCEEDED (hr)) {
    printf ("Error en About.");
    return -1;
  }
  hr = pIN->lpVtbl->Convert (pIN, "test.pdf", "test.html","-cHTML");
  printf ("hr Convert: %d\n", hr);
  if (!SUCCEEDED (hr)) {
    printf ("Error en Convert.");
    return -1;
  }

  return 0;
}