|
| |
Fragen und Antworten zur vbarchiv.dll| Download einer HTML-PAge geht plötzlich nicht mehr | |  | | Autor: Erdmännchen | | Datum: 03.10.08 18:34 |
| Hallo
ich verwende vbArchive.DLL seit langer Zeit um Daten vom Netz herunterzuladen und auszuwerten. Nun geht plötzlich der Zugriff auf eine der Pages nicht mehr. Ich erhalte statt der erwarteten Daten:
UA-Error #1735
Bitte wenden Sie sich per E-Mail an info@toppreise.ch
Please write to info@toppreise.ch Mein Code:
Option Compare Database
Option Explicit
Public Declare Function netDownloadFile Lib "vbarchiv.dll" _
(ByVal sUrl As String, _
ByVal sLocalFile As String, _
ByRef pCallbackFunc As Long, _
ByRef uTimeoutMillis As Long) As Boolean
Sub TestHTMLDownload()
Dim bSuccess As Boolean
'meine Problemseite
bSuccess = netDownloadFile("http://www.toppreise.ch/", _
"D:\HtmlDownload\demo.HTM", 0, 5000)
' 'funktioniert
' bSuccess = netDownloadFile("http://www.oelclick.ch/",
' "D:\HtmlDownload\demo.HTM", 0, 5000)
End SubCopy/Paste von "http://www.toppreise.ch" in den Browser bringt die richtigen Daten.
An was könnte das liegen?
Erdmännchen | |
| Re: Download einer HTML-PAge geht plötzlich nicht mehr | | | | Autor: Erdmännchen | | Datum: 08.10.08 13:27 |
| Hallo
Erst mal besten Dank für diese Antwort. Jetzt habe ich schon mal verstanden was das Problem prinzipiell ist.
Da ich mir nicht ganz sicher bin, ob die meien Abfragen schätzen, hab ich bisher erst mal drauf verzichtet direkt zu fragen...
Kleine Frage: übergibst Du denn gar keinen Accept-Header, oder ist der einfach leer? Wenn er leer wäre könnte man ja dort einfach fix IE, Opera oder irgendwas zu übergeben... Das wär doch sicher in allen Fällen besser als gar nichts...
Gibt es ev. ein anderes VB-Tool, das den Download von Pages aus dem Internet beherrscht (Hab schon gesucht und bisher nichts gefunden)? Oder kann ich mir selbst so was basteln? DLL hab ich schon gemacht, aber mit Abruf von Pages aus dem Internet habe ich NULL Erfahrung!
Erdmännchen | |
| Re: Download einer HTML-PAge geht plötzlich nicht mehr - eine Lösung | | | | Autor: Erdmännchen | | Datum: 08.10.08 15:31 |
| Für mich schon sehr dringend, weil der Downoad ab dieser Site zur Core-Funktionalität dieses Programmes gehört.
Mein Hauptproblem war, dass die Google-Suche nach URL und Download (und was ich sonst noch alles an Scuhbegriffen probiert habe) kein auswertbares Resultat brachte. So habe ich einmal mehr in den Foren von PowerBasic gesucht (in dieser Sprache hätte ich auch mein Erstatz .DLL geschrieben, falls ich keine Lösung gefunden hätte).
Und siehe da: da war neben Unbrauchbarem auch ein ganz einfaches Beispiel mit einer DLL aus System32: urlmon.dll
Jetzt habe ich einen Ersatz für die Funktion netDownloadFile geschrieben, die nicht vbarchive.dll sondern urlmon.dll aufruft. Callback und Timeout werden nicht unterstützt - aber diese habe ich eh nicht verwendet. Soweit ich das absehen kann, scheint der Download jetzt zu funktionieren.
Erdmännchen
Option Compare Database
Option Explicit
'Public Declare Function netDownloadFile Lib "vbarchiv.dll" _
' (ByVal sUrl As String, _
' ByVal sLocalFile As String, _
' ByRef pCallbackFunc As Long, _
' ByRef uTimeoutMillis As Long) As Boolean
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Function netDownloadFile(ByVal sUrl As String, _
ByVal sLocalFile As String, _
ByRef pCallbackFunc As Long, _
ByRef uTimeoutMillis As Long) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, sUrl, sLocalFile, 0, 0)
If lngRetVal = 0 Then
netDownloadFile = True
Else
netDownloadFile = False
End If
End Function
Sub TestHTMLDownload()
Dim bSuccess As Boolean
'meine Problemseite
bSuccess = netDownloadFile("http://www.toppreise.ch/", _
"D:\HtmlDownload\demo.HTM", 0, 5000)
' 'funktioniert
' bSuccess = netDownloadFile("http://www.oelclick.ch/",
' "D:\HtmlDownload\demo.HTM", 0, 5000)
End Sub | |
| Re: Download einer HTML-PAge geht plötzlich nicht mehr - eine Lösung | | | | Autor: Erdmännchen | | Datum: 09.10.08 08:47 |
| Für mich ist das Probelm im Moment so genügend gelöst, auch wenn ich natürlich mit der Lösung nicht so richtig zufrieden bin - ein Providurium halt... Herzlichen Dank auf alle Fälle für Deine Unterstützung!
Ich hoffe Du findest wieder Zeit an der der vbArchive.DLL weiterzuarbeiten - ist ein tolles Stück Code und hat mit schon viel geholfen!
Erdmännchen | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
Mai 2024
Sie sind aktuell nicht angemeldet.