Durch
Delphi-Quellcode:
idssliohandlersocketopenssl1 := Tidssliohandlersocketopenssl.Create(nil);
idpop31 := tidpop3.Create(nil);
und
Delphi-Quellcode:
object IdPOP31: TIdPOP3
...
object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
...
erzeugst Du meiner Meinung nach zweimal das jeweilige Objekt:
1. Beim Initialisieren der Form werden die Objekte erzeugt / initialisiert (mit den Werten aus dem
OI)
2. Irgendwann in Deinem Code (k.A. wann genau, da die aufrufende / beinhaltende Funktion nicht zu sehen ist, aber aufjedenfall nach 1.) werden diese quasi nochmals erzeugt / initialisiert (und zwar mit ihren Default
-Werten)
Hast Du also im
OI bestimmte Werte geändert, so sind diese durch die erneute Erzeugung/ Initialisierung verloren bzw. durch die Defaultwerte überschrieben. Dies erklärt warum z.B. die Routine
Delphi-Quellcode:
procedure TForm1.IdSSLIOHandlerSocketOpenSSL1StatusInfo(Msg: String);
begin
Memo1.Lines.Add('idSSL: ' +Msg);
end;
quasi nie aufgerufen wird (und damit natürlich auch kein Ergebnis liefern kann), da sie im Objekt:
idssliohandlersocketopenssl1 := Tidssliohandlersocketopenssl.Create(nil);
nicht vorhanden / gesetzt ist.