FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Problemas utilizando STI para adquisición de imágenes
Buenas gente
Estoy desarrollando una aplicación que, entre otras cosas, debe controlar y acceder a cámaras digitales. A la hora de acceder al contenido de las mismas, he utilizado WIA (Windows Image Acquisition) sin ningún problema. SIn embargo, teniendo en cuenta que el driver WIA es exclusivo de Windows Xp, no funciona en Windows 98,ME,2000... para los cuales se necesita STI (Still Image). Pues bien, a la hora de desarrollar empleando STI, me encuentro con que (para variar), está pensado con el culo y explicado peor aún. Mi código: Código:
procedure CreateDevice (StillImage:IStillImage); var hr: HRESULT; dwItemsReturned:Pointer; pBuffer:Pointer; dwType:LongWord; dwFlags:LongWord; pdwEventCode:pointer; pDevice:pointer; //IStiDevice DeviceInternalName:PWideChar; begin CoInitialize(nil); hr := CoCreateInstance(CLSID_Sti, nil, CLSCTX_INPROC_SERVER, IID_IStillImage,stillImage); if Succeeded(hr) and Assigned(stillImage) then begin StillImage.Initialize(STI_VERSION,STI_DEVICE_CREATE_BOTH); hr:=StillImage.GetDeviceList(dwType,dwFlags,dwItemsReturned,pBuffer); hr:=StillImage.CreateDevice(STI_DEVICE_INFORMATION(pBuffer^).szDeviceInternalName,STI_DEVICE_CREATE_DATA,pDevice,nil); StillImage:=nil; end; CoUninitialize; end; En teoría, el primer paso es crear una instancia de IStillImage que creo con CoCreateInstance sin problemas. La inicializo y a la hora de obtener la lista de dispositivos se me presenta el primer problema: tengo instalados una multifunción Brother MFC(...), que funciona como scanner y por tanto se controla mediante STI, y mi cámara en pruebas: una Canon Powerchot S3IS. Pues bien ... la función GetDeviceList devuelve un array de estructuras STI_DEVICE_INFORMATION que contienen la información de los dispositivos conectados. Pero, no se cómo carajo moverme por ese array y sólo puedo acceder al primer dispositivo, la Brother, que no sirve de nada. En el sti.h (en mi caso sti.pas) no encuentro el famoso array de estructuras STI_DEVICE_INFORMATION y si la declaración de dichas estructuras, y por tanto no sé cómo hacer el typecast de lo contenido en pdata para acceder al array en sí. Lo que si puedo hacer es acceder a la primera posición con STI_DEVICE_INFORMATION(pBuffer^). El STI.PAS podeis verlo AQUÍ. SEGUNDO PROBLEMA Para solucionar momentaneamente el primer problema he desinstalado la Brother y dejado la Canon como único dispositivo, pudiendo así acceder a él. Pero mi segundo y peor problema viene a la hora de crear el manejador del dispositivo mediante CreateDevice, al cual hay que pasarle un puntero al nombre interno del dispositvo (szDeviceInternalName) devuelto en la estructura STI_DEVICE_INFORMATION, obtenida con la función anterior (GetDeviceList). Pues bien ... NO FUNCIONA. Creo que estoy llamando a la función con los parámetros correctos Código:
StillImage.CreateDevice(STI_DEVICE_INFORMATION(pBuffer^).szDeviceInternalName,STI_DEVICE_CREATE_DATA,pDevice,nil); |
#2
|
||||
|
||||
Con lo del array creo que te puedo ayudar. El tipo STI_DEVICE_INFORMATION si que lo tienes, pues un array, no es mas que eso un array:
Para utilizarlo, lo hacemos como cualquier otro array:
|
#3
|
|||
|
|||
Muchas gracias, funciona perfectamente
Ahora el código me queda así: Código:
procedure CreateDevice (StillImage:IStillImage); var hr: HRESULT; dwItemsReturned:Pointer; pBuffer:PSTI_DEVICE_INFORMATION_ARRAY; DeviceInformation:STI_DEVICE_INFORMATION; dwType:LongWord; dwFlags:LongWord; pDevice:IStiDevice; //IStiDevice DeviceName:PWideChar; DeviceInternalName:string; i:integer; begin CoInitialize(nil); hr := CoCreateInstance(CLSID_Sti, nil, CLSCTX_INPROC_SERVER, IID_IStillImage,stillImage); if Succeeded(hr) and Assigned(stillImage) then begin StillImage.Initialize(STI_VERSION,STI_DEVICE_CREATE_BOTH); hr:=StillImage.GetDeviceList(dwType,dwFlags,dwItemsReturned,pBuffer); for i:=0 to 1 do begin if pBuffer^[i].DeviceType = 131072 then DeviceInformation:=pBuffer^[i]; end; for i:=0 to STI_MAX_INTERNAL_NAME_LENGTH do begin if DeviceInformation.szDeviceInternalName[i] <> '' then DeviceInternalName:=DeviceInternalName+STI_DEVICE_INFORMATION(pBuffer^).szDeviceInternalName[i]; end; DeviceName:=StringToWideChar(DeviceInternalName,DeviceName,Length(DeviceInternalName)); hr:=StillImage.CreateDevice(DeviceName,STI_DEVICE_CREATE_DATA,pDevice,nil); StillImage:=nil; end; CoUninitialize; end; Código:
function CreateDevice(pwszDeviceName: PWideChar; dwMode: DWORD; out pDevice: IStiDevice; punkOuter: IUnknown): HRESULT; stdcall; Cita:
A ver si alguien me ilumina. Muchas gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Componete DICOM para imagenes. | JuanErasmo | C++ Builder | 4 | 08-05-2007 18:40:35 |
imágenes de fondo para una aplicación | rls | Varios | 3 | 16-11-2005 23:56:24 |
Problemas con Streams e Imágenes | Elfoscuro | Gráficos | 2 | 09-05-2005 20:42:26 |
problemas con mail e imagenes | hugokizo | PHP | 2 | 11-10-2004 11:02:14 |
Manual para programar utilizando las DirectX | Jan_polero | OOP | 0 | 23-05-2004 23:34:23 |
|