Ich habe folgendes Problem. Ich habe einen Mailclient programmiert. Und wenn ich versuche eine Nachricht zu versenden kommt die Fehlermeldung "Verbindung besteht bereits"

markieren

Delphi-Quellcode:

function login_SMTP(Username,PW,Server : String;Port : Integer; SMTPSocket : TIdSMTP):boolean;
begin
   SMTPSocket.Username := Username;
   SMTPSocket.Password := PW;
   SMTPSocket.Port := Port;
   SMTPSocket.Host := Server;
    SMTPSocket.AuthType := satDefault;
   SMTPSocket.Connect;
   Result := SMTPSocket.Connected; //beim debuggen kommt hier die Fehlermeldung
end;

und ich weiß nicht was da los ist. Kann mir da was jemand sagen?
im anhang ist die gesamte unit und die in der sie verwendet wird.

Versuch es mal so

zusammenfalten · markieren

Delphi-Quellcode:

function login_SMTP(Username,PW,Server : String;Port : Integer; SMTPSocket : TIdSMTP):boolean;
begin

  if SMTPSocket.Connected then
    SMTPSocket.Disconnect;

  SMTPSocket.Username := Username;
  SMTPSocket.Password := PW;
  SMTPSocket.Port := Port;
  SMTPSocket.Host := Server;
  SMTPSocket.AuthType := satDefault;
  SMTPSocket.Connect;
  Result := SMTPSocket.Connected; //beim debuggen kommt hier die Fehlermeldung
end;

Ja jetzt ist der Fehler weg danke
aber jetzt kommt irgendein "bad sequence of commands" - Fehler.

markieren

Delphi-Quellcode:

try SMTPSocket.Send(IdNachricht)
finally   logoff_SMTP(SMTPSocket);
end;

in der SMTP Unit.

Neue Frage -> neues Thema

und eine Suche bei Google bewirkt Wunder [GOOGLE]Indy "bad sequence of commands"[/GOOGLE]