delphi 获取串口设备描述 求助

[jy02163807]

目前只能做到获取串口号，（COM1, COM2 ....） ,但是不能获取串口的设备描述（上图中的USB-SERIAL CH340）。

哪位大侠指点下啊

[jy02163807]

好像类似于USB设备 或其他 IO设备的 设备描述信息。

[wdonghai]

uses
  ActiveX,ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Locator,RET,Tmp: OleVariant;
  Enum: IEnumVariant;
  Value: Cardinal;
begin;
  memo1.Clear;
  Locator := CreateOleObject('WbemScripting.SWbemLocator');
  Ret := Locator.ConnectServer('.', '', '', '').ExecQuery('SELECT * FROM Win32_SerialPort');
  Enum:= IUnknown(RET._NewEnum) as IEnumVariant;
  while (Enum.Next(1, Tmp, Value) = S_OK) do
    memo1.Lines.Add(Tmp.Name+' '+Tmp.DeviceID+' '+Tmp.CreationClassName+' '+Tmp.PNPDeviceID+' '+Tmp.ProviderType);
end;

[天行归来]

注册表里应该会有这些信息，用你电脑的某个串口，在注册表里搜索下看能否找得到。

[jy02163807]

引用 2 楼 wdonghai 的回复:

uses
  ActiveX,ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Locator,RET,Tmp: OleVariant;
  Enum: IEnumVariant;
  Value: Cardinal;
begin;
  memo1.Clear;
  Locator := CreateOleObject('WbemScripting.SWbemLocator');
  Ret := Locator.ConnectServer('.', '', '', '').ExecQuery('SELECT * FROM Win32_SerialPort');
  Enum:= IUnknown(RET._NewEnum) as IEnumVariant;
  while (Enum.Next(1, Tmp, Value) = S_OK) do
    memo1.Lines.Add(Tmp.Name+' '+Tmp.DeviceID+' '+Tmp.CreationClassName+' '+Tmp.PNPDeviceID+' '+Tmp.ProviderType);
end;

人狠话不多的大哥！！！！ 多谢了。

引用 2 楼 wdonghai 的回复:

uses
  ActiveX,ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Locator,RET,Tmp: OleVariant;
  Enum: IEnumVariant;
  Value: Cardinal;
begin;
  memo1.Clear;
  Locator := CreateOleObject('WbemScripting.SWbemLocator');
  Ret := Locator.ConnectServer('.', '', '', '').ExecQuery('SELECT * FROM Win32_SerialPort');
  Enum:= IUnknown(RET._NewEnum) as IEnumVariant;
  while (Enum.Next(1, Tmp, Value) = S_OK) do
    memo1.Lines.Add(Tmp.Name+' '+Tmp.DeviceID+' '+Tmp.CreationClassName+' '+Tmp.PNPDeviceID+' '+Tmp.ProviderType);
end;

人狠话不多的大哥！！！多谢了。 基本解决了。 就是第二个 USB SERIAL CH430 那个串口显示不了，我重新换了几个口插上去都没用。