[DUG] Anyone with 5 minutes spare time?

Thu May 27 22:54:26 NZST 2010

Try this

You would call it with a null GUID to retrieve the default handler.

Uses ActiveX;

Var WaveDeviceId : cardinal

WaveDeviceId:= DSGUIDToWaveDeviceID(nil, GUID_NULL,
DIRECTSOUNDDEVICE_DATAFLOW_RENDER);

//**********************************************************************
**********************/

// DOWNLOAD CLOOTIE LIBRARY FROM
http://www.clootie.ru/delphi/download_dx92.html TO USE THIS  /

//**********************************************************************
**********************/

unit DSGuidToWaveDevice;

interface

uses

  DirectSound, ActiveX, Windows;

type

  DIRECTSOUNDDEVICE_DATAFLOW = (DIRECTSOUNDDEVICE_DATAFLOW_RENDER,
DIRECTSOUNDDEVICE_DATAFLOW_CAPTURE);

  DIRECTSOUNDDEVICE_TYPE = (DIRECTSOUNDDEVICE_TYPE_EMULATED,
DIRECTSOUNDDEVICE_TYPE_VXD, DIRECTSOUNDDEVICE_TYPE_WDM);

  DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA = Record

    Type_: DIRECTSOUNDDEVICE_TYPE;

    DataFlow: DIRECTSOUNDDEVICE_DATAFLOW;

    DeviceId: TGUID;

    Description: PChar;

    Module: PChar;

    Interface_: PChar;

    WaveDeviceId: ULONG;

  end;

  PDSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA =
^DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA;

  Function DSGUIDToWaveDeviceID(aDSIntf : IUnknown; aGUID: TGUID;
aDataFlow : DIRECTSOUNDDEVICE_DATAFLOW): Cardinal;

  //this doesnt work however you can get a pointer to this function
yourself as per below

  //function DLLGetClassObject(const CLSID, IID: TGUID; var Obj):
HResult; stdcall; external DirectSoundDLL name 'DLLGetClassObject';

const

  DSPROPSETID_DirectSoundDevice: TGUID =
'{84624F82-25EC-11d1-A4D8-00C04FC28ACA}';

  CLSID_DirectSoundPrivate: TGUID =
'{11AB3EC0-25EC-11d1-A4D8-00C04FC28ACA}';

  EmptyDescription: DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA =
(Type_: DIRECTSOUNDDEVICE_TYPE_EMULATED;

DataFlow: DIRECTSOUNDDEVICE_DATAFLOW_RENDER;

DeviceId: '{00000000-0000-0000-0000-000000000000}';

Description: '';

Module: '';

Interface_: '';

WaveDeviceId: 0);

implementation

Function DSGUIDToWaveDeviceID(aDSIntf : IUnknown; aGUID: TGUID;
aDataFlow : DIRECTSOUNDDEVICE_DATAFLOW): Cardinal;

var PropSet : IKsPropertySet;

  DeviceDescription : DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA;

  PDeviceDescription : PDSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA;

  lReturned : ULONG;

  DSoundDLL : HMODULE;

  lDllGetClassObject : TDLLGetClassObject;

  Factory: IClassFactory;

begin

  //aDSIntf is an interface you already have of i.e. IDirectSound or
IDirectSoudnBuffer etc

  if Assigned(aDSIntf) then

    aDSIntf.QueryInterface(IID_IKsPropertySet, PropSet)

  else begin

    DSoundDLL := LoadLibrary(DirectSoundDll);   //load the library

    lDllGetClassObject := GetProcAddress(DSoundDLL,'DllGetClassObject');
//get reference to the function

    lDllGetClassObject(CLSID_DirectSoundPrivate, IClassFactory,
Factory);   //use the function to create class factory

    Factory.CreateInstance(nil, IID_IKsPropertySet, PropSet);  //use the
factory to create IKsPropertySet interface

  end;

  DeviceDescription := EmptyDescription;

  DeviceDescription.DataFlow := aDataFlow;

  DeviceDescription.DeviceId := aGUID;

  PropSet.Get(DSPROPSETID_DirectSoundDevice,1,

            nil,

            0,

            @DeviceDescription,

            sizeof(DeviceDescription),

            lReturned);

  Result := DeviceDescription.WaveDeviceId;

end;

end.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Ross Levis
Sent: Thursday, 27 May 2010 10:47 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: Re: [DUG] Anyone with 5 minutes spare time?

Instead of the QueryInterface, I tried this...

const

  CLSID_DirectSoundPrivate: TGUID =
'{11AB3EC0-25EC-11d1-A4D8-00C04FC28ACA}';

CoCreateInstance(CLSID_DirectSoundPrivate,nil,CLSCTX_INPROC_SERVER,IID_I
KsPropertySet,PropSet);

But I get "the specified class is not registered in the registration
database".

Interfaces are like a foreign language to me.  It looks way more
complicated than it should be.

Ross.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Cameron Hart
Sent: Thursday, 27 May 2010 12:25 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Anyone with 5 minutes spare time?

The interface you want is actually "IKsPropertySet".  Clootie defines
this for you just doesn't take you as far as using it.

Make sure you download the library from
http://www.clootie.ru/delphi/download_dx92.html and not the DX10
library.

The unit below is what you need.  i just knocked this together now so
you will need to test it.  Shouldn't be far off. You might need to check
my conversion from the headers.

//**********************************************************************
**********************/

// DOWNLOAD CLOOTIE LIBRARY FROM
http://www.clootie.ru/delphi/download_dx92.html TO USE THIS  /

//**********************************************************************
**********************/

unit DSGuidToWaveDevice;

interface

uses

  DirectSound, ActiveX, Windows;

type

  DIRECTSOUNDDEVICE_DATAFLOW = (DIRECTSOUNDDEVICE_DATAFLOW_RENDER,
DIRECTSOUNDDEVICE_DATAFLOW_CAPTURE);

  DIRECTSOUNDDEVICE_TYPE = (DIRECTSOUNDDEVICE_TYPE_EMULATED,
DIRECTSOUNDDEVICE_TYPE_VXD, DIRECTSOUNDDEVICE_TYPE_WDM);

  DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA = Record

    Type_: DIRECTSOUNDDEVICE_TYPE;

    DataFlow: DIRECTSOUNDDEVICE_DATAFLOW;

    DeviceId: TGUID;

    Description: PChar;

    Module: PChar;

    Interface_: PChar;

    WaveDeviceId: ULONG;

  end;

  Function DSGUIDToWaveDeviceID(aDSIntf : IUnknown; aGUID: TGUID;
aDataFlow : DIRECTSOUNDDEVICE_DATAFLOW): Cardinal;

const

  DSPROPSETID_DirectSoundDevice: TGUID =
'{84624F82-25EC-11d1-A4D8-00C04FC28ACA}';

implementation

Function DSGUIDToWaveDeviceID(aDSIntf : IUnknown; aDataFlow :
DIRECTSOUNDDEVICE_DATAFLOW): Cardinal;

var PropSet : IKsPropertySet;

  DeviceDescription : DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION_A_DATA;

  lReturned : ULONG;

begin

  //aDSIntf is an interface you already have of i.e. IDirectSound or
IDirectSoudnBuffer etc

  //aDSIntf.QueryInterface(IID_IKsPropertySet, PropSet);

  DeviceDescription.DataFlow := aDataFlow;

  DeviceDescription.DeviceId := aGUID;

  PropSet.Get(DSPROPSETID_DirectSoundDevice,1,

            nil,

            0,

            @DeviceDescription,

            sizeof(DeviceDescription),

            lReturned);

  Result := DeviceDescription.WaveDeviceId;

end;

end.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Ross Levis
Sent: Wednesday, 26 May 2010 10:00 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: Re: [DUG] Anyone with 5 minutes spare time?

If you are referring to the Clootie page, I just downloaded the headers
from there and it's the same file as I've got.

I'm pretty sure no one has done this yet for Delphi, or at least
published it.  I spend 2 or 3 hours searching the net yesterday.  I only
found one instance of some C++ code.

If you google "delphi DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION" or
"delphi CLSID_DirectSoundPrivate", you get only 3 or 4 pages which don't
have anything to do with Delphi.  It's not a commonly used interface.

Ross.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Cameron Hart
Sent: Wednesday, 26 May 2010 8:41 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Anyone with 5 minutes spare time?

I have googled it further for you again with the term "directx 9 delphi
pas".  lots of libraries returned that look promising.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Ross Levis
Sent: Wednesday, 26 May 2010 6:53 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: Re: [DUG] Anyone with 5 minutes spare time?

I've already got a file called DirectSound.pas which is similar to those
on the internet but none of them have this particular interface which I
believe was introduced in DirectX 9.

Cheers,

Ross.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Cameron Hart
Sent: Wednesday, 26 May 2010 6:29 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Anyone with 5 minutes spare time?

Just to clarify, directsound.pas (or similar units floating on the net)
should give you interfaces to the Dsound.dll.  this is what you need to
do things like below.

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Ross Levis
Sent: Wednesday, 26 May 2010 5:40 p.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: [DUG] Anyone with 5 minutes spare time?

Hi everyone.

I've never used interfaces in Windows before and I've got no idea how to
do this, so I'm wondering if someone would like to whip up a Delphi
function for me.  I don't think it would take more than 5 or 10 minutes.
I searched the internet extensively and C++ code exists but nothing for
Delphi.

http://msdn.microsoft.com/en-us/library/ee418863(v=VS.85).aspx

I need to access the DSPROPERTY_DIRECTSOUNDDEVICE_DESCRIPTION properties
on the above page and specifically return the WaveDeviceID from a given
GUID.  I have the GUID and need the WaveDeviceID.  ie.

Function DSGUIDToWaveDeviceID(GUID: TGUID; DataFlow: ??): Cardinal;

Very much appreciated J

Ross.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20100527/58b0de14/attachment-0001.html 