Узнать клиентовский ip

[dmitriegorovih]

Всем доброго времени суток! как узнать вот этот ip???

[veniside]

gethostbyname('');

айпишнегов может быть несколько, кстати.

[dmitriegorovih]

gethostbyname('');

чёт я не пойму как функцией пользоваться пробовал вот так но не работает

showmessage(pchar(gethostbyname('WAN (PPP/SLIP) Interface').h_addr));

[veniside]

Имя хоста должно быть '' (пустая строка).

[dmitriegorovih]

Имя хоста должно быть '' (пустая строка).

вылетает ошибка

P.S. пытался сделать так но слишком долго приходится ждать

uses ...IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP; 


function poiskslovo(slovo_po_kotoromu_budut_iskat,text_v_kotorom_idet_poisk:string):integer;
var
s:string;
e,n:integer;
begin
result:=-1;
if (text_v_kotorom_idet_poisk='') or (slovo_po_kotoromu_budut_iskat='') then exit;
s:='';
e:=1;
n:=0;
for n:=1 to length(text_v_kotorom_idet_poisk) do begin
  if text_v_kotorom_idet_poisk[n]=slovo_po_kotoromu_budut_iskat[e] then begin
   for e:=0 to length(slovo_po_kotoromu_budut_iskat)-1 do begin
  //e:=e+1;
  s:=s+text_v_kotorom_idet_poisk[n+e];
  end;
  end;
if s=slovo_po_kotoromu_budut_iskat then begin
result:=n;
exit;
end;
if s<>slovo_po_kotoromu_budut_iskat then begin
s:='';
e:=1;
end;
  end;
  result:=-1;
end;


function vityagivanie_sredi_tegov(perviy_teg,vtroy_teg,text_gde_sovershit_poisk:string):string;
var
n,i,i2:integer;
s:string;
begin
s:='';
result:='';
if text_gde_sovershit_poisk='' then exit;
i:=-1;
i:=poiskslovo(perviy_teg,text_gde_sovershit_poisk);
i2:=poiskslovo(vtroy_teg,text_gde_sovershit_poisk);
i:=i+length(perviy_teg);
i2:=i2-2;
if i<>-1 then begin
for n:=i to i2 do begin
s:=s+text_gde_sovershit_poisk[n];
end;
end;
result:=s;
end;

function TForm1.svoi_ip: string;
var
http:Tidhttp;
kod:Tstringlist;
l:integer;
begin
http:=Tidhttp.Create(self);
kod:=Tstringlist.Create;
kod.Text:=utf8toansi(http.Get('http://www.2ip.ru'));
if kod.Text='' then begin result:=''; exit; end;
for l:=0 to kod.Count-1 do begin
if vityagivanie_sredi_tegov('<big>','/big',kod.Strings[l])<>'' then begin
result:=vityagivanie_sredi_tegov('<big>','/big',kod.Strings[l]);
end;
end;
freeandnil(http);
freeandnil(kod);
end;

[veniside]

Ну так gethostbyname() может и nil вернуть, вобще-то )

Вот кусок рабочего кода (только для IPV4):

var
  p: PHostEnt;
  ar, arr: ^LongWord;
  result: integer;
begin
  p := gethostbyname(PAnsiChar(AnsiString('')));
  if (p = nil) then
    result := WSAGetLastError()
  else begin
    //
    ar := pointer(p.h_addr_list);
    while (0 <> ar^) do begin
      //
      arr := pointer(ar^);
      writeln(string(inet_ntoa(in_addr(arr^))));
      //
      inc(ar);
    end;
  end;
end;

[dmitriegorovih]

Сообщение от veniside

Ну так gethostbyname() может и nil вернуть, вобще-то )

Вот кусок рабочего кода (только для IPV4):

var
  p: PHostEnt;
  ar, arr: ^LongWord;
  result: integer;
begin
  p := gethostbyname(PAnsiChar(AnsiString('')));
  if (p = nil) then
    result := WSAGetLastError()
  else begin
    //
    ar := pointer(p.h_addr_list);
    while (0 <> ar^) do begin
      //
      arr := pointer(ar^);
      writeln(string(inet_ntoa(in_addr(arr^))));
      //
      inc(ar);
    end;
  end;
end;

эх не судьба он нечего не присылает и всё-таки нет вариантов узнать ip?

[veniside]

хм.. компилировал в консоль? если нет, то writeln() замени на showmessage()

[dmitriegorovih]

хм.. компилировал в консоль? если нет, то writeln() замени на showmessage()

так и делал, нечего

кстати он мне возвращает nil

[Stilet]

Напиши

writeln('error=', WSAGetLastError())

В коде там, и узнаешь код ошибки. (У меня например 10093 вылезла)
Кста, а тут был:http://www.delphiworld.narod.ru/base/get_own_ip.html
?
По крайней мере тот пример по ссылке у меня работает норм (и я даже знаю почему)