怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks 怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetLocalIP(var LocalIp: string): Boolean;varHostEnt: PHostEnt;Ip: string;addr: pchar;Buffer: array [0..63] of char;GInitData: TWSADATA;beginResult := False;tryWSAStartup(2, GInitData);GetHostName(Buffer, SizeOf(Buffer));HostEnt := GetHostByName(buffer);if HostEnt = nil then Exit;addr := HostEnt^.h_addr_list^;ip := Format('%d.%d.%d.%d', [byte(addr [0]),byte (addr [1]), byte (addr [2]), byte (addr [3])]);LocalIp := Ip;Result := True;finallyWSACleanup;end;end; 楼上的兄弟,程序运行时出错。是HostEnt: PHostEnt;GInitData: TWSADATA;怎么解决? 请教这句插入语句有什么问题 一个ADO查询问题!!!!!有人能解决吗??????? 剪贴板的小问题,高手快来帮忙 如何获得本机的“计算机名称”“工作组”“当前IP”? 请问,BDE怎么才能全部卸载! 请问如何连续添加6条空记录? 请问我如何知道现在的窗体是否是最大化!?? 请问如何操作Dbgrid控件 请教让程序快速启动的方法? 初学者的小问题,白送分...... delphi中有类似这样param=(true)?=v1:v2语句的函数 互联网上,如何判断在指定位置有无文件?
楼上的兄弟,
程序运行时出错。是
HostEnt: PHostEnt;
GInitData: TWSADATA;
怎么解决?