Also wirklich "einfach" fand ich das nicht. Deshalb teile ich hier mal meine Arbeit.
Die angefügte
Unit uCertTest basiert auf auf dem Posting von
TKC sowie einem Eintrag bei
experts-exchange.
Du brauchst daraus die Funktion GetInfoFromCert.
Also etwa so:
Delphi-Quellcode:
sName := GetInfoFromCert(sFile, cCertSubjectName);
sAussteller := GetInfoFromCert(sFile, cCertIssuerName);
Weitere Erläuterungen kann ich aus Zeitmangel gerade nicht liefern. Sollte aber selbsterklärend sein, wenn Du Dir die
Unit genauer anschaust.
Habe ich produktiv im Einsatz, sollte also funktionieren.
