das trennzeichen ist ja bereits '$'. es ist auch nicht möglich das der server die eine hälfte non string 1 und eine hälft von string 2 nimmt hier mal ein beispiel des versendes:
Delphi-Quellcode:
Log.Lines.Add('$CLIENTPORT$ übertragen '+IntToStr(IniDat.ReadInteger('Connection','Port', 20000)));
ServerSocket1.Socket.Connections[0].SendText('$RESULTREADINI$CLIENTPORT$'+IntToStr(IniDat.ReadInteger('Connection','Port', 20000)));
Delay(200);
und so werden sie vom clienten behnadelt:
Delphi-Quellcode:
// Clientport
TempEdit.SelStart := 0;
TempEdit.SelLength := 15;
if Tempedit.SelText = '$RESULTREADINI$'then begin
// client port auslesen
TempEdit.SelStart := 14;
TempEdit.SelLength := 12;
if TempEdit.SelText = '$CLIENTPORT$' then begin
TempEdit.SelStart := 26;
TempEdit.SelLength := Length(TempEdit.Text)-TempEdit.SelStart;
ServerClientPortEdit.Text := TempEdit.SelText;
end; // ende von $CLIENTPORT$