Qué tiene de malo este código para cargar una imagen a access con ado ?

[delphi.com.ar]

Cuando un programa te produce un error y haces una pregunta en el foro, es importante que nos pongas el error para poder ayudarte. Por lo que veo, al menos en Delphi 7 que es lo que tengo instalado, LoadPicture no posee un parámetro para pasarle el archivo, sinó que carga el archivo del campo que tiene asociado. Entonces la imagen se la tendrías que cargar al campo y no al componente.

Saludos!

[Master23]

Empezado por delphi.com.ar

Cuando un programa te produce un error y haces una pregunta en el foro, es importante que nos pongas el error para poder ayudarte. Por lo que veo, al menos en Delphi 7 que es lo que tengo instalado, LoadPicture no posee un parámetro para pasarle el archivo, sinó que carga el archivo del campo que tiene asociado. Entonces la imagen se la tendrías que cargar al campo y no al componente.

Saludos!

Exacto mira tengo una base en access y un campo tipo ole para la imagen
quiero el código para poder guardar imágenes en el campo.

[delphi.com.ar]

Empezado por Master23

Exacto mira tengo una base en access y un campo tipo ole para la imagen
quiero el código para poder guardar imágenes en el campo.

Te dí una pista, la idea es que lo investigues, no es complejo, sin importar que base de datos utilices, esto tendría que funcionar:

Código Delphi [-]
adotable1.Insert;
TBlobField(adotable1.FieldByName('IMAGEN')).LoadFromFile(opendialog1.FileName);
adotable1.Post;

Otra opción podría ser, muy similar a lo que has escrito:

Código Delphi [-]
adotable1.Insert;
TBlobField(dbimage1.Field).LoadFromFile(opendialog1.FileName);
adotable1.Post;

O bien:

Código Delphi [-]
adotable1.Insert;
dbimage1.Picture.LoadFromFile(opendialog1.FileName);
adotable1.Post;

Saludos!

[Master23]

Empezado por delphi.com.ar

Te dí una pista, la idea es que lo investigues, no es complejo, sin importar que base de datos utilices, esto tendría que funcionar:

Código Delphi [-]
adotable1.Insert;
TBlobField(adotable1.FieldByName('IMAGEN')).LoadFromFile(opendialog1.FileName);
adotable1.Post;

Otra opción podría ser, muy similar a lo que has escrito:

Código Delphi [-]
adotable1.Insert;
TBlobField(dbimage1.Field).LoadFromFile(opendialog1.FileName);
adotable1.Post;

O bien:

Código Delphi [-]
adotable1.Insert;
dbimage1.Picture.LoadFromFile(opendialog1.FileName);
adotable1.Post;

Saludos!

Opté por la ultima opción funciona correctamente pero quiero preguntarte algo
cómo puedo hacer que reconozca formatos jpg ya que solo acepta bmp y bueno cuando la imagen es muy grande no se adapta al edit que me sugieres para eso gracias de antemano.

[radenf]

Creo que tu error puede estar en que estás usando un OpenDialog y deberías utilizar un OpenPictureDialog.

Salu2

[delphi.com.ar]

Empezado por radenf

Creo que tu error puede estar en que estás usando un OpenDialog y deberías utilizar un OpenPictureDialog.

Lo dudo, la que el bien hace referencia el nombre del archivo. El TOpenPictureDialog no devuelve un TGraphic ni nada similar, simplemente es un TOpenDialog que fija automáticamente los filtros según los TGraphic registrados y muestra un preview del mismo. Algo mas bonito por cierto.

Saludos!