HELP: Saving a .JPG to Database using Interbase. What I'm doing wrong?

[Guest_imported]

I'm trying to save an photo.jpg image to a database, but
something is wrong. Compiler say that dataset is read-only.
HELP! HELP!
Here some code:

var BS: TBlobStream;
Imagem: TJPegImage;
begin
ibquery1.edit;
BS := TBlobStream.Create(ibquery1.FieldByName('IMAGEX') AS TBlobField, BMWRITE);
Imagem:=TJPegImage.Create;
Imagem.LoadFromFile('photo.jpg');
Imagem.SaveToStream(BS);
dbimage1.Picture.Assign(Imagem);
BS.Free;
Imagem.Free;
ibquery1.Post;
end;

 

[jwenting]

TIBQuery components are indeed readonly.
You need to use an TIBSQL or TIBUpdateSQL component (the latter you can connect to the TIBQuery which may be all you need to do if you get the SQL in it correct).

My problem is the reverse. I can write a JPG easily but can't display it again afterwards

 

[jwenting]

OK, seems I cheered too soon. Got no error but nothing is being written...

Must delve deeper into this. Had some code that worked in D5 but for some reason doesn't seem to work in D7 (or I did something wrong adapting it).

 

[jwenting]

http://www.elists.org/pipermail/delphi-db/2002-June/005842.html

is almost exactly what I used. Will have to delve deeper into it to find out why it doesn't work for me in my current app...