Nabend...
Ich habe ein Problem mit folgendem Script:
Spoiler anzeigen
Func _SendFolderViaTCP($FolderPath,$ToIP,$ToPort)
ToolTip("Starte TCP...",0,0)
TCPStartup()
$Socket = TCPConnect($ToIP,$ToPort)
If $Socket = -1 Then
MsgBox(64,"Info","Konnte nicht zum Server verbinden.")
Exit
EndIf
ToolTip("Zippe Ordner...",0,0)
_ZipFolder($FolderPath,"temp.zip")
ToolTip("Wandle gezippten Ordner zu Binary um...",0,0)
$FileToBinary_Read = FileRead("temp.zip")
$FileToBinary = Binary($FileToBinary_Read)
ToolTip("Lösche temporäre Zip...",0,0)
FileDelete("temp.zip")
ToolTip("Sende Zip...",0,0)
TCPSend($Socket,$FileToBinary)
MsgBox(64,"Info","Ordner erfolgreich gesendet!")
ToolTip("Beende TCP...",0,0)
TCPCloseSocket($Socket)
TCPShutdown()
EndFunc
Func _RecvFolderViaTCP($FromIP,$FromPort)
ToolTip("Starte TCP...",0,0)
TCPStartup()
$Socket = TCPListen($FromIP,$FromPort)
ToolTip("Warten auf Verbindung...",0,0)
While 1
$AcceptedSocket = TCPAccept($Socket)
If $AcceptedSocket <> -1 Then
ToolTip("Empfange Binary...",0,0)
$ReceivedData = TCPRecv($AcceptedSocket, 9999999999999999999999999999999999999999999999)
ToolTip("Schreibe Binary in Zip...",0,0)
FileWrite("temp.zip",$ReceivedData)
ToolTip("Unzippe Zip...",0,0)
_UnZipFolder("temp.zip")
ToolTip("Lösche temporäre Zip...",0,0)
FileDelete("temp.zip")
ToolTip("Ordner erfolgreich empfangen!",0,0)
Sleep(2000)
ToolTip("Beende TCP...",0,0)
EndIf
TCPCloseSocket($AcceptedSocket)
TCPCloseSocket($Socket)
TCPShutdown()
WEnd
EndFunc
Func _ZipFolder($FolderPath,$Output = "Zipped.zip")
FileInstall("7za.exe","7za.exe")
Sleep(1000)
run("7za.exe a " & '"' & $Output & '"' & " " & '"' & $FolderPath & '"')
Do
FileDelete("7za.exe")
sleep(500)
Until Not FileExists("7za.exe")
EndFunc
Func _UnZipFolder($FileToUnzip)
FileInstall("7za.exe","7za.exe")
Sleep(1000)
run("7za.exe e " & '"' & $FileToUnzip & '"')
Do
FileDelete("7za.exe")
sleep(500)
Until Not FileExists("7za.exe")
EndFunc
Die Zip Funktionen funktionieren einwandfrei. Nur der Rest halt nicht. Der Server findet den Client nicht, und der Client nicht den Server.
Ich finde die Fehlerquelle nicht, da ja keine Errors angezeigt werden.
Die Zugehörige 7za.exe gibt es HIER .
Bitte helfen, ich weiß nicht mehr weiter
Edit: Wie hängt man Dateien an?