Sockets编程：如何在对等网中自动获取在线的计算机名列表？

Question

在OnClientconnect事件中写：
listbox.items.add(Socket.remotehost);

Answer 1

Try to use it//
// Display a dialog box allowing the user to choose a computer (not a drive,
// printer, etc. but just a computer in the network).
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box,  e.g. Choose Cache Server
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
function ChooseComputer(parent_window: HWND; caption: String): String;
begin
    Result:=NetworkBrowsing(parent_window, caption, BIF_BROWSEFORCOMPUTER);
end;//
// Display a dialog box allowing the user to choose a share on a network
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box, e.g. Choose share
//
// Returns: share chosen
//          empty string on error or no share chosen
//
function ChooseShare(parent_window: HWND; caption: String): String;
begin
    Result:=NetworkBrowsing(parent_window, caption, BIF_RETURNONLYFSDIRS);
end;//
// Display a dialog box allowing the user to choose a computer, network drive,
// etc.
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box, e.g. Choose Cache Server
//      what to browse for (e.g. BIF_BROWSEFORCOMPUTER for computers)
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
// Note: typical browse_for values are
//
//  BIF_RETURNONLYFSDIRS for networked folders
//  BIF_BROWSEFORCOMPUTER for computers
//
function NetworkBrowsing(parent_window: HWND; caption: String; browse_for: Integer): String;
var lpbi: _browseInfo;
    dn: String;
    idlist: ITEMIDLIST;
    ridlist: PITEMIDLIST;
    ppMalloc: IMalloc;
begin
    try
        // Get pointer to network root
        SHGetSpecialFolderLocation(parent_window, CSIDL_NETWORK, PITEMIDLIST(idlist));        // Initialise & display dialog box
        lpbi.hwndOwner:=parent_window;
        lpbi.pidlRoot:=PITEMIDLIST(idlist);
        SetLength(dn, 255);
        lpbi.pszDisplayName:=PChar(dn);
        lpbi.lpszTitle:=PChar(caption);
        lpbi.ulFlags:=browse_for;
        lpbi.lpfn:=nil;
        ridlist:=SHBrowseForFolder(lpbi);        // Store the resuls
{xxx
        if browse_for <> BIF_BROWSEFORCOMPUTER then begin
          // Return the complete network path
          SetLength(Result, 255);
          SHGetPathFromIDList(ridlist, PChar(Result));
        end else
}
          // Return only the name of the 'thing' selected
          Result:=lpbi.pszDisplayName;        // Free memory
        if ridlist=nil then
          Result:=''
        else begin
          SHGetMalloc(ppMalloc);
          ppMalloc.Free(ridlist);
        end;
    except
        // Oops
        Result:='';
    end;
end;
 
 
回复人：tibetty(2000-10-5 14:45:00)  得0分 
我也要，请发到； [email protected] 谢了 
 
回复人：tibetty(2000-10-5 14:48:00)  得0分 
我也要，请发到； [email protected] 谢了 
 
回复人：Lionheart(2000-10-6 0:11:00)  得0分 
试试看
//
// Display a dialog box allowing the user to choose a computer, network drive,
// etc.
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box, e.g. Choose Cache Server
//      what to browse for (e.g. BIF_BROWSEFORCOMPUTER for computers)
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
// Note: typical browse_for values are
//
//  BIF_RETURNONLYFSDIRS for networked folders
//  BIF_BROWSEFORCOMPUTER for computers
//
function NetworkBrowsing(parent_window: HWND; caption: String; browse_for: Integer): String;
var
  lpbi: _browseInfo;
  dn: String;
  idlist: ITEMIDLIST;
  ridlist: PITEMIDLIST;
  ppMalloc: IMalloc;
begin
  try
    // Get pointer to network root
    SHGetSpecialFolderLocation(parent_window, CSIDL_NETWORK, PITEMIDLIST(idlist));
    // Initialise & display dialog box
    lpbi.hwndOwner:=parent_window;
    lpbi.pidlRoot:=PITEMIDLIST(idlist);
    SetLength(dn, 255);
    lpbi.pszDisplayName:=PChar(dn);
    lpbi.lpszTitle:=PChar(caption);
    lpbi.ulFlags:=browse_for;
    lpbi.lpfn:=nil;
    ridlist:=SHBrowseForFolder(lpbi);
    // Store the resuls
    {xxx
    if browse_for <> BIF_BROWSEFORCOMPUTER then begin
    // Return the complete network path
    SetLength(Result, 255);
    SHGetPathFromIDList(ridlist, PChar(Result));
    end else
    }
    // Return only the name of the 'thing' selected
    Result:=lpbi.pszDisplayName;
    // Free memory
    if ridlist=nil then
      Result:=''
    else begin
      SHGetMalloc(ppMalloc);
      ppMalloc.Free(ridlist);
    end;
  except
    // Oops
    Result:='';
  end;
end;
//
// Display a dialog box allowing the user to choose a computer (not a drive,
// printer, etc. but just a computer in the network).
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box,  e.g. Choose Cache Server
//
// Returns: computer chosen
//          empty string on error or no computer chosen
//
function ChooseComputer(parent_window: HWND; caption: String): String;
begin
  Result:=NetworkBrowsing(parent_window, caption, BIF_BROWSEFORCOMPUTER);
end;
//
// Display a dialog box allowing the user to choose a share on a network
//
// Args: parent window (usually TForm.Handle)
//      caption to display on the dialog box, e.g. Choose share
//
// Returns: share chosen
//          empty string on error or no share chosen
//
function ChooseShare(parent_window: HWND; caption: String): String;
begin
  Result:=NetworkBrowsing(parent_window, caption, BIF_RETURNONLYFSDIRS);
end;