Einzelnen Beitrag anzeigen

SMERK

Registriert seit: 5. Jan 2005
Ort: Krems II
31 Beiträge
 
Delphi 7 Enterprise
 
#1

Programm hängt sich auf ?

  Alt 2. Okt 2007, 11:35
Hallo!
Ich lade mit dem Quellcode Bilder auf nen FTP hoch! Aber wenn ich das mache und er ien gr. Bild hochlädt und ich dann das Fenster kurz wechsel, z.B: in den Exploerer und danach wieder in das Porgramm, dann wirkt es so, als wenn es sich aufgehängt hat, es läuft aber weiter! Wie kann man das machen, dass man wärend des uploads das prgramm trotzdem noch benutzen kann!? meinet wegen auch nur das fenster verschieben?
Delphi-Quellcode:
procedure TForm1.Upload_ButtonClick(Sender: TObject);
begin
  Upload_Label.Visible := True;
  dir := ShellListView1.SelectedFolder.PathName;
  datei := ExtractFilename( ShellListView1.SelectedFolder.PathName);
  FTP.Put(dir,datei);
end;
  Mit Zitat antworten Zitat