关于局域网内IP地址

Question

例：
function HostToIP(Name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, Name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;  endend;procedure TForm2.FormCreate(Sender: TObject);
begin hosttoip(aa,bb); for i:=Length(bb) downto 1 do
  if bb[i]='.' then begin
  rs:= Copy(bb,1,i);
    break;
  end; form1.Edit2.Text:=rs+'255';
 notnew:=false;end;

Answer 1

Function 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
     Name:=PHt.h_name;
     result:=true;
  end;
  WSACleanup;
end;

Answer 2

const
  MaxNetArrayItems = 512;
type
  TSessionInfo50 = packed record
    sesi50_cname: PChar;                   //remote computer name (connection id in Netware)
    sesi50_username: PChar;
    sesi50_key: DWORD;                     // used to delete session (not used in Netware)
    sesi50_num_conns: Word;
    sesi50_num_opens: Word;                //not available in Netware
    sesi50_time: DWORD;
    sesi50_idle_time: DWORD;               //not available in Netware
    sesi50_protocol: Char;
    padl: Char;
  end;  TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt;
    pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
    var pcTotalAvail: Word): DWORD; stdcall;
procedure GetNetSessions(ComputerNames: TStrings);
var
  SessionInfo: array[0..MaxNetArrayItems] of TSessionInfo50;
  EntriesRead, TotalAvail: Word;
  I: Integer;
  Str: string;
  NetSessionEnum: TNetSessionEnum;
  LibHandle: THandle;
begin
  ComputerNames.Clear;
  LibHandle := LoadLibrary('SVRAPI.DLL');
  if LibHandle <> 0 then
  begin
    try
      @NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');
      if (@NetSessionEnum <> nil) then
        if NetSessionEnum(nil, 50, @SessionInfo, Sizeof(SessionInfo), EntriesRead, TotalAvail) = 0 then
        begin
          for I := 0 to EntriesRead - 1 do
          with SessionInfo[I] do
          begin
            SetString(Str, sesi50_cname, StrLen(sesi50_cname));
            ComputerNames.Add(Str);
          end;
        end;
    finally
      FreeLibrary(LibHandle);
    end;
  end;
end;

Answer 3

你可以参考
http://www.csdn.net/expert/topic/793/793121.xml?temp=.8012812
里面的代码