TSocketStream

Yep, i know that it's async, so i have to poll it recently. But my prob in the above mentioned example is: How to determine the amount of chars to read from the Stream / Socket.

In the meantime i tried following, also with no positive effect:

SuperStrict

Local Server_Host:String = "irc.blitzed.org"
Local Server_IP:Int = HostIp(Server_Host)
Local Server_Port:Int = 6667

If Server_IP = 0
	Print "Could not resolve Servername!"
	End
EndIf

Local Server_Socket:TSocket = CreateTCPSocket()

If ConnectSocket( Server_Socket, Server_IP, Server_Port) = False 

	RuntimeError "No Connection!"

EndIf

Local Server_SocketStream:TSocketStream = CreateSocketStream(Server_Socket, True)
Local Server_Stream:TStream = OpenStream(Server_SocketStream)


If Server_Stream

	Print "Connected succesfully!"

	Local data:String
	data = "USER TestUser MaxIRC "+Server_Host+" :MaxTest"
	WriteLine(Server_Stream, data)	
	
	data = "NICK TestUser"
	WriteLine(Server_Stream, data)

	SeekStream(Server_Stream,0) 
	



	While StreamPos(Server_Stream)<StreamSize(Server_Stream)
	        data = ReadLine(Server_Stream) 
			Print StreamSize(Server_Stream)
	        If(data<>"") 
	
	                Print data 
	        EndIf 
	Wend 
	
	CloseStream(Server_Stream) 
	CloseStream(Server_SocketStream) 
	CloseSocket(Server_Socket)

Else

	Print "STFU!"
	
	
EndIf