HTML Source anzeigen lassen

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Ticha Betreff: 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] [EINKLAPPEN] 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

Ticha

Betreff: 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

	Schnittlauch Unkraut	Mo, Dez 03, 2007 0:10 Antworten mit Zitat
Zitat: msg2 = stream.ReadLine() Denk darüber nochmal nach.
Ich wars nicht.

Schnittlauch

Unkraut

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...

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ɹɹǝ,

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] [EINKLAPPEN] 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

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 Sad

	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] [EINKLAPPEN] 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ɹɹǝ,

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 Wink

ʇɹǝı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?

Ticha

Mo, Dez 03, 2007 1:00
Antworten mit Zitat

ah ok danke Smile

wusste auch nicht das ich zuerst get schicken muss :-I

danke noch,ma Smile

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] [EINKLAPPEN] stream.WriteLine("GET /webhp?hl=de HTTP/1.1") stream.WriteLine("Host: www.google.de") stream.WriteLine("") Google auf Englisch: Code: [AUSKLAPPEN] [EINKLAPPEN] 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ɹɹǝ,

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

Ticha

Mo, Dez 03, 2007 14:49
Antworten mit Zitat

Ok cool danke Smile

das bringt mich ein grosses Stück weiter Smile

	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] [EINKLAPPEN] 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

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

Nach Oben

BlitzBasic Portal

HTML Source anzeigen lassen

Betreff: HTML Source anzeigen lassen