SGSCan - Capturar imagen de camara web

[[Delphius]]

Buenas, foristas, espero que hayan pasado entre brindis, fiestas, etc... este comienzo del 2007.

Yo, por mi parte, no tengo descanso. Estuve buscando en torry un componente que me permita capturar imagenes desde una cámara web. Al componente lo encontré (buscando por TWAIN) y es el SGscan.

Esta lindo, pero lo siento pobre. Si hace su cometido, pero no me gusta la manera en que lo hace.
Veran, el componente posee un procedimiento:

Código Delphi [-]
SGSCan1.Scan;

Y con esto hace:
1. Me abre una ventana para que seleccione la camera. Una vez que selecciona la cámara:
2. Genera una segunda ventana donde se ve la pantalla de captura con el correspondiente botón de captura. Al presionar en el botón, la imagen se registra en un TImage (que se enlaza mediante una propiedad en el TSGScan)

Y precisamente, eso es lo que me molesta... todas esas pantallas... estaba pensando en meterle manos al componente pero no me animo ya que es un lio y no se entiendo nada el código.

Los otros componentes que figuran en Torry (por lo menos los que yo encontré) son pagos. He notado que por aqui se ha hablado anteriormente de otro componente, pero ya no me acuerdo el nombre... y no recuerdo haberlo visto en torry.

Por eso recurro a ustedes, para ver si me pueden indicar de otro componente... un poco más completo, o si alguien sabría como modificar a éste (SGScan) para que no me salte con tantas cosas...

Desde ya muchas gracias.

[[seoane]]

Aquí tienes un ejemplo de como usar la webcam para capturar vídeo e imágenes, parece sencillo, apenas unas cuantas instrucciones.

http://www.esanu.name/delphi/Multime...%20source.html

[[Delphius]]

Muchas gracias seoane. Le voy a estar poniendo un ojo al link que me ofreces. y veo de alli de que manera tendría que adaptarlo... (en caso de ser necesario). Muchísimas gracias.

Saludos,

[Ing_Fajardo]

este codigo no es mio, y no lo he probado.... espero y te sirva

First of all, get the SDK at www.developer.logitec.com

After installation, open delphi and Import ActiveX Control VPortal2 from the list.

Now, create a new form, and put a VideoPortal from the ActiveX panel and a button.

In the uses, add VideoPortal

On the OnShow add:
VideoPortal1.PrepareControl('QCSDK','HKEY_LOCAL_MACHINE\Software\JCS Programmation\QCSDK',0);
VideoPortal1.EnableUIElements(UIELEMENT_STATUSBAR,0,0);
VideoPortal1.ConnectCamera2;
VideoPortal1.EnablePreview := 1;

On the ButtonClick add:

var BMP : TBitmap;
JPG : TJpegImage;
L : String;
begin
F := 'Photos\test.jpg';
VideoPortal1.StampBackgroundColor := clYellow;
VideoPortal1.StampTextColor := clBlack;
VideoPortal1.StampFontName := 'Arial';
VideoPortal1.StampPointSize := 10;
VideoPortal1.StampTransparentBackGround := 0;
L := Format(' %s - %s ',[DateTimeToStr(Now),Num]);
VideoPortal1.PictureToFile(0,24,'Temp.bmp',L);
BMP := TBitmap.Create;
JPG:= TJpegImage.Create;
BMP.LoadFromFile('Temp.bmp');
JPG.CompressionQuality := 85;
JPG.Assign(BMP);
JPG.SaveToFile(F);
BMP.Free;
JPG.Free;
end;

It's all, run the application, you will see the image from the camera, click on the button to get a picture.


Here is a copy a VideoPortal.Pas (constants).

Unit VideoPortal;


Interface
// Copyright (c) 1996-2000 Logitech, Inc. All Rights Reserved
// User Interface Element, codes used with EnableUIElement method
Const UIELEMENT_640x480 = 0;
Const UIELEMENT_320x240 = 1;
Const UIELEMENT_PCSMART = 2;
Const UIELEMENT_STATUSBAR = 3;
Const UIELEMENT_UI = 4;
Const UIELEMENT_CAMERA = 5;
Const UIELEMENT_160x120 = 6;

// Camera status codes, returned by CameraState property
Const CAMERA_OK = 0;
Const CAMERA_UNPLUGGED = 1;
Const CAMERA_INUSE = 2;
Const CAMERA_ERROR = 3;
Const CAMERA_SUSPENDED = 4;
Const CAMERA_DUAL_DETACHED = 5;
Const CAMERA_UNKNOWNSTATUS = 10;

// Movie Recording Modes, used with MovieRecordMode property
Const SEQUENCECAPTURE_FPS_USERSPECIFIED = 1;
Const SEQUENCECAPTURE_FPS_FASTASPOSSIBLE = 2;
Const STEPCAPTURE_MANUALTRIGGERED = 3;

// Movie Creation Flags, used with MovieCreateFlags property
Const MOVIECREATEFLAGS_CREATENEW = 1;
Const MOVIECREATEFLAGS_APPEND = 2;

// Notification Codes
Const NOTIFICATIONMSG_MOTION = 1;
Const NOTIFICATIONMSG_MOVIERECORDERROR = 2;
Const NOTIFICATIONMSG_CAMERADETACHED = 3;
Const NOTIFICATIONMSG_CAMERAREATTACHED = 4;
Const NOTIFICATIONMSG_IMAGESIZECHANGE = 5;
Const NOTIFICATIONMSG_CAMERAPRECHANGE = 6;
Const NOTIFICATIONMSG_CAMERACHANGEFAILED = 7;
Const NOTIFICATIONMSG_POSTCAMERACHANGED = 8;
Const NOTIFICATIONMSG_CAMERBUTTONCLICKED = 9;
Const NOTIFICATIONMSG_VIDEOHOOK = 10;
Const NOTIFICATIONMSG_SETTINGDLGCLOSED = 11;
Const NOTIFICATIONMSG_QUERYPRECAMERAMODIFICATION = 12;
Const NOTIFICATIONMSG_MOVIESIZE = 13;

// Error codes used by NOTIFICATIONMSG_MOVIERECORDERROR notification:
Const WRITEFAILURE_RECORDINGSTOPPED = 0;
Const WRITEFAILURE_RECORDINGSTOPPED_FILECORRUPTANDDELETED = 1;
Const WRITEFAILURE_CAMERA_UNPLUGGED = 2;
Const WRITEFAILURE_CAMERA_SUSPENDED = 3;

// Camera type codes, returned by GetCameraType method
Const CAMERA_UNKNOWN = 0;
Const CAMERA_QUICKCAM_VC = 1;
Const CAMERA_QUICKCAM_QUICKCLIP = 2;
Const CAMERA_QUICKCAM_PRO = 3;
Const CAMERA_QUICKCAM_HOME = 4;
Const CAMERA_QUICKCAM_PRO_B = 5;
Const CAMERA_QUICKCAM_TEKCOM = 6;
Const CAMERA_QUICKCAM_EXPRESS = 7;
Const CAMERA_QUICKCAM_FROG = 8; // MIGHT CHANGE NAME BUT ENUM STAYS THE SAME
Const CAMERA_QUICKCAM_EMERALD = 9; // MIGHT CHANGE NAME BUT ENUM STAYS THE SAME

// Camera-specific property codes used by Set/GetCameraPropertyLong
Const PROPERTY_ORIENTATION = 0;
Const PROPERTY_BRIGHTNESSMODE = 1;
Const PROPERTY_BRIGHTNESS = 2;
Const PROPERTY_CONTRAST = 3;
Const PROPERTY_COLORMODE = 4;
Const PROPERTY_REDGAIN = 5;
Const PROPERTY_BLUEGAIN = 6;
Const PROPERTY_SATURATION = 7;
Const PROPERTY_EXPOSURE = 8;
Const PROPERTY_RESET = 9;
Const PROPERTY_COMPRESSION = 10;
Const PROPERTY_ANTIBLOOM = 11;
Const PROPERTY_LOWLIGHTFILTER = 12;
Const PROPERTY_IMAGEFIELD = 13;
Const PROPERTY_HUE = 14;
Const PROPERTY_PORT_TYPE = 15;
Const PROPERTY_PICTSMART_MODE = 16;
Const PROPERTY_PICTSMART_LIGHT = 17;
Const PROPERTY_PICTSMART_LENS = 18;
Const PROPERTY_MOTION_DETECTION_MODE = 19;
Const PROPERTY_MOTION_SENSITIVITY = 20;
Const PROPERTY_WHITELEVEL = 21;
Const PROPERTY_AUTO_WHITELEVEL = 22;
Const PROPERTY_ANALOGGAIN = 23;
Const PROPERTY_AUTO_ANALOGGAIN = 24;
Const PROPERTY_LOWLIGHTBOOST = 25;
Const PROPERTY_COLORBOOST = 26;
Const PROPERTY_ANTIFLICKER = 27;
Const PROPERTY_OPTIMIZATION_SPEED_QUALITY = 28;
Const PROPERTY_STREAM_HOOK = 29;
Const PROPERTY_LED = 30;


Const ADJUSTMENT_MANUAL = 0;
Const ADJUSTMENT_AUTOMATIC = 1;

Const ORIENTATIONMODE_NORMAL = 0;
Const ORIENTATIONMODE_MIRRORED = 1;
Const ORIENTATIONMODE_FLIPPED = 2;
Const ORIENTATIONMODE_FLIPPED_AND_MIRRORED = 3;

Const COMPRESSION_Q0 = 0;
Const COMPRESSION_Q1 = 1;
Const COMPRESSION_Q2 = 2;

Const ANTIFLICKER_OFF = 0;
Const ANTIFLICKER_50Hz = 1;
Const ANTIFLICKER_60Hz = 2;

Const OPTIMIZE_QUALITY = 0;
Const OPTIMIZE_SPEED = 1;

Const LED_OFF = 0;
Const LED_ON = 1;
Const LED_AUTO = 2;
Const LED_MAX = 3;

Const PICTSMART_LIGHTCORRECTION_NONE = 0;
Const PICTSMART_LIGHTCORRECTION_COOLFLORESCENT = 1;
Const PICTSMART_LIGHTCORRECTION_WARMFLORESCENT = 2;
Const PICTSMART_LIGHTCORRECTION_OUTSIDE = 3;
Const PICTSMART_LIGHTCORRECTION_TUNGSTEN = 4;

Const PICTSMART_LENSCORRECTION_NORMAL = 0;
Const PICTSMART_LENSCORRECTION_WIDEANGLE = 1;
Const PICTSMART_LENSCORRECTION_TELEPHOTO = 2;

Const CAMERADLG_GENERAL = 0;
Const CAMERADLG_ADVANCED = 1;

Implementation
end.

[[Delphius]]

Ing_Fajardo, gracias por ayudar. Estaré probando el código. ¿Sería tan amable de indicarme de donde lo obtuvo y en que fecha? ¿Es el mismo sitio que señala como primer paso:?

First of all, get the SDK at www.developer.logitec.com

seoane, probé el código que señala la página pero anda a medias. Abre el dispositivo de video, pero no captura nada. Muestra todo en negro... o es que realmente no logra abrir el dispositivo... o es que copié muy mal.

Saludos,

[[Delphius]]

Buenas, mejor aclaro bien lo que pretendo. El componente incial que mencioné funciona bien, pero con ese pobre procedimiento concentra demasiadas cosas. Y la verdad es que molesta el hecho de que habilita una ventana en donde se debe determinar el dispositivo... y luego habilita un segundo formulario (el de la cámara) que es donde hay que dar la orden de captura.

Esto, para mis fines, es engorroso. Yo necesito que no me muestre la lista de dispositivos... que se habilite la ventana de captura y automáticamente empiece a capturar imagenes. Un problema es que una vez que se captura la imagen, la ventana de la cámara se cierra.

Buscando por los foros logré rescatar el nombre de otro componente: TDelphiTWain. Con este componente logré evitarme la lista de dispositivos, lo segundo (la ventana de captura).

Estaba pensando en que se podría detectar el Handle de dicha ventana... buscar el botón de captura... darle la orden de click por código... y volver a levantar la ventana. Todavía no pobré hacerlo, y la verdad es que con el solo hecho de decirlo... se me hace que esto un método muy rebuscado.

El TDelphiTwain es un componente muy completo. Todavía lo estoy estudiando... a lo mejor tiene una manera de lograr lo que pretendo. Si alguien sabe como emplear este componente (viene con ayuda... pero es muy simple) le estaría agradecido si me puede dar una mano.

Saludos,

[Casimiro Notevi]

Hasta ahora no he tenido ocasión de trabajar con cámaras web, pero me llama la atención que se esté hablando de componentes twain, que son para los escaneres ¿acaso el funcionamiento de una cámara web es como el de un escaner?

[[seoane]]

Estuve haciendo unas pruebas y este es el resultado. Antes de nada aclaro que no tengo webcam, las pruebas las hago con la capturadora de televisión, pero para el caso es lo mismo, porque los dos son dispositivos de captura y windows los trata como si fueran iguales.

Bueno, primero creamos una ventana de captura, utilizando un TPanel como padre:

Código Delphi [-]
// Remodele un poco la definicion de la funcion
function CreateCaptureWindow(Name: PChar; Style: Longint; X, Y: Integer;
 Width, Height: integer; Parent: HWND; id: integer): HWND; stdcall;
 external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';


CapWindow:= CreateCaptureWindow('Ventana de captura',WS_CHILD or WS_VISIBLE,
    0,0,Panel1.Width,Panel1.Height,Panel1.Handle,0);

Ahora que tenemos una ventana de captura, nos conectamos con el driver.

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_DRIVER_CONNECT, 0, 0);

Ahora estaríamos conectados, pero no veríamos nada en la ventana de captura, o como mucho una imagen fija. Para tener un visualización podemos indicarle, por ejemplo, que utilice el método overlay (por hardware). Algo así:

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_SET_OVERLAY, 1, 0);

En este momento ya deberíamos de ver la imagen en movimiento en la ventana de captura. Ahora, si no me equivoco, tu querías capturar una imagen fija, pues en un botón, por ejemplo, coloca este código:

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_SAVEDIB, 0, lParam(PChar('c:\1.bmp')));

El código anterior captura una imagen fija y la guarda en la ruta "c:\1.bmp". Creo que esto era todo lo que necesitabas, si necesitas algo mas o si te falla en algún punto comentalo y veremos si podemos averiguar que esta fallando. Por cierto recuerda que cuando termines tienes que desconectar el driver:

Código Delphi [-]
if CapWindow <> 0 then
    SendMessage(CapWindow, WM_CAP_DRIVER_DISCONNECT, 0, 0);

También dejo por aquí algunas de las constantes que se utilizan, para que luego la gente no se me queje

Código Delphi [-]
const
  WM_CAP_START = WM_USER;
  WM_CAP_STOP = WM_CAP_START + 68;
  WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
  WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
  WM_CAP_SAVEDIB = WM_CAP_START + 25;
  WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
  WM_CAP_SEQUENCE = WM_CAP_START + 62;
  WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;
  WM_CAP_SET_PREVIEW = WM_CAP_START + 50;
  WM_CAP_SET_OVERLAY = WM_CAP_START + 51;

PD: Aunque no tiene mucho que ver con el tema, estoy enfadado con los fabricantes de mi tarjeta capturadora. Imaginaros mi sorpresa cuando intento probar el código anterior desde delphi y me salta un mensaje de error diciendo que han detectado que estoy usando un debugger (el propio delphi) y que me va a cerrar la aplicación, así que tuve que ejecutar el programa desde fuera de delphi. Supongo que no seré al único que sorprende que un driver implemente una función antidebugger, es ridículo, ya compre la tarjeta ¿que piensan que voy a piratear?. Increíble ....

[dec]

Hola,

Empezado por Seoane

(...) ya compre la tarjeta ¿que piensan que voy a piratear?

Huy... pues tratándose de ti no sé yo... Je, je, je. Gracias por estos "tips" tan curiosos Seoane.

[lag_0]

ya compre la tarjeta ¿que piensan que voy a piratear?. Increíble .... :mad:

En el tiempo que llevo con tarjetas capturadoras de TV solo me di cuenta que son todas mierda y que las casas que las fabrican unos cabrones.. xD No será pinnacle? xD
Luego testeare el codigo, yo tengo uno parecido por ahí

[lag_0]

Bueno...
Ahora me surgieron a mi las dudas .

En el codigo que yo tenia pasa lo mismo que en este y es que..:
Si no tienes una camara por defecto en windows seleccionada se te abre el panel para escojer una.

A ver si alguien se le ocurre la solución, por que yo en su dia lo intenté y ni patras:
-Evitar que te salga la ventana de windows para seleccionar capturadora
-Listar las capturadoras y obtener el identificador para:
-Seleccionar la capturadora a usar por CODIGO

a ver si algún experto lo consigue

[[seoane]]

Empezado por lag_0

a ver si algún experto lo consigue

Yo no soy un experto, pero lo puedo intentar ...

Empezado por lag_0

Si no tienes una camara por defecto en windows seleccionada se te abre el panel para escojer una.

A mi no me ocurre lo mismo, me abre directamente mi tarjeta de televisión, que es la que tiene el índice cero, y ese mismo índice es le que mando en aquí (marcado en rojo):

Código Delphi [-]
SendMessage(CapWindow, WM_CAP_DRIVER_CONNECT, 0, 0);

Empezado por lag_0

Listar las capturadoras y obtener el identificador para:

Para obtener una lista de las capturadoras instaladas y su index, solo tenemos que hacer un bucle con la función capGetDriverDescription, algo así:

Código Delphi [-]
var
  i: integer;
  Name, Ver: array[0..1024] of Char;
begin
  for i:= 0 to 9 do
    if capGetDriverDescription(i,@Name,Sizeof(Name)-1,@Ver,Sizeof(Ver)-1) then
  // Aqui añadimos a un listbox el nombre y el index de la capturadora    
  Listbox1.Items.AddObject(Name,TObject(i));
end;

Se me olvidaba poner la definición de la función capGetDriverDescription

Código Delphi [-]
function capGetDriverDescription(Index: WORD; Name: PChar; cbName: Integer;
  Ver: PChar; cbVer: Integer): BOOL;  stdcall;
 external 'AVICAP32.DLL' name 'capGetDriverDescriptionA';

[jacanche]

Hola, puedes probar el componente TvideoCapture, esta en torry, trae un componente vcl que puedes poner en tu pantalla, no necesitas que se abran otras adicionales, yo lo uso en un programa que hice para emitir credenciales con foto, y funciona bien, te dejo la liga de torry, espero te sirva.

http://torry.net/vcl/mmedia/video/eavcap.zip

Saludos
Alfredo

[lag_0]

Gracias a los dos una vez más ,

Saludoooooooos!

[[fjcg02]]

Para hacer lo que quieres solo tienes que incluir las Jedi, poner en el formulario un TJvAVICapture de nombre Avicap y añadir la procedure
siguiente. Añade un TImage en el formulario y asignale la imagen que tiene la variable pic. Puedes asignar al Timage directamente la imagen del portapapeles. Es un metodo un poco 'guarro', pero funciona; El resto, es cosa tuya

Espero que te sea de ayuda

Un saludo

Código Delphi [-]
procedure TMainFormClient.Button1Click(Sender: TObject);
var
  pic : TBitmap;
begin
  try
    AviCap.DriverIndex := 0;
    AviCap.Previewing := true;
  except
     on E: Exception do ;
  end;
    pic := TBitmap.Create;
    avicap.copytoclipboard;
    if Clipboard.HasFormat(CF_BITMAP) then
    begin
       pic.Assign(Clipboard);
    end;
// asigna la imagen aqui !!
    pic.FreeImage;
    FreeAndNil(pic);
end;

[Ing_Fajardo]

Empezado por Delphius

Ing_Fajardo, gracias por ayudar. Estaré probando el código. ¿Sería tan amable de indicarme de donde lo obtuvo y en que fecha? ¿Es el mismo sitio que señala como primer paso:?



seoane, probé el código que señala la página pero anda a medias. Abre el dispositivo de video, pero no captura nada. Muestra todo en negro... o es que realmente no logra abrir el dispositivo... o es que copié muy mal.

Saludos,

lo obtuve de www.delphi3000.com/articles/article_1851.asp?sk=

te puedes subscribir a la pagina gratis y bajar varios codigos...gratis todos.

[[Delphius]]

Seoane... se ve que tienes muchas ganas de teclear... y me diste mucha tarea , jaja. Ahora me tengo que poner a ver tódo el código que tu y otros han expuesto. Les comento que sus nombres van a aparecer en la lista de agradecimientos... muchas gracias por ofrecer su ayuda.

Sin ustedes la verdad que mi proyecto estaría estancado. Es vital que esto funcione, la respuesta del sistema dependerá de estas capturas.

Y como se trata de realizar capturas casi masivas... peor aun... bueno. Me dieron tarea... ya empiezo. Si tengo dudas muy posiblemente esté posteando de nuevo

Muchas gracias a todos.
Saludos,

[mangulom]

Hola. Tengo Una Tarjeta flyvideo 3000 Y Mi Proyecto Se Trata De Un Expendedor De Boletos (sistema De Colas). He Puesto La Señal De Tv Mediante El Componente tvideocapture Modificando El Demo Que Viene En La Pagina De torry. El Problema Que Tengo Es Que A Veces Tengo Sonido Y Otras No. Si Alguien Puede Ayudarme Se Lo Agradecería Mucho. Felicidades Seoane Y Delphius De Verdad Que Su Apoyo Es Muy Grande En Los Foros.

Mauricio

[bosterito]

Hola a todos, Seoane, ví el codigo que pusiste sobre la captura de imágenes con cámara web, lo probé, cada unos de los pasos, va todo bien, lo único que no funciona es la parte del movimiento, supongo que es lo referente al overlay. Funciona todo OK, menos lo que te mencioné anteriormente. ¿Me puedes ayudar vos o cualquier forista al respecto? Cualquier ayuda será bienvenida.

[[seoane]]

Puede que tu dispositivo no pueda utilizar el modo overlay.

Prueba entonces a sustituir esto:

Código Delphi [-]
SendMessage(CapWindow, WM_CAP_SET_OVERLAY, 1, 0);

Por eso otro:

Código Delphi [-]
SendMessage(CapWindow, WM_CAP_SET_PREVIEW, 1, 0);
// Los 100 son los milisegundos entre capturas, es decir con 100 serian 10 imagenes por segundo
SendMessage(CapWindow, WM_CAP_SET_PREVIEWRATE, 100, 0);

Y no me olvido del valor de las constantes:

Código Delphi [-]
const
  WM_CAP_SET_PREVIEW = WM_USER + 50;
  WM_CAP_SET_OVERLAY = WM_USER + 51
  WM_CAP_SET_PREVIEWRATE = WM_USER + 52;