Ich habe folgendes Problem. Ich habe einen Mailclient programmiert. Und wenn ich versuche eine Nachricht zu versenden kommt die Fehlermeldung "Verbindung besteht bereits"
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.