Buenas tardes
Ya se ha puesto en marcha el entorno de pruebas LROE en Bizkaia, estoy probando, y en:
Código Delphi
[-]unit System.Net.HttpClient.Win;
procedure TWinHTTPClient.DoGetClientCertificates(const ARequest: THTTPRequest;
const ACertificateList: TList);
la aplicación casca, da el terrorífico 'Access violation .....'. Uso uso Delphi 10 Seattle y los componentes TNetHTTPClient y TNetHTTPRequest.
La selección del certificado la realizo en el evento OnNeedClientCertificate,
Código Delphi
[-]procedure Tfrm140CTB.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;
He puesto una traza al comienzo de este procedimiento, y ni siquiera llega
Si alguien utiliza este sistema, y le funciona, agradecido me eche una mano.