TCP Chat

Übersicht

BlitzBasic

Allgemein

	Merier Betreff: TCP Chat	Mi, März 04, 2009 18:25 Antworten mit Zitat
Hallo Leute! Ich wollte mal ein bisschen mit den Netzwerkbefehlen von BlitzBasic experimentieren und dabei ist das rausgekommen. Ich hab nur das Problem, dass er immer anzeigt Invalid Stream Handle. Vielleicht könnt ihr mir helfen. Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Global Stream = CreateTCPServer(1995) Global NewConnect = AcceptTCPStream(Stream) Win = CreateWindow("Chat",300,200,400,400,0,5) box_out = CreateTextArea(5,5,385,130,Win) box_in = CreateTextArea(5,150,385,130,Win) send = CreateButton("Send",150,300,100,20,Win) Repeat If WaitEvent(0) = $803 End If EventID() = $401 If EventSource() = send MSG$ = TextAreaText(box_in) WriteLine NewConnect,MSG$ EndIf EndIf If NewConnect AddTextAreaText box_out,ReadLine(NewConnect) EndIf Until KeyHit(1) Den Client hab ich noch nicht geschrieben. Freue mich auf Antworten!

Merier

Betreff: TCP Chat

Mi, März 04, 2009 18:25
Antworten mit Zitat

Hallo Leute!

Ich wollte mal ein bisschen mit den Netzwerkbefehlen von BlitzBasic experimentieren und dabei ist das rausgekommen.

Ich hab nur das Problem, dass er immer anzeigt Invalid Stream Handle.

Vielleicht könnt ihr mir helfen.

Code:
Code: [AUSKLAPPEN]

Global Stream = CreateTCPServer(1995)
Global NewConnect = AcceptTCPStream(Stream)

Win = CreateWindow("Chat",300,200,400,400,0,5)

box_out = CreateTextArea(5,5,385,130,Win)

box_in = CreateTextArea(5,150,385,130,Win)

send = CreateButton("Send",150,300,100,20,Win)

Repeat

If WaitEvent(0) = $803 End

If EventID() = $401

If EventSource() = send

MSG$ = TextAreaText(box_in)

WriteLine NewConnect,MSG$

EndIf

EndIf

If NewConnect

AddTextAreaText box_out,ReadLine(NewConnect)

EndIf

Until KeyHit(1)

Den Client hab ich noch nicht geschrieben.

Freue mich auf Antworten!

	The_Nici	Mi, März 04, 2009 20:49 Antworten mit Zitat
AcceptTCPStream muss in einer Schleife ausgeführt werden. MfG

The_Nici

Mi, März 04, 2009 20:49
Antworten mit Zitat

AcceptTCPStream muss in einer Schleife ausgeführt werden.
MfG