Dateien über PC senden

05/02/2012 20:51 Tobolobo#1
Hallo,
ich hab mich in letzter Zeit mit dem Senden von Dateien über TCP beschäftigt. Ich probier jetzt schon seit knapp 3h ein funktionierendes Script für die Übertragung einer binären Datei zu erstellen, aber ich schaff es einfach nicht... Nun bin ich auf der Suche nach Beispielcode. Google hat keine funktionierenden Beispiele ausgespuckt. Darum frage ich jetz hier, ob jmd welche hätte (Sender und Empfänger).

Vielen Dank im Voraus,
Tobolobo.
05/02/2012 21:09 Achat#2
Hi,

SuFu : [Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

MfG

edit: wäre hilfreich, wenn du dein Script postest :p
05/02/2012 21:19 Tobolobo#3
SuFu hab ich auch schon benutzt. Ich schau mal, ob ich den code von dem TCP Tutorial noch n wenig abändern kann, dass des Dateien sendet. Mein code überträgt mir immer alles bis ca auf 50 kb

Mein Code (nich grad der schönste und auf langsam übertragen eingestellt):
Empfänger:
Code:
TCPStartup()
$IP = InputBox("IP", "Bitte Server IP eingeben.", "127.0.0.1")

$Connection = TCPConnect($IP, 4412)
If $Connection < 0 Then
    MsgBox(16, "Error", "Konnte keine Verbindung herstellen!")
    _Exit()
EndIf

While 1
	$Resv = TCPRecv($Connection, 2)
	If @error Then
		MsgBox(16, "Error", "Verbindung unterbrochen!")
		_Exit()
	EndIf
	If $Resv = "SF" Then
        While 1
            $Resv = TCPRecv($Connection, 2048, 1)
            If @error Then
				FileWrite("Datei.exe", $Resv)
                MsgBox(16, "Error", "Verbindung unterbrochen!")
                _Exit()
            EndIf
			FileWrite("Datei.exe", $Resv)
        WEnd
    EndIf
WEnd

Func _Exit()
    TCPShutdown()
    Exit
EndFunc   ;==>_Exit
Sender:
Code:
Global $IP = "127.0.0.1"

TCPStartup()

$Socket = TCPListen($IP, 4412, 1)

Do
    $Connection = TCPAccept($Socket)
Until $Connection <> -1

$File = FileOpen("bdcamsetup.exe", 16)

While 1
    TCPSend($Connection, "SF")
    While 1
        $Read = FileRead($File, 2048)
        If @error Then
            FileClose($File)
            Exit
        EndIf
        TCPSend($Connection, $Read)
        If @error Then Exit
    WEnd
WEnd