Autor: Maik Borchardt (---.dip0.t-ipconnect.de)
Datum: 16.06.14 23:09
Hallo Matthias,
da gebe ich dir zum Teil schon recht, aber man darf nicht vergessen, dass jeder am ende auch sein eigenes Süppchen kocht, und sicherlich hat der ein oder andere garnicht das bedürfniss irgendwie auf das WEB zu greifen zu wollen/müssen.
Bei mir ist das schon etwas anderes, ich bin eigentlich mehr im Web Tätig und schreibe mir ab und an Profan Programme die mir immerwieder die Arbeit erleichtern sollen.... Sei es DMX steuerung, Midi (bin nebenbei DJ ;) Und beruflich habe ich mir auch diverse Progs geschrieben... aber eben immer für mich allein...
Nun mal zu deiner INC
ich habe beim überarbeiten ein paar sachen verändern müssen....
zum Beispiel diese Proc
Proc HttpReceiveResponse
Declare Size&,Downloaded&,Buff#,return$
Dim Buff#,2048
bResults& = PWinHttpReceiveResponse( hRequest&, 0)
CaseNot bResults& :Return "Receive: "+str$(~GetLastError())'+WinError$(%WinError)
'Hier soll eigentlich Size& auf die exakte Buffergröße gesetzt werden
'Klappt aber nicht.
'Doch jetzt schon..... du darfst die Size& nicht direkt angeben sondern entweder als Addr(Size&) oder eine Bereich# und danach umwandeln
'also wenn eine API einen Wert zurück geben soll
PWinHttpQueryDataAvailable( hRequest&, buff#)
size&=long(buff#,0)
print "ReadSize:";format$("0",size&);"Byte"
CLEAR buff#
PWinHttpReadData( hRequest&, Buff#, Size&, addr(Downloaded&))
print "DownloadedSize:";format$("0",Downloaded&);"Byte"
return$=@Char$(Buff#,0,size&)
Dispose Buff#
Return return$
EndProc
Ich habe auch noch ein paar andere veränderungen vorgenommen...
Header gibt mir mein Indianer auch bekannt....
Zitat:
Content-Type -> multipart/form-data; boundary=---x3f567b---
User-Agent -> HTTP Profan
Host -> localhost
Content-Length -> 2861
Connection -> Keep-Alive
allerdings ist das file noch nicht gespeichert worden.... das kommt jetzt mal in angriff
Bei Send Request habe ich 2575 Bytes (Header und boundary ect....)
wenn ich dein Originalcode benutze, habe ich garkeinen Header.... :(
Xp Home
Profan 9
|
|
