Total XML ConverterX — uma solução prática de servidor para converter arquivos XM

C escuro
Defina C=CreateObject("XMLConverter.XMLConverterX")
C.Converter "c:\source.XML", "c:\dest.JSON", "-cJSON -log c:\XML.log"
conjunto C = nada

C escuro
Defina C=CreateObject("XMLConverter.XMLConverterX")
Resposta.Limpar
Response.AddHeader "Tipo de conteúdo", "fluxo binário/octeto"
Rresponse.AddHeader "Content-Disposition", "anexo; nome do arquivo=test.JSON"
Resposta.BinaryWrite c.ConvertToStream("C:\www\ASP\Source.XML", "C:\www\ASP", "-cJSON -log c:\XML.log")
conjunto C = nada

$src="C:\teste.XML";
$dest="C:\teste.XLS";
se (file_existe($dest)) unlink($dest);
$c= novo COM("PDFConverter.PDFConverterX");
$c->convert($src,$dest, "-c XLS -log c:\pdf.log");
se (file_existe($dest)) eco "OK"; senão eco "falha:".$c->ErrorMessage;

requer 'win32ole'
c = WIN32OLE.new('Conversor XML.Conversor XMLX')

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

c.convert(origem,destino, "-c PDF -log c:\\teste\\XML.log");

se não File.exist?(dest)
  coloca c.ErrorMessage
fim

importar win32com.client
importar os.path

c = win32com.client.Dispatch("Conversor XML.Conversor XMLX")

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

c.convert(origem, dest, "-c PDF -log c:\\teste\\XML.log");

se não os.path.exists(file_path):
  imprimir(c.ErrorMessage)

usa Diálogos, Vcl.OleAuto;

var
  c: OleVariant;
começar
  c:=CreateOleObject('XMLConverter.XMLConverterX');
  C.Convert('c:\teste\fonte.XML', 'c:\teste\dest.pdf', '-cPDF -log c:\teste\XML.log');
  SE c.ErrorMessage<> Então
    MostrarMensagem(c.ErrorMessage);
fim;

$src="C:\teste.XML";
$dest="C:\teste.XLS";
se (file_existe($dest)) unlink($dest);
$c= novo COM("PDFConverter.PDFConverterX");
$c->convert($src,$dest, "-c XLS -log c:\pdf.log");
se (file_existe($dest)) eco "OK"; senão eco "falha:".$c->ErrorMessage;

usar Win32::OLE;

meu $src="C:\\teste\\teste.XML";
meu $dest="C:\\teste\\teste.pdf";

meu $c = CreateObject Win32::OLE 'XMLConverter.XMLConverterX';
$c->convert($src,$dest, "-c pdf -log c:\\teste\\XML.log");
imprimir $c->ErrorMessage se -e $dest;

#incluir

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

#INTERFACE indefinida
#define INTERFACE IXMLConverterX
DECLARE_INTERFACE_(IXMLConverterX, IDispatch)
{
    MÉTODOPADRÃO(Interface de Consulta)(ESTE_ REFIID, PVOID*) PURO;
    MÉTODOPADRÃO(Converter)(ESTE_ LPCTSTR, LPCTSTR, LPCTSTR) PURO;
    MÉTODOPADRÃO(Sobre)(ESTE) PURO;
    //const SourceFile: WideString; const DestFile: WideString; const Params: WideString; safecall;
};

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

int principal () {
  HRESULT horas;
  se (CoInitialize(NULL)) {
    printf ("Erro em CoInitialize.");
    retornar -1;
  }

  LPCTSTR lpFileName = "XMLConverter.dll";
  HMODULE hMódulo;
  hModule = LoadLibrary (lpNomeDoArquivo);
  printf ("hMódulo: %d\n", hMódulo);
  se (hModule == 0) {
    printf ("Erro em LoadLibrary.");
    retornar -1;
  }

  hDllGetClassObjectFunc hDllGetClassObject = NULO;
  hDllGetClassObject = (hDllGetClassObjectFunc) GetProcAddress (hModule, "DllGetClassObject");
  se (hDllGetClassObject == 0) {
    printf ("Erro em GetProcAddress.");
    retornar -1;
  }
  IClassFactory *pCF = NULL;
  hr = hDllGetClassObject (&CLSID_XMLConverterX, &IID_IClassFactory, (void **)&pCF);
  /* Não é possível carregar com ID diferente */
  printf ("hr hDllGetClassObject: %d\n", hr);
  se (!SUCESSO (hr)) {
    printf ("Erro em hDllGetClassObject.");
    retornar -1;
  }
  IXMLConverterX *pIN;
  hr = pCF->lpVtbl->CreateInstance(pCF, 0, &IID_IXMLConverterX, (void **)&pIN);
  printf ("hr CriarInstância: %d\n", hr);
  se (!SUCESSO (hr)) {
    printf ("Erro em hDllGetClassObject.");
    retornar -1;
  }
  hr = pCF->lpVtbl->Liberação (pCF);
  printf ("hr Lançamento: %d\n", hr);
  se (!SUCESSO (hr)) {
    printf ("Erro na liberação.");
    retornar -1;
  }
  hr = pIN->lpVtbl->Sobre (pIN);
  printf ("hr Sobre: %d\n", hr);
  se (!SUCESSO (hr)) {
    printf ("Erro em About.");
    retornar -1;
  }
  hr = pIN->lpVtbl->Converter(pIN, "teste.pdf", "teste.html","-cHTML");
  printf ("hr Converter: %d\n", hr);
  se (!SUCESSO (hr)) {
    printf ("Erro na conversão.");
    retornar -1;
  }

  retornar 0;
}