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

[veniside]

А, не, ну понятно, что WSAStartup() надо делать, это вобще на автомате должно быть )
Кстати да, если возвращает nil, печатай код ошибки, сильно помогает.

[Stilet]

это вобще на автомате должно быть )

Ну да, на автомате )))
Люблю коробку-автомат, за то что у нее все на автомате )))))

[veniside]

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

По крайней мере тот пример по ссылке у меня работает норм (и я даже знаю почему)

А почему бы ему и не работать? И, как я уже говорил, айпишнегов может быть несколько (у меня их 3, например), а код по твоей ссылке возвращает только первый попавшийся.

[dmitriegorovih]

В коде там, и узнаешь код ошибки. (У меня например 10093 вылезла)

у меня кстати тож 10093 ошибка по ссылке код это помойму узнаёт локальный а мне нужен другой

[veniside]

10093 - забыли вызвать WSAStartup(), всё просто.

[dmitriegorovih]

10093 - забыли вызвать WSAStartup(), всё просто.

ээээээээ это как? можете в существующий код вставить или что и куда ей нужно передовать

[Stilet]

А по ссылке пройти не судьба?

[veniside]

var
  wsaData: TWSAData;
  ar, arr: ^LongWord;
begin
  if (0 = WSAStartup($101, wsaData)) then begin
    //
    p := gethostbyname(PAnsiChar(AnsiString('')));
    if (p = nil) then
      writeln('WSA error: ' + IntToStr(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;
end;

[_SERGEYX_]

Вау... как раз пару дней назад писал функцию на основе этого кода. У меня получилось вот так (работает)

function GetKlientIp(ShowLocalIp: Boolean): string;
var p: PHostEnt; ar, arr: ^LongWord; aresult: integer; SL: TStringList;
begin
  SL := TStringList.Create;
  p := gethostbyname(PAnsiChar(AnsiString('')));
  if (p = nil) then
    aresult := WSAGetLastError()
  else
  begin
    ar := pointer(p.h_addr_list);
    while (0 <> ar^) do
    begin
      arr := pointer(ar^);
      if (ShowLocalIp) then SL.Add(string(inet_ntoa(in_addr(arr^)))) else
        if (Copy(string(inet_ntoa(in_addr(arr^))), 1, 8) <> '192.168.') then
          SL.Add(string(inet_ntoa(in_addr(arr^))));
      inc(ar);
    end;
  end;
  Result := SL.text;
  SL.Free;
end;

ShowLocalIp - показывать или нет локальную сеть.

[veniside]

не 192.168. единым...

The Internet Assigned Numbers Authority (IANA) has reserved the
following three blocks of the IP address space for private internets:

10.0.0.0 - 10.255.255.255 (10/8 prefix)
172.16.0.0 - 172.31.255.255 (172.16/12 prefix)
192.168.0.0 - 192.168.255.255 (192.168/16 prefix)