1:

MSG Hallo!					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm2.IdTCPServerExecute(AContext: TIdContext);
var
  lRow, lCmd,lother:String;
  nick,nachricht,command:String;
  i:Integer;
begin
  lRow:=Trim(AContext.Connection.IOHandler.ReadLn);//Inhalte einlesen
  lCmd:=lRow;//--------\/
  SetLength(lCmd,4);// Kommando herauslesen
  If AnsiSameText(lCmd, Join) Then begin //Wenn der Client hinzukommt
  //Hier kann dann das Spiel gestartet werden
  end else if AnsiSameText(lCmd, Msg) then begin 
  //Wenn eine Nachricht gesendet wurde, in deinem Fall müsstest du die Positionen der Figur auslesen, ...
  end else if AnsiSameText(lCmd, Leave) then begin
//Der Client hat das Spiel verlassen, Spiel beenden
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm2.SendToAllClients(s:String);
var
  list:TList;
  i:Integer;
  sCmd:String;
begin
  List := idTcpServer.Contexts.LockList;
  for i:=0 to List.Count-1 do
    tIdContext(List.Items[i]).Connection.IOHandler.WriteLn(s);
  IdTCPServer.Contexts.UnlockList;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm2.Timer1Timer(Sender: TObject);
var
  lCmd,lRow,user:String;
  i:Integer;
begin
  try
    lRow:=IdIOHandlerStack.ReadLn('',5);//Liest aus, wartet 5 ms auf ein Ergebnis, wenn kein String im Buffer liegt
    if lRow<>'' then begin //Wenn ein String empfangen wurde
      lCmd:=lRow;
      SetLength(lCmd,4);//Kommando vom Rest trennen
      if AnsiSameText(lCmd, cls) then begin
//Host beendet die Verbindung, hier Spiel beenden und Verbindung schließen
       Timer1.Enabled:=false;//Timer abstellen
      end else 
//Normale Nachricht, also gezogene Figur
    end;
  except//bei Verbindungsabbruch alle Verbindungen kappen und Spiel beenden
      IdTCPClient.Disconnect;
      MessageDlg('Verbindungsabbruch.',mtError,[mbOk],0);
      Timer1.Enabled:=false;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm2.ButtonLogInClick(Sender: TObject);
var
  str,strn:String;
  i:Integer;
begin
  (Sender as TButton).Caption:='Verbinde...';//Falls das Verbinden etwas länger dfauert, dem Benutzer eine Rückmeldung geben
  try
    try
      if RadioGroupType.ItemIndex=0 Then begin //Host
        IdTCPServer.Active:=true; //Server aktivieren
      end else begin                           //Client
        str:=MaskEditHostIp.Text;
        strn:='';
        for i:=1 to Length(str) do if str[i]<>' 'then strn:=strn+str[i];//IP-Adresse vorbereiten, ich benutze hier eine MaskEdit-Komponente, dabei können Leerzeichen auftreten, die hier gelöscht werden.
        IdTCPClient.Host:=strn;
        IdTCPClient.Connect;
        IdIOHandlerStack.WriteLn(Join+EditNick.Text);//Nachricht schreiben
        Timer1.Enabled:=true;//Halbsekündliche Abfrage aktivieren
      end;
    except//Fehlerbehandlung
      on E: EidSocketError do begin
        case E.LastError of
          10061: str:='Auf der Angegebenen Ip läuft unter dem angegebenen Port kein Server!';
          10060: str:='Die angegebene IP exisitiert nicht.';
        else str:='Konnte nicht verbinden.'
        end;
        MessageDlg(str,mtError,[mbOK],0);
      end;
    end;
  finally//Button-Beschriftung zurücksetzen
    if RadioGroupType.Enabled then
     (Sender as TButton).Caption:='Einloggen';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function TForm1.ConnectToServer(Host: string; NickName: string):string;
var
str: string;
begin
result := '';
  try
  Client.Host := Host;
  Client.Connect;
  IOHandlerStack.WriteLn(Join+NickName);//Nachricht schreiben
  Timer1.Enabled:=true;//Halbsekündliche Abfrage aktivieren
  except
  on E: EidSocketError do
    begin
    case E.LastError of
      10061: str:='Auf der Angegebenen Ip läuft unter dem angegebenen Port kein Server!';
      10060: str:='Die angegebene IP exisitiert nicht.';
      else
      str:='Konnte nicht verbinden.'
      end;
      result := str;
    end;
  end; //Except
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function TForm1.ConnectToServer(Host: string; NickName: string):string;
var
str: string;
begin
result := '';
  try
  Client.Host := Host;
  Client.Connect;
  IOHandlerStack.WriteLn(Join+NickName);//Nachricht schreiben
  Timer1.Enabled:=true;//Halbsekündliche Abfrage aktivieren
  except
  on E: EidSocketError do
    begin
    case E.LastError of
      10061: str:='Auf der Angegebenen Ip läuft unter dem angegebenen Port kein Server!';
      10060: str:='Die angegebene IP exisitiert nicht.';
      else
      str:='Konnte nicht verbinden.'
      end;
      result := str;
    end;
  end; //Except
end;