Zitat:
Delphi-Quellcode:
if input_bild.size=i
then input_bild.free;
Du gibst den Stream hiermit praktisch in jedem Durchlauf frei. Du solltest zu Beginn der Übertragung eine Längenangabe senden, also einfach Clientstream.size, diese dann in einer globalen Variablen speichern und prüfen, ob die Größe des Empfangsstreams gleich dieser Größe ist. Die Daten werden ja nicht in einem Rutsch übertragen, sodass du mehrfach Daten an den Stream anhängen musst.