i need some help...

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Rck

SetBuffer(DesktopBuffer())	;USED so that stringwidth() won't error

mainwin = CreateWindow("Paul B",0,0,400,400)

labstrn$ = "Text Entry:"
thelab = CreateLabel(labstrn$,0,0,StringWidth(labstrn$),40,mainwin)

thefield = CreateTextField(StringWidth(labstrn$),0,200,StringHeight(labstrn$)+5,mainwin)


but = CreateButton("press",0,40,40,40,mainwin)




If False Then

;;;;server code
myServer = CreateTCPServer(225)

Repeat

strStream=AcceptTCPStream(myServer)
If strStream Then 
	takenString$ = ReadString$(strStream)
	Print takenString$
EndIf

Select WaitEvent(100)
Case $803
	End
End Select



Forever
;;;;

EndIf





Repeat

Select WaitEvent()
Case $401
	Select EventSource()
	Case but
		inString$ = TextFieldText(thefield)
		Print "'"+inString$+"'"
		
		upstream = OpenTCPStream("127.0.0.1",225)	;or ip of the server
		If upstream Then
			WriteLine upstream,inString$
			CloseTCPStream upstream
		EndIf
		
	End Select
Case $803
	End
End Select

Forever