So danke für die zahlreichen antworten
zum glück gibts ja ICQ
ich poste jetzt mal den code für alle anderen die irgendwann, irgendwo, irgendwie das selbe prob haben.
Delphi-Quellcode:
procedure TForm1.Button12Click(Sender: TObject);
begin
smtpcheck.Enabled := true;
idsmtp1.Host := smtphost.Text;
idsmtp1.Username := smtpuser.Text;
idsmtp1.Password := smtppw.Text;
idsmtp1.Port := 25;
try
idsmtp1.connect;
except
end;
if idsmtp1.Connected then
begin
smtpcheck.Enabled := false;
showmessage('Daten OK');
end;
end;
procedure TForm1.smtpcheckTimer(Sender: TObject);
begin
smtpcheck.Enabled := false;
application.MessageBox('Zeitüberschreitung! Bitte die Verbindungsdaten prüfen!', 'Fehler!', 16);
end;