Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  11:18[Войти] | [Зарегистрироваться]
Ответ на вопрос № 38608

16-12-2005 02:23
Добрый день!
Есть задача. Надо узнать какой у машины MAC-адрес сетевой платы. Надо получить чтото типа например 0008a118896a.
Так вот вопрос! Как узнать это програмно.. те прога запускаеться на машине и должна в итоге выдать ShowMessage(/////собственно адрес)
всем спасибо!

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

07-01-2006 10:03
»вопрос КС №33786«, »вопрос КС №36738«

20-12-2005 09:17
для узнавания адресов чужой машины, по-моему, достаточно установить с ней любое соединение, а потом опросить ARP-таблицу

функция GetIpNetTable

function GetIpNetTable(var pIpNetTable: MIB_IPNETTABLE; // buffer for mapping table
                      var pdwSize: ULONG; // size of buffer
                          bOrder: BOOL): DWORD; stdcall; external 'iphlpapi.dll';

20-12-2005 06:31
можно получить список адресов собственной машины или список адресов в подсети. Конкретная машина может иметь несколько сетевых карт (Windows - до 5шт.)
Если нужны мак адреса собственной машины, то перепиши след. функцию:

// получить мои IP адреса  (return ErrorCode)
function GetMyIPAddress(ListIP: TStringList): DWORD;
var
           //ErrorCode: DWORD;
  pAdapterInfo, pAI            : PIpAdapterInfo;
  AdapterInfo            :  TIpAdapterInfo;
  OutBufLen: ULONG;
  s: string;
  IpAddrString: TIpAddrString;
begin
           try
                     ListIP.Clear;
             // GetAdaptersInfo
    //           Windows Server 2003 and Windows XP:
    //  Use the GetAdaptersAddresses function instead of GetAdaptersInfo
    //ErrorCode := GetAdaptersAddresses(AF_INET,0,nil, @AdapterAddresses , @OutBufLen);
    OutBufLen := 0;
    GetMem(pAdapterInfo,sizeof(TIpAdapterInfo));
    result := GetAdaptersInfo(pAdapterInfo, OutBufLen);
    // если выделили мало памяти - выделить больше
    if result = ERROR_BUFFER_OVERFLOW then
    begin
        FreeMem(pAdapterInfo);
                        GetMem(pAdapterInfo,OutBufLen);
                        result := GetAdaptersInfo(pAdapterInfo, OutBufLen);
    end;
    if result <> NO_ERROR then
    begin
        FreeMem(pAdapterInfo);
        exit;
                         //Memo1.Lines.Add(GetTextError(result));
    end;
    // теперь пора выводить информацию
    pAI := pAdapterInfo;
                     WHILE TRUE DO
    BEGIN
      //Memo1.Lines.Add('-- -- adapter -- --');
               //s := pAdapterInfo^.AdapterName;
      //Memo1.Lines.Add('AdapterName: '+ pAI^.AdapterName);
      //Memo1.Lines.Add('description: '+ pAI^.Description);
      //Memo1.Lines.Add('type: '+ IntToStr(pAI^.Type_));
      While True Do
      Begin
                //Memo1.Lines.Add('      -- -- IP -- --');
        IpAddrString := pAI^.IpAddressList;
        ListIP.Add(IpAddrString.IpAddress.S);
                //Memo1.Lines.Add('      IpAddress:'+IpAddrString.IpAddress.S);
        if IpAddrString.Next = nil then break;
        IpAddrString := IpAddrString.Next^;
      End;
      if pAI^.Next = nil then break;
      pAI := pAI^.Next;
    END;
        FreeMem(pAdapterInfo);

  except

  end;
end//           function GetMyIPAddress(ListIP: TGGStringList): DWORD;



а если нужны MAC адреса чужой машины, то это можно сделать не всегда. Я предлагаю в этом случае запросить DHCP server (или несколько серверов).
Код длинный, приводить не стану (я его уже по-моему приводил; ищи ключевое слово 'DHCP').
1. Для всех DHCP получить список подсетей
2. Для подсети получить список клиентов
3. Для клиента смотрим ClientHardwareAddress

16-12-2005 04:29
привет
в свое время small писал метод определения с помощью GetAdaptersInfo
могу выслать на мыло если не получится самому

16-12-2005 03:51
Есть как минимум два способа: через Netbios и через GetIfTable. Подробности в MSDN.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Раз дощечка, два дощечка будет лесенка. Раз словечко, два словечко, будет ЧТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования