Ip и система клиент сервер

[zumm]

Напишите пожалуста простенький код общения клиент-сервер, но что б сервер сам определил свой ip и сохранил его в файле (text.txt напиример). я прошу именно код, а не советы и наводки, так как сам уже не однократно юзал и сокеты и инди, но нечего дельного не вышло

[Pasha_Sh]

http://googleforidiots.com/

[Terran]

Напишите пожалуста простенький код общения клиент-сервер, но что б сервер сам определил свой ip и сохранил его в файле (text.txt напиример).

Вот простой примерчик:

Uses
WinSock;
Function GetLocalIP: String;
Const WSVer = $101;
Var
WsaData: TWSAData;
P: PHostEnt;
Buf: Array [0..127] Of Char;
Begin
Result:= '';
If WSAStartup(WSVer, WsaData) = 0 Then
Begin
If GetHostName(@Buf, 128) = 0 Then
Begin
P:= GetHostByName(@Buf);
If P <> Nil Then
Result:= INet_Ntoa(PInAddr(P^.H_Addr_List^)^);
End;
WSACleanup;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Var
S: TStringList;
Begin
S:=TStringList.Create;
S.Text:=GetLocalIP;
S.SaveToFile('C:\Text.txt');
S.Free;
ServerSocket1.Port:=2222;
ServerSocket1.Active:=True;
End;
Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Begin
Memo1.Lines.Add(Socket.ReceiveText);
End;
//---//
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientSocket1.Port:=2222;
ClientSocket1.Address:='192.168.0.23';
ClientSocket1.Active:=True;
End;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
ClientSocket1.Socket.SendText('Text');
End;

[zumm]

А тот IP что сервер определил, через него можно подключиться к нему с клиента?

[zumm]

потому как нужно что б файл писался IP для подключения через инет