tcpserver einträge mit tcpclient lesen/empfangen

[DataCool]

Hi,

ziemlich simpel :

Im OnExecute des IdTcpServer :

Delphi-Quellcode:

procedure XYZTcpSvrExecute(AContext: TIdContext);
Var sIn : String;
    sCmd : String;
    sData : String;
    iPos  : Longint;
begin
  try
    // Alle 500 ms Sekunden nachschauen ob etwas vom Client gekommen ist
    sIn := AContext.Connection.Socket.ReadLn(#$A,500);
  except
    sIn := '';
  end;
  if Trim(sIn) <> '' then begin
    iPos := Pos(' ',sIn);
    if iPos > 0 then begin
      sCmd := Uppercase(copy(sIn,1,iPos-1));
      sData := copy(sIn,iPos,Length(sIn)-(iPos-1));
      if sCmd = 'TEXT' then 
        memo1.lines.add(sData)
      else begin
        if sCmd = 'GETTEXT' then
          AContext.Connection.Socket.WriteLn(memo1.lines.text);
      end;
    end;
  end;
end;

Hoffe das passt, habs gerade aus dem Kopf hier runter getippt.

Greetz DataCool