TIdPOp3 und deutsche Sonderzeichen im Passwort

[hoika]

Hallo,

sollten ja, Thunderbird Portable kommt damit klar, Indy im Moment nicht ;(
Dein Quellcode sieht ähnlich dem meinen aus:

Delphi-Quellcode:

procedure TXXXService.ErzeugePOP3Klassen(theLoginData: T1ClickLoginData;
  var theIdPOP3: TIdPOP3; var theIdUserPassProvider:  TIdUserPassProvider;
  var theIdSASLPlain : TIdSASLPlain);
var
  s1ClickPasswort : String;
begin
  s1ClickPasswort := 'Geheim';

  theIdPOP3 := TIdPOP3.Create;
  theIdUserPassProvider:= TIdUserPassProvider.Create(NIL);
  theIdSASLPlain := TIdSASLPlain.Create(NIL);

  theIdUserPassProvider.Username := theLoginData.NutzerName;
  //theIdUserPassProvider.Password := s1ClickPasswort;
  theIdUserPassProvider.Password := s1ClickPasswort;

  theIdSASLPlain.UserPassProvider := theIdUserPassProvider;

  theIdPOP3.Host := theLoginData.Server;
  theIdPOP3.Port := StrToInt(theLoginData.POP3Port);
  theIdPOP3.Username := theLoginData.NutzerName;
  theIdPOP3.Password := s1ClickPasswort;
  theIdPOP3.IOHandler := CreateSSLHandler(theIdPOP3);
  theIdPOP3.UseTLS := utUseImplicitTLS;
  theIdPOP3.AuthType := patUserPass;
  theIdPOP3.SASLMechanisms.Add.SASL := theIdSASLPlain;

  theIdPOP3.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8;//TIdTextEncoding.UTF8;
end { TXXXService.ErzeugePOP3Klassen } ;

function TXXXService.CreateSSLHandler(Owner: TComponent): TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := TIdSSLIOHandlerSocketOpenSSL.Create(Owner);
  Result.OnVerifyPeer := SSLVerifyPeerEventHandler;
  Result.SSLOptions.Method := sslvSSLv3;
  Result.SSLOptions.VerifyMode := [sslvrfClientOnce];
end { TXXXService.CreateSSLHandler } ;

Und wie gesagt, solange ich unterhalb Ord(127) mit meinem Passwort bleibe, klappt es ja ;(

Ändere ich das patUserPass ab, kommt sofort beim Cnnect eine Fehlermeldung
(AUTH oder SASL Mechanismus nicht unterstützt) (war eng. habe es im Moment nicht im Kopf).


Heiko