Tcp verbindung von ein programm an ein anderes weitergeben.

sedas19

Hallo ich wollte nachfragen wie es möglich ist oder ob es möglich ist wen ich zb ein Client habe ihn mit den server verbinde und dan nachher an ein 2 server weiterverbinden möchte ob man dies mit den Sockets machen kann oder ob ich den client sagen muss das er sich auf ein neuen port einwählen muss.

**alpines**

So einfach ist das nicht, sonst könnte man ja einfach die Pakete von anderen Programmen umlenken.

Du kannst dem Server bzw. dem Clienten ja eine spezielle Anfrage schicken wie: REDIRECT TO 192.168.178.100 AT 9000 damit der Client/Server das verarbeitet (musst du selber coden) und dorthin connected.
Das wäre wohl die beste Lösung.

sedas19

ja habe ich auch schon dran gedacht blos wen nacher 100 leute sich verbinden und jeder sein eigene "server" erhält muss ich ja auch 100 ports aktivieren. in der hinsicht ist es wieder unproduktiv^^

**alpines**

Nein musst du nicht. Du kannst ja mehrer Clienten an einen Port schicken. Wie funktionieren denn HTTP-Server?
Solange der andere Client nicht gleichzeitig TCPAccept verwendet kommen da eigentlich keine Clienten durcheinander.

sedas19

Server:

Spoiler anzeigen

[autoit]

#include-once
while 1
_FileReceive();
If @error Then
MsgBox(48,"","Error: "&@error)
Exit
EndIf
Sleep(100)
WEnd
;===============================================================================
;
; Function Name: _FileReceive
; Description:: Receives a File from an Client (See _FileSend)
; Parameter(s):
;$sFileName [Optional] : The Filename to save (if default or "" then using the original File Name)
;$IP [Optional] : The IP where the Server run, Default = @IPAdress1
;$PORT [Optional] : The Port to use (must be the same as by _FileSend!!)
;$iSplash [Optional] : 1(defaul) = show SplashText
; Requirement(s): -
; Return Value(s): On Succes Return 1
; On faild Return -1 and @error code 1-3:
; @error = 1: Error creating Listening socket on IP
; @error = 2: Faild to open file
; @error = 3: Faild to write file
; Author(s): GtaSpider
; Modified by: Texos
;
;===============================================================================
Func _FileReceive($sFileName = '', $IP = @IPAddress1, $PORT = 4324,$iSplash=1)
Local $iMainSocket, $iAccSocket = -1, $sBuff, $sRecv = "", $i = 0
TCPStartup()
$iMainSocket = TCPListen($IP, $PORT)
If @error Then Return SetError(1,0,-1)
While $iAccSocket = -1
$iAccSocket = TCPAccept($iMainSocket)
Sleep(50)
WEnd
If $iSplash Then ProgressOn("Empfangsbereit","","Warte auf Dateien...",-1,-1,16)
Do
$Recv = TCPRecv($iAccSocket,1024)
Sleep(100)
Until $Recv <> ""
$Recv = StringSplit($Recv,Chr(3))
$iFileTrimcount = Round($Recv[3]/8)
$iFilesizeByte = $Recv[2]/8
$SFilename = $Recv[1]
$sBuff = ""
$len = 0
Do
$Recv = TCPRecv($iAccSocket,_Max(1024*16,$iFileTrimcount/4))
$sBuff &= $Recv
If $iSplash Then
$len += BinaryLen(Binary("0x"&$Recv))
ProgressSet(_Min(100,Round($len/$iFilesizeByte,2)*100),"Dateitransfer", _Min(100,Round($len/$iFilesizeByte,2)*100)&"% abgeschlossen.")
EndIf
Sleep(20)
Until StringRight($Recv,4) = "DONE" ; DONE = 444F4E45
$sBuff = StringTrimRight($sBuff,4)
$sBuff = Binary("0x"&$sBuff)
$sBuff = BinaryToString($sBuff)
If $iSplash Then ProgressSet(100,"Schreibe Datei...")
If FileExists("Incoming\"&$sFileName) Then
$sTmp = StringSplit($sFileName, ".")
If $sTmp[0] < 2 Then
While 1
$i += 1
If Not FileExists($sFileName & "(" & $i & ")") Then
$sFileName = $sFileName & "(" & $i & ")"
ExitLoop
EndIf
WEnd
Else
While 1
$i += 1
If Not FileExists($sTmp[1] & "(" & $i & ")" & $sTmp[2]) Then
$sFileName = $sTmp[1] & "(" & $i & ")." & $sTmp[2]
ExitLoop
EndIf
WEnd
EndIf
EndIf
$iFileOp = FileOpen("Incoming\"&$sFileName, 16 + 2)
If @error Then Return SetError(2,0,-1)
FileWrite($iFileOp, $sBuff)
If @error Then Return SetError(3,0,-1)
FileClose($iFileOp)
If $iSplash Then ProgressSet(100,"Datei erfolgreich empfangen!")
TCPSend($iAccSocket, "Finish")
If $iSplash Then Sleep(2000)
TCPCloseSocket($iAccSocket)
If $iSplash Then ProgressOff()
TCPShutdown()
Sleep(1000)
Return 1
EndFunc ;==>_FileReceive
Func _Min($nNum1, $nNum2)
; Check to see if the parameters are indeed numbers of some sort.
If (Not IsNumber($nNum1)) Then Return SetError(1, 0, 0)
If (Not IsNumber($nNum2)) Then Return SetError(2, 0, 0)
If $nNum1 > $nNum2 Then
Return $nNum2
Else
Return $nNum1
EndIf
EndFunc ;==>_Min
Func _Max($nNum1, $nNum2)
; Check to see if the parameters are indeed numbers of some sort.
If Not IsNumber($nNum1) Then Return SetError(1, 0, 0)
If Not IsNumber($nNum2) Then Return SetError(2, 0, 0)
If $nNum1 > $nNum2 Then
Return $nNum1
Else
Return $nNum2
EndIf
EndFunc ;==>_Max

[/autoit]

Client:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Clien3t.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
IniWrite("Settings\Conf","Server","IP","")
;~ Global $server = IniRead("Settings\Conf","Server","IP","")
;~ If $server <> "" Then
$server = @IPAddress1
;~ EndIf
#include <ButtonConstants.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <File.au3>
Global $akhandel
Global $handlela = 1,$coloum = 8
Dim $listviewhandle[1][$coloum]
Global Const $sMessage = "Hold down Ctrl or Shift to choose multiple files."
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 268, 461, 195, 123)
GUICtrlCreateLabel("Hash-Key:", 8, 8, 92, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$hash1 = GUICtrlCreateInput("", 112, 8, 145, 21)
$ListView1 = GUICtrlCreateListView("Filename|Status", 8, 64, 250, 358)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75)
$sefile = GUICtrlCreateButton("Select File", 8, 32, 251, 25)
$upload = GUICtrlCreateButton("Upload", 8, 428, 251, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
DirCreate("Upload")
;~ _FileSend("1mb.txt", $server)
;~ _FileSend("10mb.txt", $server)
_FileSend("100mb.txt", $server)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $upload
_Crypt()
Case $sefile
Local $sFileOpenDialog = FileOpenDialog($sMessage, @ScriptDir & "\", "All (*.*)|", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
_File($sFileOpenDialog)
Case $GUI_EVENT_CLOSE
Exit