delphi mysql blob_Delphi加载图像在sql数据库中保存为blob

这里有很多关于将图像加载到数据库的步骤,但我找不到一个带有更新或插入参数的图像.

您可以简单地为参数指定图形对象.

如果要存储不同的图形类型,则应添加列

保持信息应该存储哪种图形(例如jpeg,bmp,png).

如果要从数据库中检索图片,则能够创建所需的TGraphic类后代.

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;