Hola a todos, soy otra "víctima"
del TicketBAI que estoy empezando a encontrarme con los primeros problemas. Ante todo, agradeceros a todos por las aportaciones en este foro ya que son de muchísima ayuda
El primer problema que me encuentro es cómo cargar los certificados en la constante
ACertificateList de la función
NetHTTPClient1NeedClientCertificate. He leído en algún post anterior que lo hace el procedimiento
DoGetClientCertificates, pero ¿cómo lo hago para llamar a este procedimiento? Perdonar mi ignorancia, pero es que estoy muy verde en todo este asunto. El error que me da al enviar el XML es "
Empty certificate list", supongo porque tengo que cargar el certificado primero.
Código Delphi
[-]procedure TfrmEnvelm.NetHTTPClient1NeedClientCertificate(const Sender: TObject; const ARequest: TURLRequest; const ACertificateList: TCertificateList; var AnIndex: Integer);
var
i: Integer;
begin
for i := 0 to ACertificateList.Count - 1 do
begin
if SameText(ACertificateList[i].Subject, mi_certificado.Caption) then
begin
AnIndex := i;
break;
end;
end;
end;
Muchas gracias!!!
