[DeG]

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
 //s := (HTTPRIO1 as LoginCms).loginCms(memo1.Text);
  WS := GetLoginCMS;
  s := WS.loginCms(ta);
  memo1.Text :=(s); //Da error en esta linea
  memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;

Buenas, me puse a debuguear y lo solucione, hay que cambiar ticketsf por ticketf en la linea:

TA:= LimpiaTicket(ruta+'ticketsf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');

por

TA:= LimpiaTicket(ruta+'ticketf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');

y no olvidar de instalar OpenSSL-Win32(yo lo olvide).
Saludos.