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;
end;
 

相关阅读 >>

Delphi 上次访问该文件的时间

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi与sql server存储过程编程详解

Delphi 将base64字符串转化为jpeg图片

Delphi 2009 中 string 与 char 的改变

Delphi xe andriod 文件后缀对应mime类型

Delphi firemonkey app 如何获得当前系统语言设置

Delphi获取网卡mac地址多个方法

Delphi idhttp的用法

Delphi xe7的android应用取得wi-fi的信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi加载图像存储到数据库中