TNetSharingManager访问冲突问题

Question

我正在尝试在 Delphi 2010 中编译这个项目，它使用TNetSharingManager。我已导入类型库并尝试编译它，但不幸的是我在此函数中遇到访问冲突：

function TNetSharingManager.GetDefaultInterface: INetSharingManager;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf  nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
  Result := FIntf;
end;

（NETCONLib_TLB 的一部分） 错误在于： if FIntf = nil then 由于某些奇怪的原因。

调用它的代码：

procedure TForm1.GetConnectionList(Strings,IdList: TStrings);
var
  pEnum: IEnumVariant;
  vNetCon: OleVARIANT;
  dwRetrieved: Cardinal;
  pUser: NETCONLib_TLB.PUserType1;
  NetCon : INetConnection;
begin
  Strings.Clear;
  IdList.Clear;
  pEnum := ( NetSharingManager.EnumEveryConnection._NewEnum as IEnumVariant);
  while (pEnum.Next(1, vNetCon, dwRetrieved) = S_OK) do
  begin
     (IUnknown(vNetCon) as INetConnection).GetProperties(pUser);
     NetCon := (IUnknown(vNetCon) as INetConnection);

     if (pUser.Status in [NCS_CONNECTED,NCS_CONNECTING])//remove if you want disabled NIC cards also
     and (pUser.MediaType in [NCM_LAN,NCM_SHAREDACCESSHOST_LAN,NCM_ISDN] )
     and (GetMacAddress(GuidToString(pUser.guidId))'' ) then
     begin
       //we only want valid network cards that are enabled
       Strings.Add(pUser.pszwName );
       IdList.Add(GuidToString(pUser.guidId));
     end;
  end;
end;

我不明白为什么我不能与 nil 进行比较。有什么想法吗？

Answer 1

当触发该错误时，TNetSharingManager 对象本身实际上可能已经死亡（或者首先没有创建）。 FIntF = nil 表达式是对类的实际字段的第一个引用，即它将指向无效的地址空间。

[编辑] 我下载了源代码并按照步骤导入了 TLB (Delphi 2010)。要执行该应用程序，我必须 (a) 以管理员身份运行 Delphi，因为默认情况下我不是高级用户，并且 (b) 必须添加对 pUser pUser <> 的检查。 nil 因为最终的 getProperties 返回一个 nil 结构，但除此之外代码运行良好。不幸的是，我似乎无法重现您的问题。

重读您的问题，您在编译时是否获得了 AV？