Hallo,
ich möchte beim Programmstart eine
Ftp verbindung aufbauen, wenn das nicht möglich ist, soll eine Dialogbox zu sehen sein. Mit dem Code unten klappt das nicht so ganz,
Das Proggy bleibt hängen wenn keine Onlineverbindung da ist, und es ist Keine Message zu sehen...
Wer mag mir dabei helfen?
Delphi-Quellcode:
procedure TFormSplash.Timer1Timer(Sender: TObject);
begin
if TransferringData then idFTP1.Abort;
if IdFTP1.Connected then IdFTP1.Disconnect;
try
IdFTP1.Host := Form10.Edit1.Text;
IdFTP1.Username := Form10.Edit2.Text;
IdFTP1.Password := Form10.Edit3.Text;
IdFTP1.Connect;
if idFTP1.Connected then
try
Timer1.Enabled := false;
close
except;
end
else
Showmessage('Kann keine Verbindung aufgebaut werden');
finally
end;
end;
[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]