Von den Sockets zu IdTCPClient + IdTCPServer

[Harry M.]

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$