Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Янв

Получить IP-адрес активного подключения

Posted by micher under Delphi

Как получить IP-адрес активного подключения?

Кольша



procedure TForm1.Button1Click(Sender: TObject);

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);

Memo1.Clear;

GetHostName(Buffer, SizeOf(Buffer));

Memo1.Lines.Add(Buffer); // HostName

phe := GetHostByName(Buffer);

if phe = nil then Exit;

pPtr := PaPInAddr(phe^.h_addr_list);

I := 0;

while pPtr^[I]  nil do

begin

Memo1.Lines.Add(inet_ntoa(pptr^[I]^)); //Add IP-addresses

Inc(I);

end;

WSACleanup;

end;



uses Winsock;
function GetLocalPs: TStringList;

type

  TaPInAddr = array[0..10] of PInAddr;

  PaPInAddr = ^TaPInAddr;

var

  phe: PHostEnt;

  pptr: PaPInAddr;

  Buffer: array[0..63] of Char;

  I: Integer;

  GInitData: TWSAData;

  IPs: TStringList;

begin

  IPs := TStringList.Create;

  WSAStartup($101, GInitData);

  GetHostName(Buffer, SizeOf(Buffer));

  phe := GetHostByName(buffer);

  if phe = nil then IPs.Add('No IP found')

  else

  begin

    pPtr := PaPInAddr(phe^.h_addr_list);

    I := 0;

    while pPtr^[I]  nil do

    begin

      IPs.Add(inet_ntoa(pptr^[I]^));

      Inc(I);

    end;

  end;

  WSACleanup;

  Result := IPs;

end;
procedure TForm1.RzBitBtn10Click(Sender: TObject);

var sl: TStringList;

begin

  sl := TStringList.Create;

  sl := GetLocalPs;

  ShowMessage(sl.Text);

  sl.Free;

end;