Programm friert bei Download ein?

[buster55]

hallöle ;-)
ich lade mit folgender funktion eine datei runter:

Delphi-Quellcode:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

Aufruf:

Delphi-Quellcode:

     if DownloadFile(SourceFile, DestFile) then
  begin
  showmessage('Download wurde erfolgreich abgeschlossen!!');

  end

  else

 showmessage('Fehler');

  end;

allerding friert das programm immer ein wenn ich den download starte und 'taut' erst nach dessen ende wieder auf.
der download funktioniert einbahnfrei genau so wie ich es mit wünsche aber, es ist mir unrecht dass das programm einfriert.

Delphi-Quellcode:

Application.ProcessMessages;

kenn ich natürlich, weiß aber nicht wie ich es in diesem falle einbringen soll, alles was ich bis jetzt versucht hab ist wirkungslos :-(

danke im vorraus

[Luckie]

Guck dir mal den letzten Parameter bei UrlDownloadToFile an, dort kannst du eine Callback Funktion angeben.

[Meflin]

Delphi-Quellcode:

Application.ProcessMessages;

Bringt dir in diesem Fall nix, da es innerhalb des URLDownloadToFile aufgerufen werden müsste!

Eine mögliche Lösung für dich wären Threads bzw. TThread.

Damit friert dir garantiert nix ein ;)

[Apollonius]

Auf wessen Mist ist eigentlich diese Idee gewachsen, URLDownloadToFile mit try-except zu umschließen? Ich sehe das in letzter Zeit ständig.

[SaFu]

Zitat:

Zitat von Apollonius

Auf wessen Mist ist eigentlich diese Idee gewachsen, URLDownloadToFile mit try-except zu umschließen? Ich sehe das in letzter Zeit ständig.

Was würdest du als Fehlerüberwachung einbauen??

[Apollonius]

API-Funktionen schmeißen höchstens Exceptions wie Stackoverflow o.Ä., welche du sowieso nicht vernünftig behandeln kannst. Fehler werden durch den Rückgabewert angezeigt.

[buster55]

danke, das geht beängistigent schnell ;-)

@lucki
könntest du mir das mit der callback funktion mal naher erlütern? oder gar auf meine funktion mal anweden bitte, für mich ist das online arbeiten mit delphi eher neuland deshalb kann ihc mit callback noch nicht so viel anfangen :?

[Luckie]

Man könnte auch einfach mal im Forum suchen: UrlDownloadToFile. ;)

[Die Muhkuh]

Schau mal da: http://www.delphipraxis.net/internal...downloadtofile

[buster55]

hab ich auch eben gefunden aber trotzdem danke :)
aber bei:

Delphi-Quellcode:

cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)

sagt mir mein delphi 7 prof. das da kein = stehen darf sondern : aber das wär dann ja flasch und dann gibts auch nur fehler :cry: