IMAPI2 - Wie weise ich die EventHandler zu?

[DeddyH]

So, hier mal mein bisheriger Versuch. Ich wollte nicht gleich einen A***h voll Rohlinge für Tests verbraten, daher habe ich mir den "einfachsten" EventHandler vorgenommen.

Delphi-Quellcode:

type

  ICookie = interface
    ['{595032D1-92D4-4001-AB44-F40A6A9F16F3}']
    function GetCookie: integer;
    procedure SetCookie(const Value: integer);
    property Cookie: integer read GetCookie write SetCookie;
  end;

  TDiscMasterEvents = class(TInterfacedObject, DDiscMaster2Events, ICookie)
  private
    FTypeLib: ITypeLib;
    FTypeInfo: ITypeInfo;
    FCookie: integer;
  public
    constructor Create;
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
    function NotifyDeviceAdded(const object_: IDispatch; const uniqueId: WideString): HResult; stdcall;
    function NotifyDeviceRemoved(const object_: IDispatch; const uniqueId: WideString): HResult; stdcall;
    function GetCookie: integer;
    procedure SetCookie(const Value: integer);
  end;

...

constructor TDiscMasterEvents.Create;
begin
  inherited Create;
  if LoadRegTypeLib(LIBID_IMAPI2, IMAPI2MajorVersion, IMAPI2MinorVersion,
    LOCALE_SYSTEM_DEFAULT, FTypeLib) = S_OK then
    FTypeLib.GetTypeInfoOfGuid(IID_DDiscMaster2Events, FTypeInfo);
end;

function TDiscMasterEvents.GetCookie: integer;
begin
  Result := FCookie;
end;

function TDiscMasterEvents.GetIDsOfNames(const IID: TGUID; Names: Pointer;
  NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
begin
  Result := DispGetIDsOfNames(FTypeInfo, Names, NameCount, DispIDs);
end;

function TDiscMasterEvents.GetTypeInfo(Index, LocaleID: Integer;
  out TypeInfo): HResult;
begin
  ITypeInfo(TypeInfo) := nil;
  if Index <> 0 then
    Result := DISP_E_BADINDEX
  else
    begin
      FTypeInfo._AddRef;
      ITypeInfo(TypeInfo) := FTypeInfo;
      Result := S_OK;
    end;
end;

function TDiscMasterEvents.GetTypeInfoCount(out Count: Integer): HResult;
begin
  Count := 1;
  Result := S_OK;
end;

function TDiscMasterEvents.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
begin
  Result := DispInvoke(self,
    FTypeInfo,
    DispID,
    Flags,
    TDispParams(Params),
    VarResult,
    ExcepInfo,
  ArgErr);
end;

function TDiscMasterEvents.NotifyDeviceAdded(const object_: IDispatch;
  const uniqueId: WideString): HResult;
begin
  //Nur mal zum Testen
  ShowMessage(uniqueId);
  Result := S_OK;
end;

function TDiscMasterEvents.NotifyDeviceRemoved(const object_: IDispatch;
  const uniqueId: WideString): HResult;
begin
  //Nur mal zum Testen
  ShowMessage(uniqueId);
  Result := S_OK;
end;

procedure TDiscMasterEvents.SetCookie(const Value: integer);
begin
  FCookie := Value;
end;

...

constructor TDiscBurner.Create;
var
  lCookie: integer;
begin
  inherited Create;
  ...
  FDiscMaster := CoMsftDiscMaster2.Create;
  FDiscMasterEvents := TDiscMasterEvents.Create;
  InterfaceConnect(FDiscMaster, IID_DDiscMaster2Events, FDiscMasterEvents,
    lCookie);
  (FDiscMasterEvents as ICookie).Cookie := lCookie;
  ...
end;

Als Cookie (Verbindungskennung) bekomme ich eine 1 zurück, das scheint also funktioniert zu haben. Allerdings scheint es mir, dass ich mich doch nicht verlesen bzw. die Beschreibung falsch verstanden habe:

Zitat:

NotifyDeviceAdded

Receives notification when an optical media device is added to the computer.

Media Device? Das soll also heißen, dass das Event gefeuert wird, wenn ein Laufwerk hinzugefügt wird und nicht bloß ein Medium eingelegt? Sollte ich das aber falsch verstanden haben, funktioniert mein Code nicht, das Event wird nicht gefeuert. Ich muss dann wohl doch in den sauren Apfel beißen und es mit einem anderen EventHandler versuchen, aber ich fahre morgen erst einmal zum CodeCamp, komme also frühestens Freitag dazu.

[himitsu]

Zitat:

NotifyDeviceAdded : Receives notification when an optical media device is added to the computer.
* object : An IDiscMaster2 interface that you can use to enumerate the devices on the computer.

IDiscMaster2 : Use this interface to enumerate the CD and DVD devices installed on the computer.

Wenn jamand 'ne kleine Testapp hat, dann kann ich ja mal meinen USB-DVD-Brenner suchen und das schnell ausprobieren. (Windows 7 und/oder 10)

bzw. SATA ist HotPlug-fähig ... SATA-Kabel abziehen und wieder anstecken

[DeddyH]

Danke für das Angebot, aber ich habe meinen Rechner schon heruntergefahren und will heute früh ins Bett.

[DeddyH]

Hat mal irgendjemand ein Beispiel für einen funktionierenden EventSink? Ich komme maximal soweit, dass InterfaceConnect ein Cookie > 0 zurückgibt, die Events werden aber nicht ausgelöst. Je mehr ich darüber lese, umso verwirrter werde ich.

[DeddyH]

*Push*

[TiGü]

Die hier verlinkten Sachen kennst du?
https://stackoverflow.com/a/19973405

[DeddyH]

2 kannte ich noch nicht, Danke. Das sieht aber auch nicht anders aus als die anderen Dinge, die ich so recherchieren konnte. Ich hab da zwar noch einen Delphi-Thread gefunden, aber der steht in einem russischen Forum und ist in kyrillisch geschrieben. Ich werden mal meinen Kollegen um eine Übersetzung bitten, vielleicht hilft mir das weiter.