Autor: Matthias Griesbach (---.customers.d1-online.com)
Datum: 17.06.14 10:54
Hallo Maik,
dank Dir für Dein Bemühen.
Da Size& jetzt den richtigen Wert ermittelt, kann der Buffer auch richtig Dimensioniert werden. Schließlich kann ein Script auch mehr als 2048 Bytes zurückgeben.
Proc HttpReceiveResponse
Declare Size&,Downloaded&,Buff#,Return$
bResults& = PWinHttpReceiveResponse( hRequest&, 0)
CaseNot bResults& :Return "Receive: "+str$(~GetLastError())'+WinError$(%WinError)
PWinHttpQueryDataAvailable( hRequest&, addr(size&))
print "ReadSize:";format$("0",size&);"Byte"
Dim Buff#,Size&
PWinHttpReadData( hRequest&, Buff#, Size&, addr(Downloaded&))
print "DownloadedSize:";format$("0",Downloaded&);"Byte"
Return$=String$(Buff#,0)
Dispose Buff#
Return Return$
EndProc
Beste Grüße
Matthias
XProfan X2, Windows 7
|
|