[Gelöst] HTTP Request
Verfasst: 04.01.2010 15:29
Hallo Community!
Ich beschäftige mich seit heute mit HTTP Request.
Mein Code funktioniert, aber liefert mir ständig ein anderes Resultat.
Ich bekomme einpaar mal in buffer.htm mehrfach komische Zeichen wie: �������������... usw
oder der HTML Code hört bei einem Punkt auf. (Nicht komplett geladen)
Ich glaube es liegt an: *Buffer = AllocateMemory(10000)
Leider habe ich keine Lösung gefunden...
*Den Code hab ich mal irgendwo im Forum gefunden und bisschen verändert*
Mit einem HTTP Request Generator hatte ich keine Probleme. Er erzeugte mir immer den vollständigen Quellcode der Seite.
Hier, falls jemand ihn braucht (inkl. Source): http://www.softpedia.com/get/Internet/O ... ator.shtml
Ich bedanke mich schon jetzt für eure Hilfe!
Ich beschäftige mich seit heute mit HTTP Request.
Mein Code funktioniert, aber liefert mir ständig ein anderes Resultat.
Ich bekomme einpaar mal in buffer.htm mehrfach komische Zeichen wie: �������������... usw
oder der HTML Code hört bei einem Punkt auf. (Nicht komplett geladen)
Ich glaube es liegt an: *Buffer = AllocateMemory(10000)
Leider habe ich keine Lösung gefunden...
Code: Alles auswählen
InitNetwork()
header.s
info.s
id.l
result.s
*Buffer = AllocateMemory(10000)
id = OpenNetworkConnection("Seite", 80)
info = "Daten"
If id
header + "POST /index.php HTTP/1.1" + #CRLF$
header + "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" + #CRLF$
header + "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" + #CRLF$
header + "Host: Seite" + #CRLF$
header + "Content-Length: "+Str(Len(info)) + #CRLF$
header + "Content-Type: application/x-www-form-urlencoded" + #CRLF$
header + "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" + #CRLF$
header + "Cache-Control: no-cache" + #CRLF$
header + "Cookie: keep-alive" + #CRLF$ + #CRLF$
header + info + #CRLF$
SendNetworkString(id, header)
Repeat
Delay(10)
Until NetworkClientEvent(id)
ReceiveNetworkData(id, *Buffer, MemorySize(*Buffer))
result = PeekS(*Buffer)
If CreateFile(0, "buffer.htm")
WriteData(0, *Buffer, MemorySize(*Buffer))
CloseFile(0)
RunProgram("buffer.htm")
EndIf
CloseNetworkConnection(id)
EndIf
End
Mit einem HTTP Request Generator hatte ich keine Probleme. Er erzeugte mir immer den vollständigen Quellcode der Seite.
Hier, falls jemand ihn braucht (inkl. Source): http://www.softpedia.com/get/Internet/O ... ator.shtml
Ich bedanke mich schon jetzt für eure Hilfe!
