AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) IMAPI2 - Wie weise ich die EventHandler zu?
Thema durchsuchen
Ansicht
Themen-Optionen

IMAPI2 - Wie weise ich die EventHandler zu?

Ein Thema von DeddyH · begonnen am 28. Mai 2017 · letzter Beitrag vom 7. Jun 2017
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#1

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 30. Mai 2017, 18:31
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.479 Beiträge
 
Delphi 12 Athens
 
#2

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 30. Mai 2017, 18:49
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
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#3

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 30. Mai 2017, 19:03
Danke für das Angebot, aber ich habe meinen Rechner schon heruntergefahren und will heute früh ins Bett.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#4

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 5. Jun 2017, 14:17
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#5

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 7. Jun 2017, 11:08
*Push*
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 7. Jun 2017, 12:18
Die hier verlinkten Sachen kennst du?
https://stackoverflow.com/a/19973405
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#7

AW: IMAPI2 - Wie weise ich die EventHandler zu?

  Alt 7. Jun 2017, 12:52
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz