Imágenes en Interbase

[PedroAlfonso]

Empezado por mramos65

checa este link, te puede ser de gran ayuda para lo que necesitas.

http://www.infoback.com.ar/buhardill...imagenesib.htm

suerte y saludos.

Siguiendo con el tema
en el ejemplo viene el siguiente evento
¿ Alguien Sabe como implementar lo mismo pero con un IBQuery (update) con parametros en vez de IBDataSet?
procedure TForm1.Button1Click(Sender: TObject);var m, f: TStream; s: string;begin if OpenPictureDialog1.Execute then begin IBDataSet1.Edit; //tendria que dar error sin esto m:= IBDataSet1.CreateBlobStream(IBDataSet1FOTO, bmWrite); f:= TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead); m.CopyFrom(f, f.Size); s:= AnsiUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)); //Siempre en mayusculas if s='.JPEG' then s:= '.JPG'; //un caso especial IBDataSet1FORMATO_FOTO.AsString:= Copy(s,2,3); //elimino el punto IBDataSet1.Post; f.Free; m.Free; end