Есть ли другои способ получения внешнего IP

[ArtGrek]

вот нашел в инете такои вот способ получения IP, но так как он зависит от саита,
мне он не очень нравица, хотел бы узнать как по другому получить внешнии IP

function GetHTML(const AURL: string): string;
 var
   sHead,sHost,sPage: string;
   x,xCnt,xCntTotal: integer;
   sock: TClientSocket;
   ws: TWinSocketStream;
   ss: TStringStream;
   buff: array[0..4095] of char;
 const
   CrLf = #13#10;
 begin
   Result := '';
 
   sHost := AURL;
   x := Pos('//',sHost) ;
   if x > 0 then
     System.Delete(sHost,1,x+1) ;
   x := Pos('/',sHost) ;
   if x > 0 then
   begin
     sPage := Copy(sHost,x,Length(sHost)) ;
     System.Delete(sHost,x,Length(sHost)) ;
   end
   else
   begin
     sPage := '/';
   end;
 
   sock := TClientSocket.Create(nil) ;
   try
     try
       sock.ClientType := ctBlocking;
       sock.Port := 80;
       sock.Host := sHost;
       sock.Open;
 
       // установим задержку на 20 секунд
       ws := TWinSocketStream.Create(sock.Socket,20000) ;
       ss := TStringStream.Create('') ;
       try
         sHead := 'GET ' + sPage + ' HTTP/1.0 ' + CrLf + 
				'Host: ' + sHost + CrLf + CrLf;
         StrPCopy(buff,sHead) ;
 
         ws.Write(buff,Length(sHead) + 1) ;
         ws.Position := 0;
 
         FillChar(buff,SizeOf(buff),0) ;
         repeat
           xCnt := ws.Read(buff,SizeOf(buff)) ;
           xCntTotal := xCntTotal + xCnt;
           ss.Write(buff[0],xCnt) ;
         until xCnt = 0;
 
         Result := ss.DataString;
       finally
         ws.Free;
         ss.Free;
       end;
     except
   end;
   finally
     sock.Free;
   end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
   ip: string;
 begin
   with TStringlist.Create do
   try
     Text := GetHTML('www.whatismyip.com/automation/n09230945.asp') ;
     if Count > 0 then ip := Strings[Count - 1];
   finally
     Free;
   end;
   ShowMessage('Ваш внешний адрес ip: ' + ip);
end;

как я понял без помоши какого либо сервера ето не зделать,
вот если возьмем мои TServerSocket, на друом компе под другим внешним IP,
как ето зделать?
___________________________________ ___________________________________ ___________________________________ ______________________
я тут немного почитал, по конектился и понял что мне на сервере(TServerSocket) нужна функция которая определяет IP клиента(TClientSocket)
если не ошибаюсь получать его надо здесь, вот только какои командои?

procedure TForm1.ServerSocket1GetSocket(Sender: TObject; Socket: Integer;
  var ClientSocket: TServerClientWinSocket);
begin
  ...
end;

я в курсе что на форуме етого много, но не прокатывало, и в блогах вроди нет, комбинаторикои тоже не попал

[KamiMAN]

Как я понял тебе нужно статичный внешний IP? Может я неправильно понял, но всетаки... No-IP Дает компу постоянный внешний IP о_О

[Obey-Kun]

uses IdHTTP,SysUtils;

function GetExternalIP:String;
var IdHttp1:TIdHttp;
    s:String;
begin
 s:='0.0.0.0';
 IdHttp1:=TIdHttp.Create(nil);
 try
 s:= IdHttp1.Get('http://checkip.dyndns.org');
 s:=copy(s,Pos(':',s)+2,20);
 s:=copy(s,1,Pos('<',s)-1);
 finally
 FreeAndNil(IdHttp1);
 end;
 Result:=s;
end;

Только я так и не понял, нафиг тебе внешний IP понадобился.

[veniside]

Только я так и не понял, нафиг тебе внешний IP понадобился.

Во-во, это проблема клиента, а не сервера узнать, какой у сервера IP. Решается это от тупого прописывания IP руками, до установки no-ip/dyndns клиента (на сервере), который будет сам следить, чтобы твое доменное имя, присвоенное серверу, резолвилось в правильный IP.

[ArtGrek]

Во-во, это проблема клиента, а не сервера узнать, какой у сервера IP.

ну а если вот надо мне, что нет способа?

[veniside]

Объясните, зачем, и мы объясним, почему это вам не надо.

[ArtGrek]

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

[veniside]

По-моему вы сами не понимаете, что вам нужно. То речь шла про IP сервера, теперь про IP клиента. Вы можете понятно описать, что именно вы хотите сделать?

Получить IP клиента на сервере при подключении нового клиента? В OnClientConnect() передаётся сокет, у которого есть свойство RemoteAddress.

[ArtGrek]

Получить IP клиента на сервере при подключении нового клиента? В OnClientConnect() передаётся сокет, у которого есть свойство RemoteAddress.

извеняюсь за неверное объяснение и спасибо за ответ то что нужно +

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('ClientConnect');
  Memo1.Lines.Add(Socket.RemoteAddress);
end;

[veniside]

Грамотно поставленный вопрос — 90% ответа )