TCP Chat Hilfe/Tipps

Page 1 of 2

06/01/2014 18:05 ruffnirs#1

Hi, ich hoffe das geh�rt hier hin :confused:

Ich habe damit angefangen mich mit Autoit auseinander zu setzen und einen "Chat" wenn man es so nennen will geschrieben. Ich habe das Gef�hl dass ich es sehr umst�ndlich und nicht so geschrieben habe wie man das vielleicht machen sollte. Ich f�nde es ziemlich cool von euch wenn ihr mir helfen k�nntet wie ich das ganze "professioneller" aufbauen kann. Ich habe vor Autoit richtig zu lernen und nicht nur Spaghetticode zu produzieren.
Alles was ihr mir an Tipps gebt nehme ich gerne an :)

Ich hoffe das ist nicht zu ungenau.. ich bin kein totaler Anf�nger auf dem Gebiet aber eben mit Autoit.

Vielen Dank schon mal

Server:

Spoiler

Client

Spoiler

EDIT _______________________ Die Scripte so dass sie laufen _____________________________

Ein kleiner Chat (klappt �ber eine Lan bzw. W-Lan Verbindung problemlos, online wurde er noch nicht getestet)

Server:

Spoiler

Code:

;Server
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <editConstants.au3>
#include <StaticConstants.au3>
#include <GuiEdit.au3>

Global  $iPort,$iSocket1, $iSocket

$iPort= "XXXX"
$iSocket1 = -1
$iSocket = -1

HotKeySet("{ESC}","_stopp")

; GUI SETTINGS
GUICreate("Server",300,200)
$StartButton = GUICtrlCreateButton("Senden",220,155)
$InputLabel = GUICtrlCreateInput("",10,160, 200, 20)
$Label = GUICtrlCreateEdit("", 10, 10, 250, 140, $ES_AUTOHSCROLL + $ES_READONLY)
GUICtrlSetStyle($Label, $WS_VSCROLL)
GUISetState()
_GUICtrlEdit_SetReadOnly ( $Label, True)

TCPStartup() ; TCP wird Initialisiert

 $iSocketalt = TCPListen(@IPAddress1,$iPort) ; socket wird erstellt



While 1

	$iSocket = TCPAccept($iSocketalt) ; verbindung mit client wird hergestellt
	_getMsg()
	if $iSocket <> -1 then
		ConsoleWrite("verbunden")
		$iSocket1= $iSocket
	EndIf



	Switch GUIGetMsg()				; GUI Actions
		Case	$StartButton
					if  TCPSend($iSocket1,"x"&StringReplace(GUICtrlRead($InputLabel),Chr(1),"")&Chr(1)) == 0 Then
						MsgBox(1,"Error","Es wurde nichts gesendet")
					EndIf
		Case $GUI_EVENT_CLOSE
				_stopp()
	EndSwitch

WEnd



Func _getMsg()

	If TCPRecv($iSocket1,1)<> "" Then
		$sBuffer = ""
		ConsoleWrite("vor der do")
		Do

	   $sBuffer = $sBuffer & TCPRecv($iSocket1, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($Socket)
		Until StringTrimLeft($sBuffer, StringLen($sBuffer) - 1) = Chr(1)  ; Chr(0) klappt nicht.
		ConsoleWrite("nach der do")
		$text = GUICtrlRead($Label)
		GUICtrlSetData($Label,$text&@MDAY&"."&@MON&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sBuffer&@CRLF)

	EndIf
EndFunc

Func _stopp()
	If $iSocket <> -1 Then
		TCPCloseSocket($iSocket)
	ElseIf $iSocket1 <> -1 Then
		TCPCloseSocket($iSocket1)
	EndIf

	TCPShutdown()

	Exit
EndFunc

Func _SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "ptr", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc

Client

Spoiler

06/01/2014 18:47 alpines#2

Ich hab mich mit deiner Problematik nicht ganz befasst, allerdings kannst du bei der _getMsg Funktion etwas korrigeren.
Sende deine Nachrichten am Ende immer mit einem Zeichen das einzigartig ist, damit du solange in den Buffer receiven kannst bis dieses Zeichen angekommen ist.
So vermeidest du Datenverlust.

Des Weiteren solltest du alle Handles von TCP-Verbindungen schlie�en wenn du das Programm beendest.

Au�erdem speicherst du Werte ein die du nur tats�chlich einmal ben�tigst, unn�tige Variablen zu erstellen zieht an der Performance.
Ein Beispiel ist der Teil beim Clienten mit $sendedBytes = ...
und If $sendedBytes...
Warum machst du daraus nicht direkt

Code:

If Not TCPSend($socket, $msg) Then MsgBox ;...

06/02/2014 10:55 ruffnirs#3

Vielen Dank, mit den Variablen ist logisch habe ich einfach unn�tig Code.
Hast du bei dem _getMsg Funktion ein Link f�r mich der das genauer erkl�rt?
Ich dachte bei TCP ist das mit dem Datenverlust nicht so relevant wie bei UDP.

Verbindungen schlie�en ist auch logisch.

06/02/2014 11:46 alpines#4

Generell w�rde ich dir erstmal raten die ungarische Notation dir anzugew�hnen, klar bei typenunspezifischen Sprachen wie AutoIt braucht man das nicht direkt aber es hilft trotzdem.

So k�nnte aus $ipClient $sIpClient werden (s = String) und aus $StartButton $hStart oder $btnStart.
Der Pr�fix hilft dir bei gr��eren Projekten dabei was in der Variable enthalten ist.

Das mit dem Zeichen am Ende ist ganz einfach.
Client sendet als Beispiel:

Code:

StringReplace("Hallo, das ist ein Text!", Chr(0), "") & Chr(0)

Dabei ist Chr(0) das Zeichen was eine Nachricht erfolgreich abschlie�t.
In der Nachricht selbst werden alle Chr(0) zur Sicherheit entfernt.
Der Server hat dann das hier als Schleife

Code:

$sBuffer = "" ;Buffer vor jedem receiven clearen.

Do
	$sBuffer &= TCPRecv($hSocket, 2048)
Until StringTrimLeft($sBuffer, StringLen($sBuffer) - 1) = Chr(0)

Der Grund warum man ein speziellen Char am Ende haben sollte ist z.B. bei HTTP-Packets.
Dort werden viele kB gesendet und mit einem receiven kommt man da nicht weit, d.h. lieber solange dort receiven bis man ein </html> z.B. hat.

06/02/2014 12:41 ruffnirs#5

Ist es eigentlich n�tig die IP des Clienten zu kennen um eine Nachricht vom Server an den Clienten zu schicken oder kann man die aus der Verbindung Server -> Client herleiten? In meinem Fall muss ich diese ja Manuell eintragen.
Also ich habe mir �berlegt es nach diesem Modell umzuschreiben:

Client "Hallo Server hier bin ich das ist meine IP"
Server"Hallo Client ich kann jetzt mit dir Kommunizieren"

Muss ich das so machen oder kann ich aus dem Socket die IP des Clienten auslesen? Oder nur die des Servers?

Ist der Buffer in diesem Fall nicht eine "Unn�tige Variable" ? W�rde das nicht

Code:

 
Do 
   TCTRecv($hSocket, 2048)  ; Warum eigentlich 2048 Zeichen? 
Until StringTrimLeft (TCPRecv ($hSocket, 2048), StringLen(TCPRecv ($hSocket, 2048) -1 ) = Chr(0)

den gleichen Effekt haben? Also was bringt mir der Buffer?

Ich bin auch f�r jeden Link mit Erkl�rungen zu den Verfahren bzw. Funktionen dankbar.
Die Autoit Hilfe bietet da leider nur eine sehr oberfl�chliche Erkl�rung.

06/02/2014 13:05 alpines#6

In der Hilfe gibt es zu TCPRecv glaube ich eine Funktion namens SocketToIp die den Socket von TCPAccept zu einer IP umwandelt.
Da muss der Client keine IP mitschicken, w�re ja Schwachsinn.

Falsch, es h�tte nicht den selben Effekt.
Wenn du die erste H�lfte z.B. abrufst wird sie aus dem Buffer gel�scht, deshalb das $sBuffer &= TCPRecv($hSocket, 2048)

2048 Zeichen sind nur random gew�hlt, kannst auch jede andere Zahl nehmen.

06/02/2014 14:01 ruffnirs#7

Das hei�t ich k�nnte hier bei case $StartButton ff. auch einfach statt TCPConnect usw. die $socket Variable benutzen die ich die ganze Zeit sowieso schon nutze, also die die ich von TCPAccept zur�ck bekomme? Wenn der Client dann aber nicht in dem Moment sendet ist die Variable doch leer? wie k�nnte ich das l�sen?

Code:

 
While 1


	$socket = TCPAccept($socketalt) ; verbindung mit client wird hergestellt


	Switch GUIGetMsg()				; GUI Actions
		Case	$StartButton
					$socket1=TCPConnect($ipClient,$port)
					$x=TCPSend($socket1,GUICtrlRead($InputLabel))
		Case $GUI_EVENT_CLOSE
					TCPCloseSocket($socket1)
					TCPShutdown()
					ExitLoop
	EndSwitch
	_getMsg()
WEnd

Edit ____

Hab das ganze mal versucht umzusetzen. Die Funktion SocketToip habe ich aus der Hilfe �bernommen liefert aber immer den wert 0 zur�ck..

Hier m�sste irgendwo der Denkfehler liegen. Vom Client kann ich Daten Empfangen der "$iSocket" ist auch nicht leer aber die Funktion liefert 0, was mach ich falsch?

Code:

$iSocket = TCPAccept($iSocketalt) ; verbindung mit client wird hergestellt
	if $iSocket <> -1 then
		ConsoleWrite("iSocket = "&$iSocket &@CRLF)
		$ipClient= _SocketToIP($iSocket)	; aus bestehender Verbindung mit Client die Ip des Clienten erfassen
		ConsoleWrite("Clientip = "&$ipClient&@CRLF)
	EndIf

Quellcode Server

Spoiler

Code:

;Server
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $iPort, $iSocket1, $iSocket

$iPort= "37561"
$iSocket1 = -1
$iSocket = -1

HotKeySet("{ESC}","_stopp")

; GUI SETTINGS
GUICreate("Server",300,200)
$StartButton = GUICtrlCreateButton("Start",10,10)
$InputLabel = GUICtrlCreateInput("",10,50, 150, 80)
$Label = GUICtrlCreateLabel("",180,50, 100,"","",0x00000001)

GUISetState()


TCPStartup() ; TCP wird Initialisiert

 $iSocketalt = TCPListen(@IPAddress1,$iPort) ; socket wird erstellt



While 1

	$iSocket = TCPAccept($iSocketalt) ; verbindung mit client wird hergestellt
	if $iSocket <> -1 then
		ConsoleWrite("iSocket = "&$iSocket &@CRLF)
		$ipClient= _SocketToIP($iSocket)	; aus bestehender Verbindung mit Client die Ip des Clienten erfassen
		ConsoleWrite("Clientip = "&$ipClient&@CRLF)
	EndIf



	Switch GUIGetMsg()				; GUI Actions
		Case	$StartButton
					$iSocket1= TCPConnect($ipClient,$iPort)
					if TCPSend($iSocket1,GUICtrlRead($InputLabel)) == 0 Then
						MsgBox(1,"Error","Es wurde nichts gesendet")
					EndIf
					TCPCloseSocket($iSocket1)
		Case $GUI_EVENT_CLOSE
				_stopp()
	EndSwitch
	_getMsg()
WEnd



Func _getMsg()
	If $iSocket <> -1 Then ; Wenn Socket ungleich -1 ist, ...
		$sBuffer = ""
		Do
	   $sBuffer = $sBuffer & TCPRecv($iSocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
		Until StringTrimLeft($sBuffer, StringLen($sBuffer) - 1) = Chr(1)  ; Chr(0) klappt nicht. 
		$text = GUICtrlRead($Label)
		GUICtrlSetData($Label,$text&@MDAY&"."&@MON&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sBuffer&@CRLF)
		TCPCloseSocket($iSocket)
	EndIf
EndFunc

Func _stopp()
	If $iSocket <> -1 Then
		TCPCloseSocket($iSocket)
	ElseIf $iSocket1 <> -1 Then
		TCPCloseSocket($iSocket1)
	EndIf

	TCPShutdown()

	Exit
EndFunc

Func _SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "ptr", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc

06/02/2014 17:59 alpines#8

Ich denke du hast einen kleinen Denkfehler drinne, was du versuchst ist glaube ich eine Message vom Clienten zu receiven und dann zu ihm zu connecten um ihm was zu senden.

Das kannst du aber �ber den selben Socket machen, wenn du als Server von einem Clienten �ber den Socket $hConnectedSocket z.B. was receivest kannst du auch TCPSend($hConnectedSocket, $sMsg) machen.

06/02/2014 18:10 ruffnirs#9

Spoiler

Code:

;Server
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $iPort, $iSocket1, $iSocket

$iPort= "37561"
$iSocket1 = -1
$iSocket = -1

HotKeySet("{ESC}","_stopp")

; GUI SETTINGS
GUICreate("Server",300,200)
$StartButton = GUICtrlCreateButton("Start",10,10)
$InputLabel = GUICtrlCreateInput("",10,50, 150, 80)
$Label = GUICtrlCreateLabel("",180,50, 100,"","",0x00000001)

GUISetState()


TCPStartup() ; TCP wird Initialisiert

 $iSocketalt = TCPListen(@IPAddress1,$iPort) ; socket wird erstellt



While 1

	$iSocket = TCPAccept($iSocketalt) ; verbindung mit client wird hergestellt
	if $iSocket <> -1 then
		ConsoleWrite("iSocket = "&$iSocket &@CRLF)
		$iSocket1= $iSocket
		ConsoleWrite("isocket1 = "&$iSocket1&@CRLF)
	EndIf



	Switch GUIGetMsg()				; GUI Actions
		Case	$StartButton
					if TCPSend($iSocket1,GUICtrlRead($InputLabel)) == 0 Then
						MsgBox(1,"Error","Es wurde nichts gesendet")
					EndIf
					TCPCloseSocket($iSocket1)
		Case $GUI_EVENT_CLOSE
				_stopp()
	EndSwitch
	_getMsg()
WEnd



Func _getMsg()
	If $iSocket <> -1 Then ; Wenn Socket ungleich -1 ist, ...
		$sBuffer = ""
		Do
	   $sBuffer = $sBuffer & TCPRecv($iSocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
		Until StringTrimLeft($sBuffer, StringLen($sBuffer) - 1) = Chr(1)  ; Chr(0) klappt nicht.
		$text = GUICtrlRead($Label)
		GUICtrlSetData($Label,$text&@MDAY&"."&@MON&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sBuffer&@CRLF)
		TCPCloseSocket($iSocket)
	EndIf
EndFunc

Func _stopp()
	If $iSocket <> -1 Then
		TCPCloseSocket($iSocket)
	ElseIf $iSocket1 <> -1 Then
		TCPCloseSocket($iSocket1)
	EndIf

	TCPShutdown()

	Exit
EndFunc

Func _SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "ptr", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc

dann m�sste es aber doch so funktionieren und das tut es nicht.
Ich glaube weil ich bei _getMsg den Socket schon schlie�e wenn ich ihn da offen lasse geht es aber auch nicht.

06/02/2014 18:43 alpines#10

Den Socket von einem Clienten nicht schlie�en wenn er weitere Nachrichten senden m�chte, lass den offen und pr�fe ob neue Daten reinkommen.

06/02/2014 20:23 ruffnirs#11

So l�uft alles :handsdown:
Ein kleiner Chat (klappt �ber eine Lan bzw. W-Lan Verbindung problemlos, online wurde er noch nicht getestet)

Server:

Spoiler

Code:

;Server
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <editConstants.au3>
#include <StaticConstants.au3>
#include <GuiEdit.au3>

Global  $iPort,$iSocket1, $iSocket

$iPort= "XXXX"
$iSocket1 = -1
$iSocket = -1

HotKeySet("{ESC}","_stopp")

; GUI SETTINGS
GUICreate("Server",300,200)
$StartButton = GUICtrlCreateButton("Senden",220,155)
$InputLabel = GUICtrlCreateInput("",10,160, 200, 20)
$Label = GUICtrlCreateEdit("", 10, 10, 250, 140, $ES_AUTOHSCROLL + $ES_READONLY)
GUICtrlSetStyle($Label, $WS_VSCROLL)
GUISetState()
_GUICtrlEdit_SetReadOnly ( $Label, True)

TCPStartup() ; TCP wird Initialisiert

 $iSocketalt = TCPListen(@IPAddress1,$iPort) ; socket wird erstellt



While 1

	$iSocket = TCPAccept($iSocketalt) ; verbindung mit client wird hergestellt
	_getMsg()
	if $iSocket <> -1 then
		ConsoleWrite("verbunden")
		$iSocket1= $iSocket
	EndIf



	Switch GUIGetMsg()				; GUI Actions
		Case	$StartButton
					if  TCPSend($iSocket1,"x"&StringReplace(GUICtrlRead($InputLabel),Chr(1),"")&Chr(1)) == 0 Then
						MsgBox(1,"Error","Es wurde nichts gesendet")
					EndIf
		Case $GUI_EVENT_CLOSE
				_stopp()
	EndSwitch

WEnd



Func _getMsg()

	If TCPRecv($iSocket1,1)<> "" Then
		$sBuffer = ""
		ConsoleWrite("vor der do")
		Do

	   $sBuffer = $sBuffer & TCPRecv($iSocket1, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($Socket)
		Until StringTrimLeft($sBuffer, StringLen($sBuffer) - 1) = Chr(1)  ; Chr(0) klappt nicht.
		ConsoleWrite("nach der do")
		$text = GUICtrlRead($Label)
		GUICtrlSetData($Label,$text&@MDAY&"."&@MON&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sBuffer&@CRLF)

	EndIf
EndFunc

Func _stopp()
	If $iSocket <> -1 Then
		TCPCloseSocket($iSocket)
	ElseIf $iSocket1 <> -1 Then
		TCPCloseSocket($iSocket1)
	EndIf

	TCPShutdown()

	Exit
EndFunc

Func _SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "ptr", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc

Client

Spoiler

06/02/2014 21:21 alpines#12

So, jetzt erstmal optimieren.

06/03/2014 12:19 ruffnirs#13

Vorschl�ge?

06/03/2014 12:32 alpines#14

Ja.

Spoiler

und das war gerade mal nur der Server...
Da kann man noch viel mehr optimieren.

06/03/2014 12:41 ruffnirs#15

Optimieren im welchen Sinne? Also erweitern ausbauen oder m�gliche Buggs beheben oder was meinst du?

Page 1 of 2