Hallo evilboyz,
dank deines Codes hab ich jetzt mittlerweile alles außer einer Sache hinbekommen.
Ich kann Dateien verschicken und alles, und die dateien sind nach dem verschicken auch noch genauso gross und funktionieren auch, allerdings kann ich den Stream, mit dem ich schicke nichtmehr freigeben, ich bekomme da jedesmal ne
exception.
Dein Qtextfehler liegt hier:
Code:
fsData := TFileStream.Create('datei\bindif.exe',fmOpenWrite);
sBuffer := StringOfChar(#00,fsData.Size);
try
// Dateiinhalt als String empfangen und in Datei schreiben
sBuffer := Socket.ReceiveText;
das ist beim Empfänger.
Undzwar hast du den Buffer auf die Größe von fsdate festgelegt, das ist falsch, der Buffer muss die grösse des socket.receivetext haben.
Ich hoffe das hilft dir weiter.
Gruß
Jan