Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
varWSAData: TWSAData; SockAddrIn: TSockAddrIn; Host: PHostEnt; // Эти переменные объявлены в Winsock.pas begin
if
WSAStartup($101, WSAData) = 0 then
begin
Host := GetHostByName(@Localname[1]); if
Host <> nil
then
begin
SockAddrIn.sin_addr.S_addr := longint(plongint(Host^.h_addr_list^)^); LocalIP := inet_ntoa(SockAddrIn.sin_addr); end
; WSACleanUp; end
; end
;