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); 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