Imágenes en Interbase

[[Lepe]]

Por Dios.... que forma de currarse el código, la proxima vez usa
[ delphi ]
tu codigo aqui
[ /delphi ]

quitando los espacios dentro de los corchetes, te será más libiano.

Código Delphi [-]
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

Saludos