Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Имя компьютера.   Найти похожие ветки 

 
Flex ©   (2004-11-06 19:26) [0]

Как узнать имя компьютера(не IP, а имя(название))?


 
Piter ©   (2004-11-06 19:38) [1]

Какого блин компьютера?

P.S. Ну надо так вопросы формулировать...


 
Flex ©   (2004-11-06 19:55) [2]

на котором прга запущена.


 
Anatoly Podgoretsky ©   (2004-11-06 19:57) [3]

Не поверишь, но это GetComputerName


 
Flex ©   (2004-11-06 20:31) [4]

Ни за что бы не догадался!!!!


 
Intruder ©   (2004-11-10 12:56) [5]

Интересный вопрос, а вот интереснее было бы узнать по NetBios имени IP, MAC адрес, через консоль это делатся очень лечко, а вот как вытащить это в делфи...


 
Digitman ©   (2004-11-10 13:55) [6]


> Flex ©   (06.11.04 20:31) [4]
> Ни за что бы не догадался!!!!


шишек еще много, знать, набъешь ..

ибо дотумкать, что в станд. Справке следует искать нечто в виде Get(получить, узнать нечто)Computer(компьютер)Name(bvz) - это чрезвычайно сложно.


 
Sicilla   (2004-11-12 19:19) [7]

function GetIPName(Add: string): string;
begin
    addr := inet_addr( pchar(add) ); // Эта ф-ция преобразует IP из текстового вида в cardinal сразу в сетевом порядке байт
    Host := gethostbyaddr(@addr,SizeOf(Addr),AF_inet);
    if Host <> nil then
            Result := Host.h_name
     else
            Result := "<unknown>";
end;

Удачи, и не обращай внимания, здесь любят потрепаться



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
3-1101538229
Black
2004-11-27 09:50
2004.12.26
Защита SocketConnection


1-1102457466
James007
2004-12-08 01:11
2004.12.26
Меню и картинки


3-1101969512
Ann
2004-12-02 09:38
2004.12.26
SQL запрос. Подскажите пожалуйста.


1-1102784356
AdmeraL
2004-12-11 19:59
2004.12.26
requires


4-1100011302
Arnold
2004-11-09 17:41
2004.12.26
Изменение теста потомка TEdit