Progressbar zusamen mit Downloads o.ä.

[a14xerus]

Wenn ich Z.B eine Datei mittles URLDownloadToFlie_() herunterlade, wie kann ich da den Fortschritt in einer Progressbar anzeigen?

oder enifache: wie kann ich den Fortschritt des ladnes einer Datei (auch lokal) anzeigen??

[roherter]

Ist allerdings VB

Code: Alles auswählen

Declare Function DoFileDownload Lib "shdocvw.dll" _
  (Byval lpszFile As String) As Long

' Download starten
' zunächst URL in Unicode konvertieren
strURL = StrConv("http://MeineDomain.de/Download.exe", vbUnicode)
DoFileDownload strURL

Kanns dir aber abändern wenn du willst ?

[a14xerus]

hhm.. aber wo is da die Progressbar???

[PBZecke]

Habe das mal nach PB Konvertiert:

Code: Alles auswählen

If OpenLibrary(0,"shdocvw.dll") 

  If GetFunction(0,"DoFileDownload")
     CallCFunction(0,"DoFileDownload","http://www.google.de/index.html")
  EndIf
  CloseLibrary(0)   

EndIf

Ich erhalte aber immer die Meldung "Die aktuellen Sicherheitseinstellungen
erlauben keinen Download der Datei"

@a14xerus:
Ein mit PB 4 funktionierendes Download-Beispiel findest Du zb. hier
http://www.purebasic.fr/german/viewtopic.php?t=8645