Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2009, 18:17   #1
veniomin
Новичок
Джуниор
 
Регистрация: 03.05.2009
Сообщений: 1
По умолчанию Mac адрес компа

Вот код для определения MAC адреса по ipшнику. Проблема в том что когда прога выдает код, то она обрезает нули стоящие вначале каждого из элементов мас адресса.
то есть вместо 00-0b-6a-ad-7b-ca она выдает 0-b-6a-ad-7b-ca
вот код:
Код:
function SendARP(DestIP: DWORD; SrcIP: DWORD; pMacAddr: PDWORD; var
PhyAddrLen: DWORD): DWORD; stdcall; external 'IPHlpAPI.DLL';

function GetRemoteMACAddress(DestIP: string): string;
type
TInfo = array[0..7] of BYTE;
var
dwTargetIP: DWORD;
dwMacAddress: array[0..1] of DWORD;
dwMacLen: DWORD;
dwResult: DWORD;
X: TInfo;
begin
dwTargetIP := Inet_Addr(PChar(DestIP));
dwMacLen := 6;
dwResult := SendARP(dwTargetIP, 0, @dwMacAddress[0], dwMacLen);
if dwResult = NO_ERROR then
begin
X := TInfo(dwMacAddress);
Result := Format('%x.%x.%x.%x.%x.%x',
[X[0], X[1], X[2], X[3], X[4], X[5]]);
veniomin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как в Windows Vista заменить MAC адрес? Betty Windows 1 28.04.2009 00:05
Mac OS для PC Mixasik Операционные системы общие вопросы 3 07.12.2008 16:50
mac адрес AvG Компьютерное железо 5 23.07.2008 10:52
MAC адрес удалённого компьютера delphi_beginner Работа с сетью в Delphi 6 22.07.2008 14:57
как узнать ip адрес зная mac адрес Roman Работа с сетью в Delphi 9 25.06.2007 12:39