Save Picture Dialog+db

[*Caro*]

Hola mantraxer21, supongo que lo que no sabes, es manejar el SavePictureDialog:

Código Delphi [-]
 if SavePictureDialog.Execute then 
   //ruta es lo que guardarías en tu campo varchar de imagen
  ruta := SavePictureDialog.FileName;

Saluditos

[*Caro*]

Y para que tu SavePictureDialog se inicialice con "c:\Picture".

Código Delphi [-]
 SavePictureDialog.InitialDir := 'c:\Picture';

Saluditos

[mantraxer21]

Empezado por Caro

Y para que tu SavePictureDialog se inicialice con "c:\Picture".

Código Delphi [-] SavePictureDialog.InitialDir := 'c:\Picture';


Saluditos

Realize este codigo en el Evento OnShow del SavePictureDialog, y el código anterior también para poder buscar la imagen... Esto último lo hago directamente en el OnClick del Image.

Algún ejemplo básico más funcional ?


Muchas gracias por su ayuda !

[*Caro*]

Hola de nuevo mantraxer21

Empezado por mantraxer21

Realize este codigo en el Evento OnShow del SavePictureDialog

puedes colocarlo en el evento onShow de tu formulario.

Empezado por mantraxer21

y el código anterior también para poder buscar la imagen... Esto último lo hago directamente en el OnClick del Image.

Algún ejemplo básico más funcional ?

no te entiendo muy bien, ¿quieres mostrar la imagen seleccionada en un TImage?

Código Delphi [-]
 if OpenPictureDialog.Execute then
 begin
  ruta := OpenPictureDialog.FileName;
  Image1.Picture.LoadFromFile(ruta);
 end;

Saluditos

[mantraxer21]

Hola Caro:

La verdad quiero probar el tema de SavePictureDialog.

Imaginate que tengo una tabla:

productos:
IdProd (Int)
Producto (vchar 150)
CodProd (VCahar 15)
RutaFoto(Vchar 150)

La idea es guardar Datos en esa tabla, pero para el tema de la Imagen referencial de la Imagen, almacenaré la Ruta en: RutaFoto , cosa de no pesar tanto en la Bd, pero tener almacenado todo en una carpeta "Picture" por ejemplo.

Trabajo con DataSet + DataSource o TibQuery+ UpdateSQl + DataSource ...

Cualquier metodo, puedo guardar registros.

Gracias