如何使用 Delphi 和 WMI 查找可用的并行端口及其 I/O 地址 [英] How to find available parallel ports and their I/O addresses using Delphi and WMI

问题描述

我看到 WMI 非常强大，似乎能够返回 PC 硬件的大多数属性.我想在任何 PC 上显示可用的并行端口并找到它们的 I/O 地址 - 我知道通常这是使用内核驱动程序完成的，但这是一个遗留需求 - 不要问！目前我们在设备管理器中查看，然后必须输入显示在那里的地址.我想使用 WMI 来查找这些信息.1 上有一组出色的 WMI 类，但我看不到如何进行迭代.

I see that WMI is very powerful and seems to be able to return most properties of a PC hardware. I'd like to display the available parallel ports on any PC and find their I/O addresses - I know that normally this is done using a Kernel driver but this is a legacy need - dont ask! Presently we look in Device Manager and then have to type in the address displayed there. I'd like to use WMI to find out this information. There are an excellent set of WMI classes at 1 but I cannot see how to iterate.

谢谢.

推荐答案

必须尝试从 WMI 中提取复杂的信息.我试图在我的 PC 上找到并行端口地址，这就是报告:

One must experiment to extract a complex information from WMI. I have tried to find the parallel port addresses on my PC and that is the report:

首先，我查询了 Win32_ParallelPort 类以查找所有并行端口.(在他之前的帖子中使用与 PRUZ 相同的代码):'Select * From Win32_ParallelPort'.结果是(我的系统中只有一个并口):

First of all I have queried Win32_ParallelPort class to find all parallel ports. (using the same code as PRUZ in his post before): 'Select * From Win32_ParallelPort'. The result is (I have only one parallel port in my system):

instance of Win32_ParallelPort
{
    Availability = 3;
    Caption = "LPT1";
    ConfigManagerErrorCode = 0;
    ConfigManagerUserConfig = FALSE;
    CreationClassName = "Win32_ParallelPort";
    Description = "LPT1";
    DeviceID = "LPT1";
    Name = "LPT1";
    OSAutoDiscovered = TRUE;
    PNPDeviceID = "ACPI\PNP0401\4&25C6B52A&0";
    PowerManagementSupported = FALSE;
    ProtocolSupported = 17;
    SystemCreationClassName = "Win32_ComputerSystem";
    SystemName = "JUPITER";
};

其次，我查询了 Win32_PNPAllocatedResource('Select * From Win32_PnPAllocatedResource').我这里有很多信息，但我只选择了 PNPDeviceID = "ACPIPNP04014&25C6B52A&0" 的 3 个条目.

Second, I have queried Win32_PNPAllocatedResource ('Select * From Win32_PnPAllocatedResource'). I have got a lot of information here, but I have selected only the 3 entries by PNPDeviceID = "ACPIPNP04014&25C6B52A&0".

instance of Win32_PNPAllocatedResource
{
    Antecedent = "\\JUPITER\root\cimv2:Win32_PortResource.StartingAddress="888"";
    Dependent = "\\JUPITER\root\cimv2:Win32_PnPEntity.DeviceID="ACPI\\PNP0401\\4&25C6B52A&0"";
};


instance of Win32_PNPAllocatedResource
{
    Antecedent = "\\JUPITER\root\cimv2:Win32_PortResource.StartingAddress="1912"";
    Dependent = "\\JUPITER\root\cimv2:Win32_PnPEntity.DeviceID="ACPI\\PNP0401\\4&25C6B52A&0"";
};


instance of Win32_PNPAllocatedResource
{
    Antecedent = "\\JUPITER\root\cimv2:Win32_DMAChannel.DMAChannel=3";
    Dependent = "\\JUPITER\root\cimv2:Win32_PnPEntity.DeviceID="ACPI\\PNP0401\\4&25C6B52A&0"";
};

第三个条目无关紧要.前两个条目为我们提供了两个(十进制)起始地址(888 和 1912)

The third entry is of no interest. The first two entries gives us two (decimal) starting addresses (888 and 1912)

最后查询了Win32_PortResource('Select * From Win32_PortResource')，找到起始地址888和1912对应的结束地址:

Finally I have queried Win32_PortResource ('Select * From Win32_PortResource') to find the ending addresses corresponding to the starting addresses 888 and 1912:

instance of Win32_PortResource
{
    Alias = FALSE;
    Caption = "0x00000378-0x0000037F";
    CreationClassName = "Win32_PortResource";
    CSCreationClassName = "Win32_ComputerSystem";
    CSName = "JUPITER";
    Description = "0x00000378-0x0000037F";
    EndingAddress = "895";
    Name = "0x00000378-0x0000037F";
    StartingAddress = "888";
    Status = "OK";
};


instance of Win32_PortResource
{
    Alias = FALSE;
    Caption = "0x00000778-0x0000077B";
    CreationClassName = "Win32_PortResource";
    CSCreationClassName = "Win32_ComputerSystem";
    CSName = "JUPITER";
    Description = "0x00000778-0x0000077B";
    EndingAddress = "1915";
    Name = "0x00000778-0x0000077B";
    StartingAddress = "1912";
    Status = "OK";
};

<小时>

更新

我在 GUI 应用程序中使用了与 RRUZ 相同的代码(见下文).编译它唯一需要的是 WbemScripting_TLB.pas 单元.该单元由类型库导入向导生成，您可以在 我的博客

I have used the same code as RRUZ, in GUI application (see below). The only thing you need to compile it is the WbemScripting_TLB.pas unit. The unit is generated by type library import wizard, you can read about the process in Delphi 2009 in my blog

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses WbemScripting_TLB, ActiveX;


{$R *.dfm}


procedure TForm1.Button4Click(Sender: TObject);
var
  WMIServices  : ISWbemServices;
  WMILocator   : ISWbemLocator;
  Root         : ISWbemObjectSet;
  SWbemObject  : ISWbemObject;
  Item         : IEnumVariant;
  rgVar        : OleVariant;
  pCelFetched  : Cardinal;

begin
  Memo1.Lines.Clear;
  WMILocator := CoSWbemLocator.Create();
  WMIServices := WMILocator.ConnectServer('.', 'rootcimv2','', '', '', '', 0, nil);    //
  Root := WMIServices.ExecQuery('Select * From Win32_PnPAllocatedResource','WQL', 0, nil);
  Item :=  (Root._NewEnum) as IEnumVariant;
  while  (Item.Next(1, rgVar, pCelFetched) = S_OK) do
  begin
    SWbemObject := IUnknown(rgVar) as ISWBemObject;
    if (SWbemObject <> nil) then
    begin
      SWbemObject.Properties_;//Load the Properties to read
      Memo1.Lines.Add(SWbemObject.GetObjectText_(0));
    end;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  WMIServices  : ISWbemServices;
  WMILocator   : ISWbemLocator;
  Root         : ISWbemObjectSet;
  SWbemObject  : ISWbemObject;
  Item         : IEnumVariant;
  rgVar        : OleVariant;
  pCelFetched  : Cardinal;

begin
  Memo1.Lines.Clear;
  WMILocator := CoSWbemLocator.Create();
  WMIServices := WMILocator.ConnectServer('.', 'rootcimv2','', '', '', '', 0, nil);    //
  Root := WMIServices.ExecQuery('Select * From Win32_PortResource','WQL', 0, nil);
  Item :=  (Root._NewEnum) as IEnumVariant;
  while  (Item.Next(1, rgVar, pCelFetched) = S_OK) do
  begin
    SWbemObject := IUnknown(rgVar) as ISWBemObject;
    if (SWbemObject <> nil) then
    begin
      SWbemObject.Properties_;//Load the Properties to read
      Memo1.Lines.Add(SWbemObject.GetObjectText_(0));
    end;
   end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  WMIServices  : ISWbemServices;
  WMILocator   : ISWbemLocator;
  Root         : ISWbemObjectSet;
  SWbemObject  : ISWbemObject;
  Item         : IEnumVariant;
  rgVar        : OleVariant;
  pCelFetched  : Cardinal;

begin
  Memo1.Lines.Clear;
  WMILocator := CoSWbemLocator.Create();
  WMIServices := WMILocator.ConnectServer('.', 'rootcimv2','', '', '', '', 0, nil);    //
  Root := WMIServices.ExecQuery('Select * From Win32_ParallelPort','WQL', 0, nil);
  Item :=  (Root._NewEnum) as IEnumVariant;
  while  (Item.Next(1, rgVar, pCelFetched) = S_OK) do
  begin
    SWbemObject := IUnknown(rgVar) as ISWBemObject;
    if (SWbemObject <> nil) then
    begin
      SWbemObject.Properties_;//Load the Properties to read
      Memo1.Lines.Add(SWbemObject.GetObjectText_(0));
    end;
   end;
end;

end.

这篇关于如何使用 Delphi 和 WMI 查找可用的并行端口及其 I/O 地址的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！