Warten bis Datei heruntergelden

[FGD]

Delphi-Quellcode:

UrlDownloadToFile(nil, PChar(Form1.Richedit1.lines[nr]), PChar(Form1.Edit1.Text+'\'+Form1.Richedit1.lines[nr+1]), 0, nil);
//hier soll gewartet werden
Form1.memo2.lines.loadfromfile(Form1.Edit1.Text+'\'+Form1.Richedit1.lines[nr+1]);

Wie bekomm ich es hin, dass dort gewartet wird bis die Datei heruntergeladen ist.

[toms]

Hallo,

So viel ich weiß, ist doch UrlDownloadToFile() schon synchron, d.h es wird gewartet bis der Aufruf beendet worden ist.

[edit=Admin]Beitrag wg. Cache-Problem neu abgesendet. Mfg, Daniel[/edit]

[Luckie]

Der Beitragstext von toms erscheint irgendwie nicht:

Zitat:

Zitat von toms

Hallo,

So viel ich weiß, ist doch UrlDownloadToFile() schon synchron, d.h es wird gewartet bis der Aufruf beendet worden ist.

@toms: mach bitte nichts an deinem Beitrag, damit sich Daniel das mal angucken kann.

[FGD]

Mein Problem: Die Datei existiert noch nicht, wenn sie ins Memo geladen werden soll.

[Larsi]

Delphi-Quellcode:

try
UrlDownloadToFile(nil, PChar(Form1.Richedit1.lines[nr]), PChar(Form1.Edit1.Text+'\'+Form1.Richedit1.lines[nr+1]), 0, nil);
finally
Form1.memo2.lines.loadfromfile(Form1.Edit1.Text+'\'+Form1.Richedit1.lines[nr+1]);
end;

Und so? Vielleicht musst du die Dateia auch erst wieder freigeben :gruebel: :)

[toms]

@Larsi: Try..Finally ist nicht für das gedacht.

@FGD: Warte nach dem Download ein paar MS (oder Überprüfung in Schleife bis FileExists)

[Larsi]

Also eigentlich geht das echt erst weiter nachdem die Datei heruntergeladen wurde mit dem Memo. Noch einfacher gehts allerdings mit den Indies:

Delphi-Quellcode:

 Memo1.Text:=idHTTP1.Get('http://www.delphi- treff.de');

[FGD]

Zitat:

Zitat von Larsi

Also eigentlich geht das echt erst weiter nachdem die Datei heruntergeladen wurde mit dem Memo. Noch einfacher gehts allerdings mit den Indies:

Delphi-Quellcode:

 Memo1.Text:=idHTTP1.Get('http://www.delphi- treff.de');

Wo befindet sich denn idHTTP?
Und FileExists geht nicht. Die Datei wird als vorhanden gemeldet, obwohl sie noch nicht da ist.

[Larsi]

Ist bei den Indies dabei. Zusatzkomponenten. Du musst die Datei vielleicht erst freigeben!

[marabu]

Hallo,

man muss nicht unbedingt die Indy Komponenten installieren, es funktioniert natürlich auch mit UrlDownloadToFile(). Die Funktion arbeitet synchron, wie Tom bereits geschrieben hat. Es ist halt eine Funktion und man muss schon einen guten Grund haben, wenn man den Rückgabewert einfach ignoriert. In der Regel liegt der Fehler bei URL oder FILENAME.

Delphi-Quellcode:

procedure TDemoForm.DownloadButtonClick(Sender: TObject);
var
  fn, url: string;
begin
  // ...
  url := Richedit1.lines[nr];
  fn := Edit1.Text + '\' + Richedit1.lines[nr+1];
  ShowMessage(Format('url = %s'#13#10'fn = %s', [url, fn]));
  if Succeeded(UrlDownloadToFile(nil, PChar(url), PChar(fn), 0, nil))
    then ShowMessage('swell')
    else ShowMessage('rats');
end;

Grüße vom marabu