TServerSocket: SendText, SendStream, SendBuf

[MR321]

SendText ist ja noch ganz einfach, einfach als Parameter einen String senden, und dem Client dann nachher per ReciveText abfragen.

Das ganze hat aber entscheidene Nachteile:
- Wenn man schnell 2 Strings hintereinander sendet, dann wird daraus einer gemacht
- Wenn man einen langen String sendet, dann werden daraus 2 gemacht!
- Es ist nicht kompatibel mit Anwendungen, die in einer anderen Sprache geschrieben wurden.

Wer kann mir sagen wie ich SendStream und SendBuf verwende???
Danke im Voraus!

[Simon Grossenbacher]

Mit SendBuf kannst du z.B. einen record senden. Du übergibst einfach den Record und seine Grösse.

Bei einem Stream kannst du alle abgeleiteten Klassen von TStream über das Socket senden: z.B: TFileStream oder TStringStream, ...


2 Beispiele (ungetestet):

[font  size=2 face="Courier New" color="#000000"]type
  TSender = record
    Name: String;
    Text: String;
  end;

[font color="#000080"]{....}

[/font]procedure TForm1.Button1Click(Sender: TObject);
var
  RSender: TSender;
begin
  ServerSocket1.Socket.SendBuf(RSender, SizeOf(RSender))
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  stream: TFileStream;
begin
  stream := TFileStream.Create('afile.txt', fmOpenRead);
  ServerSocket1.Socket.SendStream(stream);
  stream.Free;
end;
[/font]

[MR321]

Danke Simon, hast mir echt geholfen
fehlt nur noch mein Problem mit der eindeutigen Identifizierung der Clients!