HTML Source anzeigen lassen
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
TichaBetreff: HTML Source anzeigen lassen |
Mo, Dez 03, 2007 0:05 Antworten mit Zitat |
|
---|---|---|
Hi leute
ich weiss war schion länger nimmer hier, und bin auch etwas aus der Übung. Aber vileich tknan mir einer helfen. Ich habe mir hier etwas zusammengeschnipselt mit dem ich eine website aufrufen möchte und mir dann das was auf der site steht anzeigen lassen möchte. hier mal der Code Code: [AUSKLAPPEN] Global socket:TSocket = CreateTCPSocket() If Not socket.Connect(HostIp("lycos.de"),80) Then Print("Fehler beim Verbinden - IRC") Global stream:TSocketStream = CreateSocketStream(socket) Global msg2$ Print "beginn to read" Repeat msg2 = stream.ReadLine() Until Not socket.ReadAvail() Print "aulese ende" Print msg2 das sollte doch eigentlich richtig sein???? aber irgednwie funktienriert dasd nicht ... kann mir einer helfen? gruss Ticha |
||
SchnittlauchUnkraut |
Mo, Dez 03, 2007 0:10 Antworten mit Zitat |
|
---|---|---|
Zitat: msg2 = stream.ReadLine()
Denk darüber nochmal nach. |
||
Ich wars nicht. |
Ticha |
Mo, Dez 03, 2007 0:21 Antworten mit Zitat |
|
---|---|---|
hab ich aber versteh nich was du mir sagen willst... | ||
mahe |
Mo, Dez 03, 2007 0:25 Antworten mit Zitat |
|
---|---|---|
Du überschreibst die Variable msg2 bei jedem Schleifen-Durchlauf. | ||
ʇɹǝıdɯnɹɹoʞ ɹnʇɐuƃıs - ǝpoɥʇǝɯ-ɹoɹɹıɯ ɹǝp uı ,ɹoɹɹǝ, |
Ticha |
Mo, Dez 03, 2007 0:37 Antworten mit Zitat |
|
---|---|---|
ok... ich habe das jetzt mal dahin gehen verändert
Code: [AUSKLAPPEN] Global socket:TSocket = CreateTCPSocket()
If Not socket.Connect(HostIp("192.168.2.108"),80) Then Print("Fehler beim Verbinden - IRC") Global stream:TSocketStream = CreateSocketStream(socket) Global msg2$ Print "beginn to read" 'Repeat msg2 = stream.ReadLine() 'Until Not socket.ReadAvail() Print "aulese ende" Print msg2 da erscheint aber auch nix |
||
mahe |
Mo, Dez 03, 2007 0:53 Antworten mit Zitat |
|
---|---|---|
So falsch ist der Code nicht. Nur musst du (je nach Protokoll) dem Server auch sagen, dass er was schicken soll.
Code: [AUSKLAPPEN] Global socket:TSocket = CreateTCPSocket()
If Not socket.Connect(HostIp("www.google.de"),80) Then Print("Fehler beim Verbinden - IRC") Global stream:TSocketStream = CreateSocketStream(socket) stream.WriteLine("GET") Global msg2$ Repeat msg2 :+ stream.ReadLine() Until Not socket.ReadAvail() Print msg2 Das liefert zwar eine Fehler-Seite (400) aber es liefert wenigstens was |
||
ʇɹǝıdɯnɹɹoʞ ɹnʇɐuƃıs - ǝpoɥʇǝɯ-ɹoɹɹıɯ ɹǝp uı ,ɹoɹɹǝ, |
Ticha |
Mo, Dez 03, 2007 1:00 Antworten mit Zitat |
|
---|---|---|
ah ok danke
wusste auch nicht das ich zuerst get schicken muss :-I danke noch,ma wenn ich nun ne php seite aufrufe ide auf eine variable wartet.... öffne ich dann einen stream also so wie oben oder kann ich einfach eine variable hinschicken? |
||
mahe |
Mo, Dez 03, 2007 1:07 Antworten mit Zitat |
|
---|---|---|
Musst du in die Abfrage einbauen.
Google auf Deutsch: Code: [AUSKLAPPEN] stream.WriteLine("GET /webhp?hl=de HTTP/1.1")
stream.WriteLine("Host: www.google.de") stream.WriteLine("") Google auf Englisch: Code: [AUSKLAPPEN] stream.WriteLine("GET /webhp?hl=en HTTP/1.1")
stream.WriteLine("Host: www.google.de") stream.WriteLine("") Nach dem Fragezeichen kannst du die Werte übermitteln. Mit & kannst du mehrere aneinanderhängen. Also: ?variable1=wert1&variable2=wert2&variable3=wert3 |
||
ʇɹǝıdɯnɹɹoʞ ɹnʇɐuƃıs - ǝpoɥʇǝɯ-ɹoɹɹıɯ ɹǝp uı ,ɹoɹɹǝ, |
Ticha |
Mo, Dez 03, 2007 14:49 Antworten mit Zitat |
|
---|---|---|
Ok cool danke
das bringt mich ein grosses Stück weiter |
||
FOODy |
Mo, Dez 03, 2007 18:27 Antworten mit Zitat |
|
---|---|---|
Nurmal so nebenbei:
Wenn man nur eine Seite "abholen" will, kann man es ganz einfach mit dem (bzw indirekt mit dem) BRL.HTTPStream Module machen. Code: [AUSKLAPPEN] SuperStrict
Framework BRL.StandardIO Import BRL.HTTPStream Local stream:TStream=ReadStream("http::www.google.de") Local msg:String While stream.Eof()=False msg:+stream.ReadLine() Wend stream.Close() Print msg Gruß, FOODy |
||
BlitzMax + MaxGUI, 64-bit Arch Linux: Intel Core² E8500 | 8 GB Ram | GeForce GTX 460 · 1024 MB |
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group