Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получение имени компьютера в локальной сети по его IP адресу
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение имени компьютера в локальной сети по его IP адресу
Получение имени компьютера в локальной сети по его IP адресу.
Зависимости: SysUtils, Winsock
Автор: savva, savva@nm.ru, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 6 июня 2002 г.
***************************************************** }
function IPAddressToNetworkName(IPAddr: string
): string
;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if
HostEnt <> nil
then
begin
result := StrPas(Hostent^.h_name)
end
else
begin
result := '';
end
;
end
;
Пример использования:
ShowMessage(IPAddressToNetworkName('ХХХ.ХХХ.ХХХ.ХХХ'));