перехожу на delphi 10.4, пытаюсь на андройде определить свой локальный ip адресс. на delphi 7 всё работает, а на на delphi 10.4 ругается на Winsock. пытался закинуть Winsock.dcu в библиотеки - не прошло. может здесь всё проще? какой-нибудь компонент на форму кинуть?
| Код |
Host: TLabel;
IPaddr: TLabel;
...
uses Winsock;
...
procedure TForm1.FormCreate(Sender: TObject);
var
wVerReq: WORD;
wsaData: TWSAData;
i: pchar;
h: PHostEnt;
c: array[0..128] of char;
begin
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
{ Получаем хост (имя) компа }
GetHostName(@c, 128);
h := GetHostByName(@c);
Host.Caption := h^.h_Name; //Host отображает хост (имя) компьютера
{ Достаем IP }
i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
IPaddr.Caption := i; //Теперь IPaddr отображает IP-адрес
WSACleanup;
end;
|
|