Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
uses
WinSock;
function
GetLocalIP: String
; const
WSVer = $101; var
wsaData: TWSAData;
P: PHostEnt;
Buf: array
[0..127] of
Char; begin
Result := '';
if
WSAStartup(WSVer, wsaData) = 0 then
begin
if
GetHostName(@Buf, 128) = 0 then
begin
P := GetHostByName(@Buf); if
P <> nil
then
Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end
; WSACleanup; end
;
end
;