Datei über TCP versenden

  • Hallo,
    ich arbeite darauf hinaus, Dateien per TCP versenden zu können.
    Ich hänge allerdings schon direkt am Anfang.
    Habe als test folgendes Progrämmchen geschrieben, welches das gleiche tut, wie beim versenden, nur halt eben ohne TCP:

    [autoit]

    $fileopen = FileOpen ("lied.mp3",16)
    $fileread = FileRead ($fileopen)
    $filename = FileGetLongName ($fileopen)

    [/autoit][autoit][/autoit][autoit]

    $fileopen2 = FileOpen ("Neu Textdokument.txt",18)
    FileWrite ($fileopen2,BinaryToString ($fileread))
    FileMove ("Neu Textdokument.txt",$filename)
    MsgBox (0,"Fertig","Fertig")

    [/autoit]

    Das neue Lied ist nun ein .mp3, und hat auch die gleiche Größe wie das Original.
    Spiele ich es jedoch ab, so hört es sich total verzerrt an.
    Woran liegt das, und wo liegt der Fehler?

  • Ich würde sagen, weil eine MP3 eine binäre Datei ist. Warum einfach, wenns auch kompliziert geht?

    [autoit]

    FileCopy("lied.mp3",$filename)
    MsgBox (0,"Fertig","Fertig")

    [/autoit]

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

  • Und wenn Du "BinaryToString" weglässt ?

    Du liest und schreibst doch direkt binär !

    Edit: Aber auf Deine Frage zurückzukommen: Suche mal "_TCPSendFile".

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"