Delphi WPD事件回调-获取文件名

我试图跟踪在WPD兼容设备（如数码相机或Android手机）上创建文件的时间。我注册接收带有

通知的事件，并且正确调用了回调，但无法正确获取文件名（可能是对象名）。以下是我所拥有的：

TPortableDeviceEventsCallback = class(TInterfacedObject, IPortableDeviceEventCallback)
 public
  function OnEvent(const pEventParameters: IPortableDeviceValues): HResult; dynamic; stdcall;
 end;
.
.
.
function TPortableDeviceEventsCallback.OnEvent(const pEventParameters: IPortableDeviceValues): HResult;
var
ObjName: PWideChar;
begin
  pEventParameters.GetStringValue(WPD_EVENT_PARAMETER_OBJECT_NAME, ObjName);
  Log(string(ObjName));
end;

我只得到垃圾，而不是添加/删除的对象名。我在这里遗漏了什么？
首先，
OnEvent（）
不应声明为
dynamic
。它已在
IPortableDeviceEventCallback
中
virtual

其次，您没有对
IPortableDeviceValues.GetStringValue（）
执行任何错误处理，也没有释放它返回的内存。它应该更像这样：

function TPortableDeviceEventsCallback.OnEvent(const pEventParameters: IPortableDeviceValues): HResult;
var
  Hr: HResult;
  ObjName: PWideChar;
begin
  Hr := pEventParameters.GetStringValue(WPD_EVENT_PARAMETER_OBJECT_NAME, ObjName);
  case Hr of
    S_OK: begin
      try
        Log('Object Name: ' + String(ObjName));
      finally
        CoTaskMemFree(ObjName);
      end;
    end;
    DISP_E_TYPEMISMATCH: begin
      Log('Object Name is not a string!');
    end;
    $80070490: // HRESULT_FROM_WIN32(ERROR_NOT_FOUND)
    begin
      Log('Object Name is not found!');
    end;
  else
    // some other error
    Log('Error getting Object Name: $' + IntToHex(Hr, 8));
  end;
  Result := S_OK;
end;

第三，您没有通过查看
WPD\u EVENT\u参数\u EVENT\u ID
参数（这是唯一必需的参数）的值来了解正在接收的事件，从而了解哪些参数可用。不同的事件具有不同的参数值

尝试枚举可用值以查看每个事件中实际接收到的内容：

function TPortableDeviceEventsCallback.OnEvent(const pEventParameters: IPortableDeviceValues): HResult;
var
  Hr: HResult;
  Count, I: DWORD;
  Key: PROPERTYKEY;
  Value: PROPVARIANT;
begin
  Log('Event received');

  Hr := pEventParameters.GetCount(Count);
  if FAILED(Hr) or (Count = 0) then Exit;

  Log('Param count: ' + IntToStr(Count));

  for I := 0 to Count-1 do
  begin
    Hr := pEventParameters.GetAt(I, Key, Value);
    if FAILED(Hr) then
    begin
      Log('Cant get parameter at index ' + IntToStr(I));
      Continue;
    end;
    try
      Log('Param Key: ' + GuidToString(Key.fmtid) + ', Value type: $' + IntToHex(Value.vt, 4));
      // log content of Value based on its particular data type as needed...
    finally
      PropVariantClear(Value);
    end;
  end;
  Result := S_OK;
end;

非常感谢。我将对我的代码应用所有这些更改。但问题是，假设我收到了一个WPD_EVENT_OBJECT_ADDED事件，这是获取所添加文件名的正确方法吗？为什么我会收到垃圾？好吧！我意识到我用错了常数。现在我可以使用WPD_OBJECT_ORIGINAL_file_name获得正确的文件名。