在局域网中如何获得当前连接到本机的计算机的名称和IP

Question

netsession(import from NETAPI32.DLL)
gethostbyname

Answer 1

可以通过中间层传递参数给服务端。
function get_name:string;
var   ComputerName: PChar;  size: DWord;
begin
     GetMem(ComputerName,255);
     size:=255;
     // 获取计算机名称
     if GetComputerName(ComputerName,size)=False then
     begin
 //         MessageBox(Handle,'获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);
          application.MessageBox('获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);          FreeMem(ComputerName);
          result:='';
          Exit;
     end;
//     Edit1.Text:=ComputerName;
     result:=ComputerName;
     FreeMem(ComputerName);
end;