Cargar muchas imagenes en un Form!

[marcoszorrilla]

Yo concretamente, hago lo siguiente, almaceno las fotos en la BD y entonces solamente tengo que mostrarla en un control de base de datos para imágenes, pongamos un DbImage, no hay que hacer nada especial pues por cada persona existe una foto en el mismo registro.

almaceno las fotos en una carpeta, mas propio para productos que para personas, en el registro tengo un campo que indica el nombre de la foto en el disco y la ubicación, simplemente la cargo:

Código Delphi [-]
procedure TfrPVP.pg1Change(Sender: TObject);
begin
 if (pg1.ActivePage = TbFoto) and (DmPrix.IBDtsPVPFOTOPRODUCTO.AsString <>'' )then
 begin
  try
  fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\'+DmPrix.IBDtsPVPFOTOPRODUCTO.AsStrin  g+'.jpg');
  except
  ShowMessage('Atención:La imagen no existe o no pudo cargarse.');
  end;
 end
 else
 fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\Nohay.jpg');
end;

Nohay, es una imagen que yo mismo he construido con una x en tamaño grande y color rojo.

Un Saludo.

[PauloMeno]

Empezado por marcoszorrilla

Yo concretamente, hago lo siguiente, almaceno las fotos en la BD y entonces solamente tengo que mostrarla en un control de base de datos para imágenes, pongamos un DbImage, no hay que hacer nada especial pues por cada persona existe una foto en el mismo registro.

almaceno las fotos en una carpeta, mas propio para productos que para personas, en el registro tengo un campo que indica el nombre de la foto en el disco y la ubicación, simplemente la cargo:

Código Delphi [-]
procedure TfrPVP.pg1Change(Sender: TObject);
begin
 if (pg1.ActivePage = TbFoto) and (DmPrix.IBDtsPVPFOTOPRODUCTO.AsString <>'' )then
 begin
  try
  fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\'+DmPrix.IBDtsPVPFOTOPRODUCTO.AsStrin  g+'.jpg');
  except
  ShowMessage('Atención:La imagen no existe o no pudo cargarse.');
  end;
 end
 else
 fotoproducto.Picture.LoadFromFile('\\servidor\xx\datosfb\fotos\Nohay.jpg');
end;

Nohay, es una imagen que yo mismo he construido con una x en tamaño grande y color rojo.

Un Saludo.

Muchas gracias por tu aporte.. Lo voy a analizar bien ya que mucho no entendi.. Soy muy nuevo en el uso y manejo de Base de Datos.. Muchas gracias!

[ecfisa]

Hola PauloMeno.

Otra forma, es guardar la imágen directamente en cada registro en lugar de tener las imágenes en archivos aparte.

Te pongo un enlace que recuerdo trata sobre este otro modo de hacerlo, que no es ni mejor ni peor que el anterior. [guardar imagen en campo blob]

Con seguridad el tema ha sido tratado en más ocasiones, usa la busqueda de los foros por: blob, campo blob, imagen blob, ...

Saludos.

[bulc]

Empezado por ecfisa

Hola PauloMeno.

Otra forma, es guardar la imágen directamente en cada registro en lugar de tener las imágenes en archivos aparte.

Te pongo un enlace que recuerdo trata sobre este otro modo de hacerlo, que no es ni mejor ni peor que el anterior. [guardar imagen en campo blob]

Con seguridad el tema ha sido tratado en más ocasiones, usa la busqueda de los foros por: blob, campo blob, imagen blob, ...

Saludos.

Puedes guardar las imágenes en un TImageList. Las puedes cargar fácilmente. Pero en este caso lo mejor es una base de datos como dicen los compañeros. Bulc.