So, wunderschönen guten Tag Euch allen
Es funktioniert nun tatsächlich!
Ich sende meinen FileStream jetzt per SendStream:
Code:
fsWork := TFileStream.Create('datei\bindif.exe', fmOpenRead);
sBuffer := StringOfChar(#0,fsWork.Size);
fsWork.Seek(0, soFromBeginning);
Socket.SendStream(fsWork);
Empfangen tue ich das ganz primitiv über ReceiveText:
Code:
sBuffer := Socket.ReceiveText;
fsData.Write(sBuffer[1],Length(sBuffer));
Da das ganze tatsächlich so einfach funktioniert, stelle ich mir natürlich die Frage, ob ich irgendwas noch nicht bedacht habe. Spricht irgendetwas gegen diese Vorgehensweise?
Natürlich ist mir immer noch nicht klar, warum die andere Variante nicht funktioniert hat und da ich ein wissbegieriger Mensch bin, würde mich das trotzdem noch interessieren ....
In jedem Fall: Danke mal für Eure Hilfe ...
