Hab ich gemacht:
Delphi-Quellcode:
procedure TForm1.IdSSLIOHandlerSocketOpenSSL1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
Memo1.Lines.Add('idSSL: ' +AStatusText);
end;
procedure TForm1.IdSSLIOHandlerSocketOpenSSL1StatusInfo(Msg: String);
begin
Memo1.Lines.Add('idSSL: ' +Msg);
end;
procedure TForm1.IdPOP31Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Memo1.Lines.Add('idSSL: ' +AStatusText);
end;
Aber es wird nichts angezeigt! Was läuft da wohl schief :- /
Aber Danke für die Hilfe