Es geht um URLDownloadToCacheFile. Diese Funktion funktioniert in PB4 nur wenn eine Datei in der URL angegeben wird, z.b. Index.htm. Gebe ich diese nun nicht an schlägt die Funktion fehl. Das sollte sie aber eigentlich nicht. Unter VB6 funktioniert die selbe Funktion ohne Probleme.
Weiß einer von euch Rat, würde lieber mit PB4 als mit VB6 arbeiten.
PB4-Code funktioniert nicht
Code: Alles auswählen
Define.l Result
Define.s URL,CacheFileName
URL = "http://sv.h774874.serverkompetenz.net/"
DeleteUrlCacheEntry_(URL)
CacheFileName = Space(1024)
Result = URLDownloadToCacheFile_(0,URL,CacheFileName,1024,0,0)
MessageRequester(Str(Result),CacheFileName)
Code: Alles auswählen
Private Declare Function URLDownloadToCacheFile Lib "urlmon.dll" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" (ByVal lpszUrlName As String) As Long
Private Sub Command1_Click()
Dim URL As String
Dim CacheFileName As String
Dim Result As Long
URL = "http://sv.h774874.serverkompetenz.net/"
DeleteUrlCacheEntry URL
CacheFileName = Space(1024)
Result = URLDownloadToCacheFile(0, URL, CacheFileName, 1024, 0, 0)
MsgBox CacheFileName, vbOKOnly, Format(Result)
End Sub
