我在delphi里用Winsock制作了一个扫描局域网主机名的小程序,在我的机子上得出的结果都是“SOXXX”形式的,在其他机器上扫描又是正常的。请问我的机子哪里出了问题?
Function TF_MyLan.GetNameByIP(mIP:string; var Name:string):boolean;
var
PHt:PHostEnt;
WSData: TWSAData;
i:Word;
j:integer;
k:u_long;
begin
result:=false;
i:=MAKEWORD(1,1);
if WSAStartup(i,WSData)0 then exit;
k:=inet_addr(PChar(MIP));
PHt:=gethostbyaddr(@k,4,PF_INET);
if PHt=nil then
begin
j:=WSAGetLastError;
Name:='Error:'+inttostr(j-WSABASEERR);
end
else
begin