Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi download+ %anzeige (https://www.delphipraxis.net/18652-download-anzeige.html)

XeRo 22. Mär 2004 19:28


download+ %anzeige
 
hi...

was ich machen will ist einfach...ich will einen art downloadmanager schreiben...was wichtig ist, dass allle dateitypen (html, swf,...) heruntergeladen werden können, und dass man eine % anzeige hab.

das problem ist, dass ich keine ahnung hab wie ich das machen soll, weil ich auf dem gebiet noch nie was gemacht hab...

hilfe

Hansa 22. Mär 2004 19:38

Re: download+ %anzeige
 
Du mußt ein TGauge einsetzen. Das ist eine Progressbar mit % Anzeige. Die nützt Dir aber auch nur, wenn Du weißt wieviel am Ende geladen werden soll. 8)

himitsu 22. Mär 2004 19:38

Re: download+ %anzeige
 
Du bist doch schon langegenug hier :warn:

Hier im Forum suchenDatei downloaden Fortschrittsanzeige

oder Hier im Forum suchenURLDownloadToFile => Datei downloaden (mit Fortschrittsanzeige)

Und der Dateityp ist für's Downloaden total egal ;)

XeRo 22. Mär 2004 19:53

Re: download+ %anzeige
 
Zitat:

Zitat von Hansa
Du mußt ein TGauge einsetzen. Das ist eine Progressbar mit % Anzeige. Die nützt Dir aber auch nur, wenn Du weißt wieviel am Ende geladen werden soll. 8)

warte wo hab ich genau das selbe von genau dem selben gehört? ah ja im CHAT!!! :evil:

@himitsu...vielen dank...werd ich gleich mal testen...

[edit]wer schreiben kann ist klar im vorteil :zwinker: [/edit]

Hansa 22. Mär 2004 20:01

Re: download+ %anzeige
 
Zitat:

Zitat von XeRo
warte wo hab ich genau das selbe von genau dem selben gehört? ah ja im CHAT!!! :evil:

@himitsu...vielen dank...werd ich gleich mal testen...

[edit]wer schreiben kann ist klar im vorteil :zwinker: [/edit]

Wer lesen kann ist klar im Vorteil, so heißt das. :lol: Im Chat hats wohl nicht gereicht.

XeRo 22. Mär 2004 20:49

Re: download+ %anzeige
 
Liste der Anhänge anzeigen (Anzahl: 1)
hab jetzt mal himitsus text in exe gepackt und nichts herausgebracht...weis jemand von euch, warum das nicht geht?

himitsu 22. Mär 2004 21:41

Re: download+ %anzeige
 
Ich vermute mal, das liegt irgendwie an der DP, oder'm PHP.

Ich hab nur mal die URL geändert ('ne Datei von meinem Server angegeben) und da geht dein Code.

XeRo 23. Mär 2004 17:29

Re: download+ %anzeige
 
:oops:
Du hast recht...bei anderen Dateien funktioniert es, aber warum geht es bei manchen nicht und bei anderen schon?

XeRo 23. Mär 2004 17:34

Re: download+ %anzeige
 
Noch was: warum steht im Label1 "Datei gefunden..." wenn ich eine Seite angebe, die es gar nicht gibt...

was ich jetzt noch bräuchte ist ein befehl, mit dem ich prüfen könnte, ob eine datei im internet exisitiert oder nicht...

aber ansonsten funktioniert das ganze schon so wie ich will...danke

himitsu 23. Mär 2004 19:07

Re: download+ %anzeige
 
Schau dir mal Luckie's Bookmark-Checker an, der Prüft ja, ob eine Seite(Datei) existiert - den Quellcode liefert er ja meistens mit.


Eigentlich zeigt der "Datei gefunden..." erst an, wenn die Datei vorhanden ist (kurz vorm Download).

Kannst dir ja mal die restlichen Ereignisse anzeigen lassen und dann am Besten mal, zur besseren Übersicht, nicht in ein Label [Label1.Caption := '...';], sondern in ein Memo schreiben [Memo1.Lines.Add('..');].

Bei dir ist ja eine StatusCallback-Procedure, so ähnlich wie diese vorhanden,
Delphi-Quellcode:
  Function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULong; szStatusText: LPCWStr): HResult; StdCall;
    Begin
      Case ulStatusCode of
        BINDSTATUS_FINDINGRESOURCE {1}:   cbUpdate2('suchen', '0', 0);
        BINDSTATUS_CONNECTING {2}:        cbUpdate2('verbinden', '0', 0);
        BINDSTATUS_BEGINDOWNLOADDATA {4}: cbUpdate2('starten', '0', 0);
        BINDSTATUS_DOWNLOADINGDATA {5}:   cbUpdate2('Download', Trim(Format('%9.0n', [ulProgress / 1])), MulDiv(ulProgress, 100, ulProgressMax));
        BINDSTATUS_ENDDOWNLOADDATA {6}:   cbUpdate2('ende', Trim(Format('%9.0n', [ulProgressMax / 1])), 100);
        BINDSTATUS_CACHEFILENAMEAVAILABLE: CacheDatei := String(szStatusText);
      End;
      If False{UserCancel} Then Result := E_ABORT Else Result := S_OK;
    End;
welche z.B. mit einigen der folgenden Ereignisse erweitert werden kann (die Konstantennamen sagen ja, worum es geht):
Delphi-Quellcode:
  BINDSTATUS_FINDINGRESOURCE
  BINDSTATUS_CONNECTING
  BINDSTATUS_REDIRECTING
  BINDSTATUS_BEGINDOWNLOADDATA
  BINDSTATUS_DOWNLOADINGDATA
  BINDSTATUS_ENDDOWNLOADDATA
  BINDSTATUS_BEGINDOWNLOADCOMPONENTS
  BINDSTATUS_INSTALLINGCOMPONENTS
  BINDSTATUS_ENDDOWNLOADCOMPONENTS
  BINDSTATUS_USINGCACHEDCOPY
  BINDSTATUS_SENDINGREQUEST
  BINDSTATUS_CLASSIDAVAILABLE
  BINDSTATUS_MIMETYPEAVAILABLE
  BINDSTATUS_CACHEFILENAMEAVAILABLE
  BINDSTATUS_BEGINSYNCOPERATION
  BINDSTATUS_ENDSYNCOPERATION
  BINDSTATUS_BEGINUPLOADDATA
  BINDSTATUS_UPLOADINGDATA
  BINDSTATUS_ENDUPLOADDATA
  BINDSTATUS_PROTOCOLCLASSID
  BINDSTATUS_ENCODING
  BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE
  BINDSTATUS_CLASSINSTALLLOCATION
  BINDSTATUS_DECODING
  BINDSTATUS_LOADINGMIMEHANDLER
  BINDSTATUS_CONTENTDISPOSITIONATTACH
  BINDSTATUS_FILTERREPORTMIMETYPE
  BINDSTATUS_CLSIDCANINSTANTIATE
  BINDSTATUS_IUNKNOWNAVAILABLE
  BINDSTATUS_DIRECTBIND
  BINDSTATUS_RAWMIMETYPE
  BINDSTATUS_PROXYDETECTING
  BINDSTATUS_ACCEPTRANGES
  BINDSTATUS_COOKIE_SENT
  BINDSTATUS_COMPACT_POLICY_RECEIVED
  BINDSTATUS_COOKIE_SUPPRESSED
  BINDSTATUS_COOKIE_STATE_UNKNOWN
  BINDSTATUS_COOKIE_STATE_ACCEPT
  BINDSTATUS_COOKIE_STATE_REJECT
  BINDSTATUS_COOKIE_STATE_PROMPT
  BINDSTATUS_COOKIE_STATE_LEASH
  BINDSTATUS_COOKIE_STATE_DOWNGRADE
  BINDSTATUS_POLICY_HREF
  BINDSTATUS_P3P_HEADER
  BINDSTATUS_SESSION_COOKIE_RECEIVED
  BINDSTATUS_PERSISTENT_COOKIE_RECEIVED
  BINDSTATUS_SESSION_COOKIES_ALLOWED


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz