Cita:
Empezado por juramisa
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. |
Buenos dias!
yo lo hago mas o menos así, y de momento, ningún problema. No sé cual será tu problema, eso sí, lo estoy haciendo con Delphi 10.3 Rio. Pero yo creo que el problema no está en ese evento, tiene que ser en otra parte