Also ich hab jetzt die Zertifikate erstellt, dann die privkey.pem in sample.key umbenannt und die zertifikat.cert kopiert und in sample.crt und sampleRoot.pem umbenannt.
Allerdings erhalte ich immer den Fehler 'Could not load SSL Library'
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.KeyFile := 'sample.key';
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile := 'sample.crt';
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.RootCertFile := 'sampleRoot.pem';
Memo1.Lines.Add(IdHTTP1.Get('https://www.digiposter.de/info/de/test_ssl.html'));
end;
procedure TForm1.IdSSLIOHandlerSocketOpenSSL1GetPassword(var Password: string);
begin
password:= '*********';
end;
Beim IdHTTP1 ist als IOHandler IdSSLIOHandlerSocketOpenSSL1 eingestellt. Was mach ich falsch?