Forum: Netzwerke
Delphi
by Evilboyz,
31. Jan 2003
fsData := TFileStream.Create('datei\bindif.exe',fmOpenWrite);
sBuffer := StringOfChar(#00,fsData.Size);
try
// Dateiinhalt als String empfangen und in Datei schreiben
sBuffer := Socket.ReceiveText;
Jetzt dämmert mir gerade erst, was Du eben versucht hast, mir zu sagen ... natürlich ist fsData.Size ein völliger Blödsinn an der Stelle!
Der Code funktioniert allerdings...
Forum: Netzwerke
Delphi
by Evilboyz,
31. Jan 2003
Ich hab doch den Stream letztendlich per ReceiveText in den Buffer geschrieben und nicht per ReceiveBuffer, das hat dann auch wunderbar funktioniert, obwohl es, jedenfalls habe ich das Gefühl, nicht ganz so die feine Art ist!
Aber ich glaube, ich habe Dir heute morgen auch den entsprechenden Code geschickt ... ???
Forum: Netzwerke
Delphi
by Evilboyz,
30. Jan 2003
Ich bin am verzweifeln und zweifle an meinem Verstand!
Ich schicke also auf der einen Seite einen Buffer ab und lasse mir die gesendete Datenmenge in ein Textfeld ausgeben:
gr.text := IntToStr(StrToInt(gr.text)+Socket.SendBuf(sBuffer,Length(sBuffer)));
dann Empfange ich den Buffer auf der anderen Seite und lasse mir die Empfangenen Daten in ein Textfeld ausgeben:gr.text :=...