1:

Erste Gelegenheit für Exception bei $7C812A7B. Exception-Klasse EIdOSSLConnectError mit Meldung 'Error connecting with SSL.'. Prozess Project1.exe (4596)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  Quelltext: string;
begin
  SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
  HTTP.CookieManager := IdCookieManager1;
  HTTP.IOHandler := SSLIOHandler;
  HTTP.HandleRedirects := true;
  HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
  Quelltext := HTTP.Get('https://www.test-seite.com');
  Memo1.Text := Quelltext;
end;                    

1:

Connection Closed Gracefully.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  Stream: TIdMultipartFormDataStream;
  Quelltext: string;
begin
  SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
  HTTP.CookieManager := IdCookieManager1;
  SSLIOHandler.SSLOptions.CertFile := 'SSL/test.cer';
  SSLIOHandler.SSLOptions.VerifyDepth := 2;
  SSLIOHandler.SSLOptions.Method := sslvSSLv23;
  SSLIOHandler.SSLOptions.Mode := sslmClient;
  HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  HTTP.HandleRedirects := true;
  HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
  HTTP.ReadTimeout := 5000;
  HTTP.IOHandler := SSLIOHandler;

  Stream := TIdMultipartFormDataStream.Create;
  Stream.AddFormField('_loginUID','jackie05');
  Stream.AddFormField('_loginPWD','********');
  Quelltext := Form1.HTTP.Post('https://www.testseite.com/de/login.aspx?do=login',Stream);
  Form1.Memo1.Text := Quelltext;

  Stream.Free;
end;