Base de Dato + Imagen
 

Hola, no se si este es un problema de SQL, pero aqui va.

He buscado en los distintos foros, en donde encontrado muhcas ideas con respecto a esto, pero nada me ha funcionado.

Necesito guardar fotos en una base de dato, y luego poder mostrarlas en un TImagen.

La idea es guardarla con un TIBSql, y poder mostrarla con una consulta TIBquery.

Genere la tabla empresa, con los campos ID (integer) y Foto (Blob)

Al guardar la foto esta se deba escojer con un Opendialog, y al realizar la consulta según la empresa que sea me muestre el logo de la empresa consultada.

Este codigo utilizo para guardar una imagen, pero no se como mostrarla.

Código Delphi [-]
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
if (OpenDialog1.Execute) then begin
  MS.LoadFromFile(OpenDialog1.FileName); //Nombre de la foto...);
  with ibsql1 do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO empresa (id, foto) VALUES(:id,:foto)');
    ParamByName('FOTO').LoadFromStream(MS);
    parambyname('id').asinteger:=1;
    execquery;
  end;
     ibtransaction1.commit;
     MS.Free;
  end;

Saludos.

Gracias

Quizás este enlace te pueda ayudar

Un saludo

No se si te valdrá pero yo utilizo esta función para cargar desde una tabla la foto del empleado y me funciona.

procedure TFicha.dsEmpleadosDataChange(Sender: TObject; Field: TField);
var
BS:TADOBlobStream;
Graphic:TGraphic;
begin
if EmpleadosFoto.IsNull then
Foto.Picture.Graphic := nil
else begin
BS := TADOBlobStream.Create( EmpleadosFoto, bmRead );
try
Graphic := TJPegImage.Create;
try
Graphic.LoadFromStream( BS );
Foto.Picture.Graphic := Graphic;
finally
Graphic.Free;
end;
finally
BS.Free;
end;
end;
end;

Un saludo.