[Hilfe] TCP Chat (Frage)

[BlueBasHeR]

Hey Leuts ich brauche bischen hilfe beim TCP Chat...

Also mein TCP Client sendet ganz normal (Getestet!) aber jetzt fehtl mir die Funktion zum Empfangen wie mach ich das?

Also wenn Ich ja die IP 127.0.0.1 habe und dann Senden Drücke zeigt der mir Nur 1x Den Text d.h. er Sendet aber Empfängt nicht sonnst würde er ja 2x Da stehen haben... oder nicht?

 Spoiler

#include <GuiConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>

#include <GUIConstants.au3>

$ServerIP = "127.0.0.1"
$Port = "3000"

TCPStartup()

$ConnectedSocket = TCPConnect($ServerIP, $Port)

If @error Then
        MsgBox(4112, "Error", "TCP Connect failed with WSA error: " & @error)
Else

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TCP - IP Chat", 282, 370, 192, 124)
$Label1 = GUICtrlCreateLabel("IP Adresse:", 8, 8, 58, 17)
$ConnectedIP1 = GUICtrlCreateInput("127.0.0.1", 64, 8, 121, 21)
$ChatText = GUICtrlCreateEdit("", 8, 104, 265, 129)
GUICtrlSetData(-1, "")
$Label2 = GUICtrlCreateLabel("Chat:", 8, 80, 29, 17)
$BtnSend = GUICtrlCreateButton("Send", 8, 336, 75, 25)
$BtnCmd = GUICtrlCreateButton("Command", 200, 336, 75, 25)
$SendedText = GUICtrlCreateEdit("", 8, 272, 265, 57)
GUICtrlSetData(-1, "")
$Label3 = GUICtrlCreateLabel("Text:", 8, 248, 28, 17)
$ChangeIPAdress = GUICtrlCreateButton("Change", 192, 8, 83, 25)
$Label4 = GUICtrlCreateLabel("Connected IP:", 8, 40, 72, 17)
$ConnectedIP2 = GUICtrlCreateLabel("127.0.0.1", 80, 40, 49, 17)
$Label6 = GUICtrlCreateLabel("-----------------------------------------------------", 8, 56, 269, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
   $nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

        Case $BtnSend
			$GuiReadCIP = GUICtrlRead($ConnectedIP1,1)
            $MainSocket = TCPConnect($GuiReadCIP,$Port)
            TCPSend($MainSocket,GUICtrlRead($SendedText))
			$GuiReadST = GUICtrlRead($SendedText, 1)
			_GUICtrlEdit_AppendText($ChatText, "You: " & $GuiReadST & @CRLF)

			EndSwitch
		WEnd
		EndIf

Die IP Change & Command Funktion ist noch nicht Drinne! erst nach dem alles geklappt hat also mit senden und empfangen

Hoffe ihr könnt schnell antworten

Mfg BlueBasHeR :*

[BladeTiger12]

So ich habe mich mal 5-10 Min beschäftigt.
Hier die Lösung(relativ einfach) gibt bessere Lösungen:
Server

PHP Code:

TCPStartup()

Global $TCPAccept[20] , $Connect = 0

$Lis = TCPListen("127.0.0.1" , 555)
If @error Then Exit

While 1
    $TCPAccept[$Connect] = TCPAccept($Lis)
    If $TCPAccept[$Connect] >= 0 Then
        $Connect = $Connect +1
        MsgBox(64 , "Info" , "Connect")
    EndIf
    For $i = 0 To $Connect -1
        $Recv = TCPRecv($TCPAccept[$i] , 2048)
        If $Recv <> "" Then
            MsgBox(64 , "Info" , $Recv)
        EndIf
    Next
WEnd 


Client

PHP Code:

TCPStartup()
$In = InputBox("Name" , "Name")
$Lis = TCPConnect("127.0.0.1" , 555)
If @error Then Exit

While 1
    $sData = InputBox("Title" , "Nachricht senden:")
    TCPSend($Lis , $In & " sagt:" & $sData)
WEnd 


Habe auch keine Kick-Funktion eingebaut.
Die auch relativ einfach ist.
Für weitere Hilfe oder Erklärungen kannst du ja in Skype kommen:
MrBladeTiger12

[BlueBasHeR]

Danke das du geantwortet hast!

Noch nicht ausprobiert wenn ich fragen hab dann schreib ich