Cita:
Empezado por seccion_31
hola Quim Herrera !
¿estas seguro que funciona?
ahora mirando la funcion:
Funcion: procedure TEventosWebNode.WebNodeBeforePost(const HTTPReqResp: THTTPReqResp;
Unidad: uVerifactuFuncs
Yo creo que esto fallara:
PFX := TFile.ReadAllBytes('ArchivoDelCertificado.PFX');
Deberia ser:
PFX := TFile.ReadAllBytes( cert );
He añadido la extension .P12 para reconocer el archivo
¿puedes confirmarlo por fa?
Slds !
|
Exacto, hay que cambiar
Código Delphi
[-]PFX := TFile.ReadAllBytes('ArchivoDelCertificado.PFX' );
por
Código Delphi
[-]PFX := TFile.ReadAllBytes( cert );
y ya funciona.
Saludos,