Capturar imagen en una aplicacion Delphi 7.0

[[Caral]]

Hola
En cuanto a tu ultima pregunta.
La primera no la entiendo bien, pero supongo que se puede solucionar con un mensaje.
La segunda es asi:

Código Delphi [-]
 if tsCap321.Connected = false then
   begin
     Showmessage('La camara esta desconectada, llame al administrador');
   end;

Saludos

[[Caral]]

Hola
Por cierto, tienes lleno el buzón de mensajes privados.
Saludos

[BuRtOn]

Hola Caral, si es justo lo que nesecitaba, no se por que no lo pense asi, jeje es que como vi tanto codigo en tu aplicacion, pense que era mas complicadito....

mira la primera pregunta era, como hacer lo siguiente:

1.) Se captura la imagen, y que esa imagen que se capture la muestre puede ser en una imagey que el cliente desida si quiera esa foto la que se almacene, o quiere que le tomen otra donde salga mejor, si vez, es eso, como hago eso con ese componente....eliminar foto tomada, y volver a tomarla de nuevo...

Gracias por tu tiempo prestado...

[BuRtOn]

Saludos , como hago para hacer lo siguiente, Capturo la imagen con el componente TsCamp321, y visualizo la imagen capturada con un Image, en codigo seria asi:

Código Delphi [-]
procedure TfrmClientes.LbSpeedButton1Click(Sender: TObject);
begin

tsCap321.SaveAsBMP:=('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP'); //Aqui capturo la imagen

Prueba.Picture.LoadFromFile('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP'); //Aqui la visualizo en el Image que tengo, lo llamo Prueba.

MessageDlg('la foto a sido tomada correctamente',mtInformation,[mbOK],0); //Mensaje de cuando se captura la imagen.
 
end;

1.) ahora nesecito saber, como programo, un segundo boton que se llame borrar, y me elimine la foto que se tomo, y cuando hablo que la elimine, es que la elimine desde la carpeta donde esta ubicada, por que como se pueden dar cuenta, cuando uno captura la imagen, inmediatamente se alamacena en una carpeta.

2.)Como refresco el image, cuando se borre la imagen...osea capturo imagen, y me muestra la imagen capturada en un image, ahora le doy en el boton borrar, y me elimina la imagen, y ahora voy a tomar una nueva foto, pero nesecito que el image se limpie, osea quede sin nada de imagenes, para que pueda almacenar la nueva imagen tomada...


un ejemplo es cuando tu vas a tomarte una foto, para tus documentos u hojas de vida, que te toman la foto con una camara digital, y se acercan a uno, y le preguntan: Te gusto como quedo la foto, y si a uno le gusta, deja esa, si no, pues la vuelven a tomar, jejeje, eso es lo que nesecito hacer...les agradeceria que me puedieran ayudar....Gracias...

[BuRtOn]

Saludos, jejeje ya encontre la formita, miren como me quedaria el codigo, por si alguien nesecite hacerlo despues:

Código Delphi [-]
procedure TfrmClientes.LbSpeedButton1Click(Sender: TObject);
begin

tsCap321.SaveAsBMP:=('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP');

Prueba.Picture.LoadFromFile('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP');

Prueba.Visible:=True; 

MessageDlg('la foto a sido tomada correctamente',mtInformation,[mbOK],0);
 
end;

Este es el codigo que me quedaria en el boton de borrar:

Código Delphi [-]
procedure TfrmClientes.borrarClick(Sender: TObject);
begin

DeleteFile('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP'); //Elimino la foto tomada en ese momento.

Prueba.Visible:=False; //Lo hago Visible :=False, para que se elimine la imagen que queda grabada en el image, mientras que si le doy de nuevo en capturar, se coloca Visible:=True, pero con la imagen nueva.

end;

Jeje, en fin Gracias a todos, en especial a Caral, que fue la que mas me ayudo y me aguanto en este tema.

[xjre]

Agrego una cosa al tema:

El componente tscap32 no funciona para vista, me imagino, porque la api de windows es diferente (y visto que el componente toma el driver del API).

¿Alguien sabe como solucionar el problema?

Saludos y gracias de antemano