Hallo
Ich baue mithilfe dem TclHttp der Clever Internet Suite eine Verbindung zu meinem Server auf.
Das Zertifikat lade ich während der Laufzeit mithilfe von TclCertificateStore, welches ich zur Authentifizierung am Server benötige.
Das ganze sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| clHttp1.OnGetCertificate:= clSoapMessageGetCertificate;
clHttp1.Post('https://www.example.com/Service.asmx', response);
...
procedure TForm1.clSoapMessageGetCertificate(Sender: TObject;
var ACertificate: TclCertificate; var Handled: Boolean);
begin
clCertificateStore1.ImportFromPFX( 'Dateipfad', 'xxxxx');
ACertificate := clCertificateStore1[0];
Handled:=true;
end; |
Jetzt hab ich jedoch das Problem, dass immer wenn ich das .Post ausführe die Fehlermeldung "AcquireCredentials failed" kommt.
Weiß jemand was ich hier falsch mache oder wo der Fehler liegen könnte?
mfg
DiiSee
Moderiert von 
Narses: Code- durch Delphi-Tags ersetztModeriert von Narses: Beiträge zusammengefasstHat sich erledigt habe ein falsches Zertifikat ohne privat key verwendet
