本文整理自网络,侵删。
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;
相关阅读 >>
Delphi10.3通过json.serializers单元对大量数据序列化
idftp tencoding and iidtextencoding
更多相关阅读请进入《Delphi》频道 >>