Fenster: Bitte warten

[kluckweb]

Hier ein Auszug aus dem Code:

Delphi-Quellcode:

If Frage.stellen('Sind Sie sicher, dass Sie Uploaden möchten?') then Begin

  Bittewarten.Show;
  IdFTP1.Host := 'www.MEINESEITE.de' ;
  IdFTP1.Username := 'webYY';
  IdFTP1.Password := 'abcdefgh';
  IdFTP1.Connect;
  IdFTP1.ChangeDir('/html/dateiupload');


  idftp1.put('datei.php',false);
  IdFTP1.Quit;
  IdFTP1.Disconnect;
  Bittewarten.Close;
  showMessage('Der Upload war erfolgreich');