Hi,
ich realisiere über
FTP einen Upload.
Wenn man nun keine Internetverbindung hat, oder per Firewall den Internetzugriff verhindert, kommt ein ziemlich häßliches Hinweisfenster.
Wie kann ich dieses Fenster (siehe Anhang) unterdrücken und die Nachricht stattdessen in ein Label ausgeben?
Hier mein (ziemlich einfacher) Code:
Delphi-Quellcode:
procedure TFormSys.BtFTPClick(Sender: TObject);
begin
BtSpeichern.Click;
IdFTP1.Host:= '***';
IdFTP1.Port:= (21);
IdFTP1.Username:= '***';
IdFTP1.Password:= '***';
IdFTP1.Connect;
IdFTP1.Put(ExtractFilePath(ParamStr(0)) +'Systeminfos '+ GetUsername + '.txt',
ExtractFileName('Systeminfos '+ GetUsername + '.txt'));
IdFTP1.Disconnect;
end;