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,

[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.

[Jackysarquiz]

Empezado por Ing_Fajardo

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

Buenas Tardes, de casualidad pudiste hacer funcionar ese codigo porque he estado intentando y nada y quiero hacer funcionar mi cam de logitech con mi aplicacion delphi