Cita:
Empezado por hagsoft
Sera q lo pueden subir el codigo por favor me da error base64 estoy usando delphi berlin
Código Delphi [-]
procedure TForm1.EnviaTicket(ta: widestring);
var
WS: LoginCMS;
s: widestring;
begin
WS := GetLoginCMS;
s := WS.loginCms(ta);
memo1.Text :=(s); memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;
|
Buenas, me puse a debuguear y lo solucione, hay que cambiar ticketsf por ticketf en la linea:
Código:
TA:= LimpiaTicket(ruta+'ticketsf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');
por
Código:
TA:= LimpiaTicket(ruta+'ticketf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');
y no olvidar de instalar OpenSSL-Win32(yo lo olvide
).
Saludos.