AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi TDownloadURL Fehler abfangen?
Thema durchsuchen
Ansicht
Themen-Optionen

TDownloadURL Fehler abfangen?

Ein Thema von Hedge · begonnen am 20. Nov 2009 · letzter Beitrag vom 23. Nov 2009
Antwort Antwort
Hedge

Registriert seit: 30. Jun 2007
278 Beiträge
 
Delphi 2009 Professional
 
#1

TDownloadURL Fehler abfangen?

  Alt 20. Nov 2009, 16:30
Ich benutze TDownloadURL um eine Datei herunterzuladen was auch ziemlich gut funktioniert.

Leider werden Fehler (zB. falsche URL) sofort ausgegeben anstatt eine Exception zu werfen.

Kann ich trotzdem irgendwie die Fehlermeldungen auffangen und selbst damit weiterarbeiten?

Die entsprechende Codestelle in der Unit ExtActns sieht so aus:

Delphi-Quellcode:
  if Assigned(UrlMonDownloadToFile) then
  begin
    if URLMonDownloadToFile(nil, PChar(URL), PChar(FileName), 0, Self as IBindStatusCallBack) <> S_OK then
      raise Exception.CreateResFmt(@SErrorDownloadingURL, [URL]);
  end else
    raise Exception.CreateResFmt(@SUrlMonDllMissing, [UrlMonLib]);
٩๏̯͡๏)۶
  Mit Zitat antworten Zitat
uoeb7gp
(Gast)

n/a Beiträge
 
#2

Re: TDownloadURL Fehler abfangen?

  Alt 20. Nov 2009, 17:05
Hallo, ich gehe mal von der naiven Annahme aus, dass sich dies durch


Delphi-Quellcode:
try
  URLMonDownloadToFile(.....);
except
  ....
end;
abfangen lässt.

Sollte das OS eine Exception werfen, dann mit

Delphi-Quellcode:
function URLMonDownloadToFileEx(...): ...;
var
  OldMode: UINT;
  FPUControlWord: Word;
begin
  OldMode := SetErrorMode(ErrorMode);
  try
    asm
      FNSTCW FPUControlWord
    end;
    try
      result := URLMonDownloadToFile(.....);
    finally
      asm
        FNCLEX
        FLDCW FPUControlWord
      end;
    end;
  finally
    SetErrorMode(OldMode);
  end;
end;
versuchen.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: TDownloadURL Fehler abfangen?

  Alt 20. Nov 2009, 21:45
Zitat von Hedge:
Leider werden Fehler (zB. falsche URL) sofort ausgegeben anstatt eine Exception zu werfen.
Wie behandelst du denn die Exception?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Hedge

Registriert seit: 30. Jun 2007
278 Beiträge
 
Delphi 2009 Professional
 
#4

Re: TDownloadURL Fehler abfangen?

  Alt 21. Nov 2009, 14:23
Das Problem ist dass überhaupt keine Exceptions geworfen werden.

Ich wollte mir erstmal ansehen was so für Exceptions auftreten können:

Delphi-Quellcode:
var
  RemotePath: String;
  Download:TDownloadURL;
begin
  downloadfilename:=fileName;
  RemotePath:='http://localhost/download/';
  Download:=TDownloadURL.Create(self);
  Download.URL:=RemotePath+filename;
  Download.Filename:=ExtractFilePath(Application.ExeName)+fileName;
  Download.OnDownloadProgress:=URL_OnDownloadProgress;
  try
    Download.ExecuteTarget(nil);
  except
    on E:Exception do
     ShowMessage(E.Message);
  end;
Leider kommt es nie zu einer Exception.
٩๏̯͡๏)۶
  Mit Zitat antworten Zitat
uoeb7gp
(Gast)

n/a Beiträge
 
#5

Re: TDownloadURL Fehler abfangen?

  Alt 21. Nov 2009, 22:24
Hallo Hedge, hab den Demosource bei mit ausprobiert.
Das Teil schmeisst die schönsten Exceptions.
Diese werden auch korrekt behandelt.
Habs mit D7 getestet, funkt tadellos, ohne Probleme.
Womöglich D2009 Problem??

lg.
  Mit Zitat antworten Zitat
Hedge

Registriert seit: 30. Jun 2007
278 Beiträge
 
Delphi 2009 Professional
 
#6

Re: TDownloadURL Fehler abfangen?

  Alt 22. Nov 2009, 11:42
Danke fürs Ausprobieren.

Nen D2009-Problem kann ich nicht ausschließen, aber was kann man da machen?
٩๏̯͡๏)۶
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: TDownloadURL Fehler abfangen?

  Alt 22. Nov 2009, 11:52
Warten bis jemand das mit D2009 bestätigt hat.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Hedge

Registriert seit: 30. Jun 2007
278 Beiträge
 
Delphi 2009 Professional
 
#8

Re: TDownloadURL Fehler abfangen?

  Alt 23. Nov 2009, 14:44
Kann mir Jemand bei dem es funktioniert vielleicht mal seine ExtActns.pas schicken damit ich mit Meiner vergleichen kann?

Nach wie vor erscheinen bei mir im Fehlerfall lediglich Message-Boxen die Auskunft über diesen geben.
٩๏̯͡๏)۶
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz