Grabar Jpg en Base....

[SnaKe]

Hola,

Supongo que en tu base de datos tienes un campo de tipo Blob (o Graphic si fuese paradox) para almacenar la imagen JPG. Bien, pues el código que uso yo es el siguiente:

if (OD.Execute) then begin
vHacerPost := False;
if (Tabla.State = dsBrowse) then begin
vHacerPost := True;
Tabla.Edit;
end;
TablaFOTO.LoadFromFile (OD.Filename);
if (vHacerPost) then
Tabla.Post;
end;

Tabla es un control TTable o TIBTable o TADOTable o el sistema que estés usando. TablaFOTO es el campo persistente de tipo Blob en el que quieres almacenar la imagen JPG, vHacerPost es una variable que dice si la tabla al principio estaba en modo Browse y OD es un OpenDialog o un OpenPictureDialog.

Este código lo suyo es enlazarlo al botón "Añadir foto" de tu formulario.

En resumen, en lugar de cargar la imagen sobre el control DBJPEGImage se carga sobre el campo directamente, si está debidamente enlazado al campo de la tabla adecuada se debería ver automáticamente.

Un saludo.