NetBios获取网卡MAC

2005-02-16 06:03:50 312 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

delphi 读取网卡mac的3种方式第一种最简单也最实用，通过调用ipconfig -all 来取得网卡。第二种通过netbios，因为是网络协议，如果网卡没有连接上，取不到mac地址第三种通过rpc调用，只能得到一块网卡.在有多块网卡时会出现有时取到的MAC不一致. 阅读详情

function GetAdapterSN(num: integer): string;
var
ibuf: array [0..5] of Byte;
sn: string[12];
i: integer;
st: string;
pbuf: PChar;
ncb: TNCB;
uRetCode: CHAR;
lana_enum: TLANAENUM;
begin
FillChar(ncb, sizeof(ncb), 0);
ncb.ncb_command := Char(NCBENUM);
uRetCode := Netbios( @ncb );
ncb.ncb_buffer := @lana_enum;
ncb.ncb_length := sizeof(lana_enum);
uRetCode := Netbios( @ncb );// 获取网卡数量、编号信息。此处返回值总是 7
// NRC_BADDR = $07; // illegal buffer address
if uRetCode = #0 then
......

调试系统是 XP, 请问如何改正？

...全文

本地部署 pyvideotrans（视频翻译配音工具）语音识别选择faster-whisper(本地)，模型选择预先下载并保存的medium，然后选择好要处理的视频以及保存到的位置，这里我选择了一个名为why not的英文演讲视频，保存在桌面_vedio_out文件下。将附件中faster-medium.7z 和 faster-small.7z解压到项目中的models目录下, 解压后,目录中应该存在 models--Systran--faster-whisper-small。en.m4a|.wav = 原始视频中的音频文件(包含所有背景音和人声) 阅读详情

ahjoe

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

ahjoe 2005-03-01

打赏
举报

inet_addr 在 winsock 单元

snopyli 2005-02-25

打赏
举报

To:ahjoe(强哥)

inet_addr 没有给出定义类型

snowmaplecn 2005-02-25

打赏
举报

getit911 2005-02-25

打赏
举报

原来是调用nbtstat 生成文件，可以用管道重定向nbstat的标准输出，就不用临时文件了

luckyboy97 2005-02-25

打赏
举报

收藏，学习

victor_yang 2005-02-25

打赏
举报

交流一下,我的方法

var
// vMac:String;
vtmpPath,vtmpFile:Pchar;
vOrder,vNewName:String;
vF:Integer;
vFile:PChar;
F:TextFile;
begin
vtmpPath:=GetMemory(MAX_PATH);
vtmpFile:=GetMemory(MAX_PATH);
GetTempPath(MAX_PATH,vtmpPath);
GetTempFileName(vtmpPath,'sh',0,vtmpFile);
vNewName:=ChangeFileExt(vtmpFile,'.bat');
vOrder:=format('nbtstat -a %s >%s',[AServerName,StrPas(vtmpFile)]);
AssignFile(F,vNewName);
Rewrite(F);
Writeln(F,vOrder);
CloseFile(F);
ShellExecute(Application.Handle,'open',PChar(vNewName),nil,nil,SW_HIDE);
Sleep(300);
vF:=FileOpen(StrPas(vtmpFile),fmOpenRead);
FileSeek(vF,0,0);
vSize:=FileSeek(vF,0,2);
FileSeek(vF,0,0);
vFile:=PChar(AllocMem(vSize + 1));
FileRead(vF,vFile^,vSize);
FileClose(vF);
Result:=ReadMacAddr(StrPas(vFile));
DeleteFile(StrPas(vtmpFile));
DeleteFile(vNewName);
FreeMem(vtmpPath);
FreeMem(vtmpFile);

ahjoe 2005-02-24

打赏
举报

// 在XP下用NetBios取MAC有时会失败.
// 用SendARP获取MAC (我在win98使用该函数得不到MAC)
function SendARP( const DestIP : DWord; const SrcIP : DWord;
const pMacAddr : Pointer; const PhyAddrLen : PULONG) : DWord;
stdcall; external 'IPHLPAPI.DLL' name 'SendARP';

....

function GetRemoteMAC(ip:string):String;
var
dwResult : DWord;
ulIPAddr : DWord;
ulMACAddr : Array [0..5] of Byte;
ulAddrLen : ULONG;
begin
ulIPAddr := inet_addr(PChar(ip));
ulAddrLen := 6;
FillChar(ulMACAddr, 6, $ff);
dwResult := SendARP(ulIPAddr,0,@ulMACAddr,@ulAddrLen);
if dwResult=0 then
Result:=(IntToHex(ulMACAddr[0],2)+
IntToHex(ulMACAddr[1],2)+
IntToHex(ulMACAddr[2],2)+
IntToHex(ulMACAddr[3],2)+
IntToHex(ulMACAddr[4],2)+
IntToHex(ulMACAddr[5],2));
end;

snopyli 2005-02-24

打赏
举报

To:ahjoe(强哥)

能否共享你的成果吗？

如何采用SendARP方法可以获取IP。

jinjazz 2005-02-24

打赏
举报

mark

tengxiang05 2005-02-24

打赏
举报

Mark

smiler007 2005-02-24

打赏
举报

收藏一下，有用

cobi 2005-02-24

打赏
举报

收藏一下，有用

ahjoe 2005-02-24

打赏
举报

已经解决。采用SendARP方法可以获取IP。
分不能给自己，删除贴子又没有信誉。
大家顶吧，这50分一定要送出去呀。

NetBios获取网卡MAC

相关推荐