Ver Mensaje Individual
  #12  
Antiguo 15-06-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Reputación: 17
BuRtOn Va por buen camino
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.
Responder Con Cita