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;                    

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:

Uses
  WinSock;


function GetIpAddress: string; 
var phoste: PHostEnt; 
  Buffer: array [0..100] of char; 
  WSAData: TWSADATA; 
begin 
  result:=''; 
  if WSAStartup($0101, WSAData) <> 0 then exit; 
  GetHostName(Buffer,Sizeof(Buffer)); 
  phoste:=GetHostByName(buffer); 
  if phoste = nil then result:='127.0.0.1' 
  else result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^)); 
  WSACleanup; 
end; 

function IsOnline: Boolean; 
Var 
  dlvFlag : DWord; 
begin 
  Result:=False; 
  dlvFlag := Internet_Connection_Modem + Internet_Connection_Lan + Internet_Connection_Proxy; 
  If InternetGetConnectedState ( @dlvFlag, 0 ) = True Then 
    Result:=dlvFlag = 81; 
End;

Aufruf:
If isonline then memo1.lines.add('Internet-IP: '+GetRASIP(1)+'Netzwerk-IP: '+GetIPAddress) else memo1.lines.add('Netzwerk-IP: '+GetIPAddress);                    

1:

idhttp1.Get('http://checkip.dyndns.org/');                    

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

function tform1.getmyipaddress: string;
var
a:string;
httpindy:Tidhttp;
begin
httpindy:=Tidhttp.Create;
a:=httpindy.Get('http://checkip.dyndns.org/');
result:=copy(a,   pos('Address:',a)+9   ,pos('</body></html>',a)-pos('Address:',a)-9);
httpindy.Free;
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:

function getIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt; 
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char; 
  I: Integer;
  GInitData: TWSAData; 
begin
  WSAStartup($101, GInitData); 
  Result := TstringList.Create;
  Result.Clear; 
  GetHostName(Buffer, SizeOf(Buffer)); 
  phe := GetHostByName(buffer);
  if phe = nil then Exit; 
  pPtr := PaPInAddr(phe^.h_addr_list); 
  I    := 0;
  while pPtr^[I] <> nil do 
  begin 
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I); 
  end; 
  WSACleanup;
end;