delphi mysql blob,Delphi将图像另存为sql数据库中的blob

I'm trying to load a Image control from a image blob saved previously in a sql database.I have testd so many ways and i can't make it work. The image blob is saved as:

qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';

qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);

qry.Parameters.ParamByName('idVal').Value := 1;

any suggestion?

解决方案

There a a lot of treads here about loading images to as database, but I did not find one with update or insert parameters.

You might simply assign a graphic object to your parameter.

If you want to store different graphic types you should add a column

keeping the Information which kind of graphic should be stored (e.g. jpeg,bmp,png).

to be able to create the needed TGraphic class descendant if you want to retrieve the picture from the database.

uses jpeg, pngimage;

type

TitTYPES=(itJPG,itPNG,itBMP);

procedure TDEMO.Button1Click(Sender: TObject);

var

jp:TJpegimage;

g:TGraphic;

begin

jp:=TJpegimage.Create;

try

ads.Close;

jp.LoadFromFile('C:\Bilder1\PIC.jpg');

ads.SQL.Text := 'Insert into IMGBlob (ID,Blob,typ) Values (:ID,:BLOB,:typ)';

ads.Parameters[0].Value := 1;

ads.Parameters[1].Assign(jp);

ads.Parameters[2].Value := itJPG;

ads.ExecSQL;

ads.SQL.Text := 'Select * from IMGBlob where ID=:ID';

ads.Parameters[0].Value := 1;

ads.Open;

try

case TitTYPES(ads.FieldByName('typ').AsInteger) of

itJPG: g:=TJpegimage.Create;

itPNG: g:=TPNGImage.Create;

itBMP: g:=TBitmap.Create;

end;

g.Assign(ads.FieldByName('Blob'));

Image1.Picture.Assign(g);

finally

g.Free;

end;

finally

jp.Free;

end;

end;