Timbrado en Delphi..s

Delphi..s

Declaracion

Procedure Timbrar(cRFC,cFileXML:Pchar); stdcall; external 'TimbradoTF.dll';

Function FTimbrar(cRFC,cFileXML:Pchar):pchar; stdcall; external 'TimbradoTF.dll';

Procedure FreePChar(p: PChar);  stdcall; external 'TimbradoTF.dll';

Function XMLCFDI: PChar; stdcall; external 'TimbradoTF.dll';

Function XMLResult: PChar; stdcall; external 'TimbradoTF.dll';

Function XMLTimbre: PChar; stdcall; external 'TimbradoTF.dll';

Function Serie:Pchar; stdcall; external 'TimbradoTF.dll';

Function Factura:Pchar; stdcall; external 'TimbradoTF.dll';

Function RFCEmisor:Pchar; stdcall; external 'TimbradoTF.dll';

Function RFCReceptor:Pchar; stdcall; external 'TimbradoTF.dll';

Function Version:Pchar; stdcall; external 'TimbradoTF.dll';

Function UUID:Pchar; stdcall; external 'TimbradoTF.dll';

Function FechaTimbrado:Pchar; stdcall; external 'TimbradoTF.dll';

Function SelloCFD:Pchar; stdcall; external 'TimbradoTF.dll';

Function NoCertificadoSAT:Pchar; stdcall; external 'TimbradoTF.dll';

Function SelloSAT:Pchar; stdcall; external 'TimbradoTF.dll';

Procedure CBBCode(cCodigo,cFileCBB:Pchar) stdcall; external 'TimbradoTF.dll';

Llamada

procedure TForm2.EnviarClick(Sender: TObject);

Var

  cFileRequest:String;

begin

  cFileRequest := cDirExe+'request.xml';

  Timbrar('XAX010101000',pchar(cFileRequest));

  Memo1.Text := XMLTimbre;

end;