Programm: "Keine Rückmeldung" bei FTPDownload beheben ?

[mark332]

Hi Leute, ich habe ein Programm geschrieben, dass dem Nutzer mehrere Dateien aus einem FTP herunterlädt, leider zeigt windows immer beim Download von größeren Dateien "Keine Rückmeldung", da der Nutzer dann vermutlich denken könnte, dass
das Programm abgestürzt ist, ist mir daran gelegen, das zu verhindern...

Zum herunterladen nutze ich die Unit FTPSend und habe mir eine Function erstellt, um nicht für jede Datei, ein- und auszuloggen:

Code: Alles auswählen

 
function FTPDownload(const FileName, LocalFile: String): Boolean;
begin
 
  with FTPInstance do
  begin
       DirectFileName := LocalFile;
       DirectFile:=True;
       Result := RetrieveFile(FileName, False);
  end;
end; 
 

Eine Behebung dieses Problems ist nicht zwingend notwendig, da nach 1-3mins alles normal weitermacht, aber ich möchte verhindern, dass der Nutzer das Programm, im Glaube es sei abgestürzt, möglicherweise Terminiert...

MfG mark332

[theo]

Doku lesen kommt immer gut:
http://synapse.ararat.cz/doku.php/publi ... rogressbar

[h-elsner]

Auf jeden Fall Screen.Cursor auf crHourGlass setzen und wenn fertig wieder auf crDefault (am Besten mit einem try ... finally Block). Dann einen Timer auf dem Formular plazieren und alle 1-2 Sekunden beim Timerevent Application.ProcessMessages; ausführen.
Ggf. kann man damit auch noch eine Fortschrittsanzeige auf Verdacht machen.

edit: da war einer schneller und besser. Aber Application.Process Messages sollte irgendwo ausgeführt werden.

Gruß he

[Komoluna]

oder, du packst dem gesamten Download Codeabschnitt in einen Thread, das geht auf jeden fall... damit kannst du nicht nur das aufhängen des programms
verhindern, sondern sogar mehrere Downloads parallel laufen lassen...(pro Download 1 Thread), der Aufwand lohnt sich meist jedoch nicht...

MFG

Komoluna

[mark332]

ok, Danke, ich habe das jetzt mit der Methode von h-elsner gemacht ...