Probleem: Downloaden Zipbestand met serverxmlhttp (VB6)

[loekhofstede]

Probleem inlezen Zip-bestand. Wie kan mij met aan werkend voorbeeldsource helpen:
Ik maak gebruik van VisualBasic (6). Als reference geef ik op Microsoft XML v4.0. De msxmld.dll is recent (2007). Het ophalen van de catalogus (.zip) lukt me niet en er wordt steeds een Authentication (501) fout gegeven. Ik kom er zelf niet uit en heb wat technische ondersteuning nodig. Het meest gebaat ben ik met een werkend compleet voorbeeld en eventueel wat ondersteuning bij het inbouwen in de applicatie. Het is een onderdeel van een administratief pakket voor drukkerijen.
Er is een mogelijkheid om de datum van de catalogus op te vragen. Dit om een download alleen ingeval van nieuwe prijzen te doen.
De code om de datum te lezen:
Dim xmlhttp as Object
Set xmlhttp = CreateObject (MSXML2.serverXMLHttp.4.0)
xmlhttp.setOption 2, 13056
xmlhttp.Open "POST", "https://www.mvgii.nl/mis-test/index.asp", False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.Send “id=174160&key=bZe4e4DexefU2x4fDxz4ef&request=catalogdate”
MsgBox http.getAllResponseHeaders()
WinHTTPPostRequest = xmlhttp.responseText
txtResponse = WinHTTPPostRequest
Set xmlhttp = Nothing

De status is 200 (OK) en de XMLresponse geeft de datum van de laatste prijzen aan.

Hierna ga ik de prijzen ophalen:

Dim xmlhttp as Object
Set xmlhttp = CreateObject (MSXML2.serverXMLHttp.4.0)
xmlhttp.setOption 2, 13056
xmlhttp.Open "GET", "https://www.mvgii.nl/mis-test/index.asp", False
xmlhttp.setRequestHeader "Content-Type", "application/zip"
xmlhttp.setRequestHeader "Content-Disposition", "attachement; filename=catalog.zip"
xmlhttp.Send “id=174160&key=bZe4e4DexefU2x4fDxz4ef&request=catalogalways”
MsgBox xmlhttp.getAllResponseHeaders()

De .Send levert een antwoord op met een status van 200 (OK). De ResponseHeaders geeft echter Authentication (501) aan.

Ook het bijbehorende antwoord in XML formaat geeft een `Authentication failure`
<response><status>501</status><message>Authentication failure for /</message></response>

Het binnenhalen en wegschrijven doe is als volgt:
Dim lngfilenr, lngCount As Long
Dim arrBytes() As Byte
ReDim arrBytes(0) As Byte
Dim fs As Scripting.FilesystemObject

arrBytes = xmlhttp.responseBody
Set fs = CreateObject("Scripting.FileSystemObject")
lngfilenr = FreeFile
Open = “c:\paplev\modo\papier\CatalogPAPER.zip" For Binary As lngfilenr
For lngCount = 0 To UBound(arrBytes)
Put lngfilenr, , arrBytes(lngCount)
Next lngCount
Close lngfilenr

Bij voorbaat dank,
Loek Hofstede
Mobiel: 0653204207
loekhofstede@hotmail.com

 

[That Guy]

Hm, blijkbaar faalt de authentication van mvgii...

xmlhttp.Open "GET", "https://www.mvgii.nl/mis-test/index.asp", False

Je connect via een secured http lijntje; een http 501 (Authentication failure) betekent dat de server je niet dus accepteerd.

Ik weet niet precies waarom dit zo is, google levert me ook niets op. Zijn de server-instellingen wel goed?

 

[loekhofstede]

Probleem is inmiddels opgelost. Bedankt

 

[That Guy]

Zou je kunnen vertellen hoe, want dan hebben anderen er ook wat aan