delphi加载图像存储到数据库中

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;

推荐分享