Форум: "Сети";
Текущий архив: 2008.11.23;
Скачать: [xml.tar.bz2];
Внизопределить по IP клиента MAC адрес его сетевой Найти похожие ветки
← →
9899100 (2007-11-20 20:47) [0]Доброго время суток! Мастера подскажите, это вообще реализуемо на дельфи? определить по IP клиента MAC адрес его сетевой
если реализуемо то подскажите где посмотреть что то подобное
← →
DVM © (2007-11-20 21:57) [1]Определить мак-адрес можно только в том же коллизионном сегменте сети, что и подопытный компьютер.
Короче в интернет нельзя. Как и в любой сети с маршрутизаторами.
← →
9899100 (2007-11-20 22:06) [2]:) имеется ввиду определить в локальной сети , про и-нет речи не идет
← →
DVM © (2007-11-20 22:29) [3]на сайте у Rouse_ есть вроде пример.
http://rouse.drkb.ru/network.php#infofromip там в самом низу
← →
9899100 (2007-11-20 22:46) [4]о! то что дохтор прописал :)
осталось тока проверить в сетке :)
← →
Rouse_ © (2007-11-21 10:56) [5]Можно еще проще, если работает под NT
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Winsock, ExtCtrls;
const
MAX_ADAPTER_ADDRESS_LENGTH = 6;
type
TMacAddress = array[0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of byte;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
function SendARP(const DestIP, SrcIP: ULONG;
pMacAddr: PULONG; var PhyAddrLen: ULONG): DWORD; stdcall; external "IPHLPAPI.DLL";
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
function GetMAC(Value: TMacAddress; Length: DWORD): String;
var
I: Integer;
begin
if Length = 0 then Result := "00-00-00-00-00-00" else
begin
Result := "";
for i:= 0 to Length - 2 do
Result := Result + IntToHex(Value[i], 2) + "-";
Result := Result + IntToHex(Value[Length-1], 2);
end;
end;
var
DestIP, SrcIP: ULONG;
pMacAddr: TMacAddress;
PhyAddrLen: ULONG;
begin
DestIP := inet_addr("195.182.10.22");
PhyAddrLen := 6;
SendArp(DestIP, 0, @pMacAddr, PhyAddrLen);
Caption := GetMAC(pMacAddr, PhyAddrLen);
end;
end.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2008.11.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c