我向以下设备注册UPnP设备:
var o: IUPnPRegistrar;
W: string;
R: HRESULT;
begin
w := TFile.ReadAllText('UPnPDevice_Desc.xml');
o := CoUPnPRegistrar.Create as IUPnPRegistrar;
R := o.RegisterDevice(w, ...);
end;
文件UPnPDevice_Desc.xml:
<?xml version="1.0"?>
<root xmlns="urn:schemas-upnp-org:device-1-0">
<specVersion>
<major>1</major>
<minor>0</minor>
</specVersion>
<device>
<pnpx:X_deviceCategory xmlns:pnpx="http://schemas.microsoft.com/windows/pnpx/2005/11">Other</pnpx:X_deviceCategory>
<!--<pnpx:X_hardwareId xmlns:pnpx="http://schemas.microsoft.com/windows/pnpx/2005/11">Microsoft/SampleDevice/10000/urn:microsoft-com:device:SampleDimmerDevice:1</pnpx:X_hardwareId>-->
<!-- <df:X_containerId xmlns:df="http://schemas.microsoft.com/windows/2008/09/devicefoundation">{8C7B310D-90F8-40D4-B5EA-71D81821DEA6}</df:X_containerId>-->
<deviceType>urn:example-com:device:uPnPDevice:1</deviceType>
<friendlyName>My UPNP Device Hosted by Windows</friendlyName>
<manufacturer>Example Company</manufacturer>
<manufacturerURL>http://www.example.com/</manufacturerURL>
<modelDescription>My UPnP Device</modelDescription>
<modelName>uPnPDevice</modelName>
<modelNumber>1001</modelNumber>
<modelURL>http://www.example.com/</modelURL>
<serialNumber>123456</serialNumber>
<UDN>uuid:RootDevice</UDN>
<UPC>00000-00001</UPC>
<serviceList>
<service>
<serviceType>urn:schemas-upnp-org:service:SwitchPower:1</serviceType>
<serviceId>urn:upnp-org:serviceId:SwitchPower:1</serviceId>
<controlURL></controlURL>
<eventSubURL></eventSubURL>
<SCPDURL>UPnPDevice_SCPD.xml</SCPDURL>
</service>
</serviceList>
<presentationURL>DimmerPresentation.htm</presentationURL>
</device>
</root>
文件UPnPDevice_SCPD.xml:
<scpd xmlns="urn:schemas-upnp-org:service-1-0">
<specVersion>
<major>1</major>
<minor>0</minor>
</specVersion>
<actionList>
<action>
<name>MagicOn</name>
</action>
</actionList>
<serviceStateTable>
<stateVariable>
<name>OSMajorVersion</name>
<dataType>i4</dataType>
</stateVariable>
<stateVariable>
<name>OSMinorVersion</name>
<dataType>i4</dataType>
</stateVariable>
<stateVariable>
<name>OSBuildNumber</name>
<dataType>i4</dataType>
</stateVariable>
<stateVariable>
<name>OSMachineName</name>
<dataType>string</dataType>
</stateVariable>
</serviceStateTable>
</scpd>
我可以通过使用 IUPnPDeviceFinder 或 M-SEARCH 来查找设备,确认 UPnP 设备已托管在 UPnP 设备主机服务中。
注册表
HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription
还包含相应的信息:
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription{00BB4949-F3B2-4F5A-B534-C6FE61B71F4E}]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription{00BB4949-F3B2-4F5A-B534-C6FE61B71F4E}Files]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription{00BB4949-F3B2-4F5A-B534-C6FE61B71F4E}Files{B11E040A-6858-48BA-B1BD-85B4E8FCBA73}]
"Filename"="M:\uPNP\D16\Win32\Debug\UPnPDevice_SCPD.xml"
"Mimetype"="text/xml; charset="utf-8""
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription{00BB4949-F3B2-4F5A-B534-C6FE61B71F4E}UDN Mappings]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftUPnP Device HostDescription{00BB4949-F3B2-4F5A-B534-C6FE61B71F4E}UDN Mappingsuuid:RootDevice]
@="uuid:00bb4949-f3b2-4f5a-b534-c6fe61b71f4e"
使用
var Enum: IEnumVARIANT;
Fetched: Cardinal;
K: OleVariant;
P: IUPnPService;
W: WideString;
D: IUPnPDevice
begin
...
if D.Services.Count > 0 then begin
Enum := D.Services._NewEnum as IEnumVARIANT;
Enum.Reset;
while Enum.Next(1, K, Fetched) = S_OK do begin
P := IDispatch(K) as IUPnPService;
end;
end;
end;
D.Services.Count 为 1,但枚举不获取任何服务。 已获取的变量始终返回 0。
如果我查询媒体播放器 UPnP 设备,它确实返回了可用的服务。
知道我的UPnP设备不返回SCPD xml文件中指示的服务有什么问题吗?
注册设备后,XML 描述将更改为:
<root xmlns="urn:schemas-upnp-org:device-1-0">
<specVersion>
<major>1</major>
<minor>0</minor>
</specVersion>
<device>
<pnpx:X_deviceCategory xmlns:pnpx="http://schemas.microsoft.com/windows/pnpx/2005/11">Other</pnpx:X_deviceCategory>
<!--
<pnpx:X_hardwareId xmlns:pnpx="http://schemas.microsoft.com/windows/pnpx/2005/11">Microsoft/SampleDevice/10000/urn:microsoft-com:device:SampleDimmerDevice:1</pnpx:X_hardwareId>
-->
<!--
<df:X_containerId xmlns:df="http://schemas.microsoft.com/windows/2008/09/devicefoundation">{8C7B310D-90F8-40D4-B5EA-71D81821DEA6}</df:X_containerId>
-->
<deviceType>urn:example-com:device:uPnPDevice:1</deviceType>
<friendlyName>My UPNP Device Hosted by Windows</friendlyName>
<manufacturer>Example Company</manufacturer>
<manufacturerURL>http://www.example.com/</manufacturerURL>
<modelDescription>My UPnP Device</modelDescription>
<modelName>uPnPDevice</modelName>
<modelNumber>1001</modelNumber>
<modelURL>http://www.example.com/</modelURL>
<serialNumber>123456</serialNumber>
<UDN>uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9</UDN>
<UPC>00000-00001</UPC>
<serviceList>
<service>
<serviceType>urn:schemas-upnp-org:service:SwitchPower:1</serviceType>
<serviceId>urn:upnp-org:serviceId:SwitchPower:1</serviceId>
<controlURL>
/upnphost/udhisapi.dll?control=uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9+urn:upnp-org:serviceId:SwitchPower:1
</controlURL>
<eventSubURL>
/upnphost/udhisapi.dll?event=uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9+urn:upnp-org:serviceId:SwitchPower:1
</eventSubURL>
<SCPDURL>
/upnphost/udhisapi.dll?content=uuid:40c39217-e93b-4d0a-b5e0-abc582b2a2ed
</SCPDURL>
</service>
</serviceList>
<presentationURL>
/uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9/DimmerPresentation.htm?/upnphost/udhisapi.dll?content=uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9+uuid:9742f52d-f39f-4eaf-9ecf-bb742e9d79e9
</presentationURL>
</device>
</root>
请注意,controlURL、eventSubURL 和 SCPDURL 已更改。 访问
http://localhost:2869/upnphost/udhisapi.dll?content=uuid:40c39217-e93b-4d0a-b5e0-abc582b2a2ed
以文件UPnPDevice_SCPD.xml的形式返回确切的内容。
SCPD 文档必须添加 XML 分录。 例如:<?xml version="1.0"?>
<?xml version="1.0"?>
<scpd xmlns="urn:schemas-upnp-org:service-1-0">
...
</scpd>
我已经针对设备和服务 XSD 验证了您的 XML,它们没有问题。我建议使用英特尔设备间谍等外部工具检查正在运行的 SwitchPower 设备,以了解您的设备是否真的为您提供了 SCPD。我对SCPDURL
没有加上斜杠有点怀疑。根据设备架构,它"必须相对于设备描述所在的 URL",因此如果它不以斜杠开头,可能会构造一些有趣的 URL。这样,您确实会获得服务(因为设备描述提到了它),但它无法获取有关它的任何信息,因此您可能会获得某种无效的初始化。只是一个理论。这一切都取决于那些我一无所知的 IUPnP* 实现。
再三考虑,SwitchPower有几个必需的功能,您在SCPD中没有指定这些功能。但只要您(尚未)尝试以标准方式访问该服务,这可能不是问题。