Камера и разрешение

[Daemvil]

Переписывать интерфейсы с Си++ на Дельфи будет слишком долго, т.к. я в Си в этом не силен.

Сообщение от raxp

он может лежать в виде *.AX файла, также может быть в ресурсах утилиты и выгружаться прямо в память без сохранения на диск.

есть такой. "dcm800.ax" Как его можно подгрузить?

[raxp]

- не так уж и долго, интерфейсы DirectShow одинаковы, что для Си, что для Delphi
- его достаточно инсталлировать (regsvr32) в системе (а возможно он уже инсталлирован, да вы его не используете) и он будет доступен в списке фильтров в том же графэдите для создания графа, а значит и в своей программе.

[Daemvil]

Сообщение от raxp

- его достаточно инсталлировать (regsvr32) в системе (а возможно он уже инсталлирован, да вы его не используете) и он будет доступен в списке фильтров в том же графэдите для создания графа, а значит и в своей программе.

В списке нашел, соединилось в графэдите, работает. Буду пробовать подключить.
https://dl.dropboxusercontent.com/u/24818729/3.jpg

[Daemvil]

Правильной ли будет такая интерпретация?

	DEFINE_GUID(IID_IDcm800, 0x7a3cfafd, 0x3168, 0x4fa1, 0x99, 0x3a, 0x11, 0xc0, 0x24, 0xf2, 0xb0, 0xb);

	enum eDcm800Size{
		eDcm800Size_3264_2448,
		eDcm800Size_1600_1200,
		eDcm800Size_1280_960,
		eDcm800Size_1024_768,
		eDcm800Size_640_480
	};
	
	typedef void (__cdecl *PFUN_AutoWhiteBalanceCallback)(int RedGain, int GreenGain, int BlueGain, void* Context);

DECLARE_INTERFACE_(IDcm800, IUnknown)
    {
		STDMETHOD(get_PreviewSize) (THIS_ enum eDcm800Size* Dcm800Size) PURE;
		STDMETHOD(put_PreviewSize) (THIS_ enum eDcm800Size Dcm800Size) PURE;
		STDMETHOD(get_StillSize) (THIS_ enum eDcm800Size* Dcm800Size) PURE;
		STDMETHOD(put_StillSize) (THIS_ enum eDcm800Size Dcm800Size) PURE;
		STDMETHOD(get_AutoExposure) (THIS_ BOOL* bAutoExposure) PURE;
		STDMETHOD(put_AutoExposure) (THIS_ BOOL bAutoExposure) PURE;

Получается:

	const
	  IID_IDcm800 : TGUID = (D1:$7A3CFAFD; D2:$3168; D3:$4FA1; D4:($99, $3A, $11, $C0, $24, $F2, $B0, $B));

type
  eDcm800Size=(eDcm800Size_3264_2448,
		eDcm800Size_1600_1200,
		eDcm800Size_1280_960,
		eDcm800Size_1024_768,
		eDcm800Size_640_480);

   AutoWhiteBalanceCallback = procedure (RedGain: Integer; GreenGain: Integer; BlueGain: Integer; Context: Pointer);

  IDcm800 = interface(IUnknown)
  ['{7A3CFAFD-3168-4fa1-993A-11C024F2B00B}']
  Function GetPreviewSize(var Dcm800Size : ^eDcm800Size): LongInt; stdcall;
  Function PutPreviewSize(const Dcm800Size : eDcm800Size): LongInt; stdcall;
  Function GetStillSize(var Dcm800Size : ^eDcm800Size): LongInt; stdcall;
  Function PutStillSize(const Dcm800Size : eDcm800Size): LongInt; stdcall;
  Function GetAutoExposure(var bAutoExposure : ^boolean): LongInt; stdcall;
  Function PutAutoExposure(const bAutoExposure : boolean): LongInt; stdcall;
...

Еще вопрос: а можно ли как-то соединить этот фильтр без этих "упражнений", указав GUID, или название? Ведь Графэдит же умеет...

[Daemvil]

Сообщение от raxp

(а возможно он уже инсталлирован, да вы его не используете) и он будет доступен в списке фильтров в том же графэдите для создания графа, а значит и в своей программе.

Подскажи, пожалуйста, насчет правильной интерпретации кода, у меня не выходит ничего А тут, похоже, кроме тебя никто в DirectShow хорошо не разбирается.

[Daemvil]

Уважаемые форумчане! такой вопрос: если интерфейс описан не до конца, то можно ли его получить(доступ к описанным методам) по queryInterface?
Переписал на Дельфи несколько методов из интерфейса для камеры:

	
{$HPPEMIT '#include "dcm800.h"'}
.......
  IID_IDcm800 : TGUID = (D1:$7A3CFAFD;D2:$3168;D3:$4FA1;D4:($99,$3A,$11,$C0,$24,$F2,$B0,$B));
  {$EXTERNALSYM IID_IDCM800}
.......
eDCM800Size = (eDcm800Size_3264_2448, eDcm800Size_1600_1200, eDcm800Size_1280_960, eDcm800Size_1024_768, eDcm800Size_640_480);

  pDCM800Size = ^eDCM800Size;

  {$HPPEMIT 'typedef System::DelphiInterface<IDcm800> _di_IDcm800;'}
  {$EXTERNALSYM IDcm800}
  IDcm800 = interface(IUnknown)
	  ['{7A3CFAFD-3168-4fa1-993A-11C024F2B00B}']
	  function get_PreviewSize(out DCM800Size:pDCM800Size): HRESULT; stdcall;
    function put_PreviewSize(    DCM800Size:eDCM800Size): HRESULT; stdcall;
	  function get_StillSize(out DCM800Size:pDCM800Size): HRESULT; stdcall;
    function put_StillSize(    DCM800Size:eDCM800Size): HRESULT; stdcall;
	  function get_AutoExposure(out bAutoExposure:PBoolean): HRESULT; stdcall;
    function put_AutoExposure(    bAutoExposure:Boolean): HRESULT; stdcall;
	  function get_ExposureTarget(out Target:PByte): HRESULT; stdcall;
    function put_ExposureTarget(    Target:Byte): HRESULT; stdcall;
	  function get_ExposureTime(out Time:PWord): HRESULT; stdcall;
    function put_ExposureTime(    Target:Word): HRESULT; stdcall;
  end;

queryInterface выдает ошибку HRESULT 0x80004002 "интерфейс не поддерживается"(E_NOINTERFACE). Из-за чего она может быть?

[Человек_Борща]

Либо интерфейс действительно не поддерживается либо не правильно GUID написали.

[Daemvil]

Сообщение от Человек_Борща

Либо интерфейс действительно не поддерживается либо не правильно GUID написали.

Но программа ScopePhoto его как-то использует!
Сравнивал 10 раз с прилагаемым к камере dcm800.h, все один к одному. В графстудии не нашел возможности подключить интерфейс, там в источнике в разделе Interfaces указаны другие хидеры, совсем не dcm800.h, а strmif.h и objidl.h. И IID другие...
в сишном примере для камеры версии dcm310 (для 800 все аналогично) сделано так:

void DoMySettings(IBaseFilter* pSourceFilter)
{
	IDcm310* pIDcm310;
	HRESULT hr = pSourceFilter->QueryInterface(IID_IDcm310, (void**)&pIDcm310);
	if (SUCCEEDED(hr) && pIDcm310)
	{
		/* Now, we get the interface, so we can do anything we want to do */
		pIDcm310->put_WhiteBlack(TRUE);
		
		BYTE bGamma;
		pIDcm310->get_Gamma(&bGamma);
		bGamma += 10;
		pIDcm310->put_Gamma(bGamma);

		/* ...... */
		pIDcm310->Release();
	}
}

я делаю так:

  FDCM800             :IDCM800;
..........
  Result:=FBaseFilter.QueryInterface(IID_IDCM800, FDCM800);

В графстудии кстати фильтр dcm800.ax подключается, но там та же картина, совсем не dcm800.h...

[Человек_Борща]

Но программа ScopePhoto его как-то использует!

Я про то, что перевели описание GUID наверное не совсем так.

[Daemvil]

Сообщение от Человек_Борща

Я про то, что перевели описание GUID наверное не совсем так.

Для запроса интерфейса так ли важно точное описание его методов? разве для Query важен не только существующий IID (GUID)?