procedure TForm1.Button1Click(Sender: TObject); // 插入圖片過(guò)程

var

Stream:TMemoryStream;

begin

try

Stream := TMemoryStream.Create; //? 創(chuàng)建內(nèi)存流

Image1.Picture.Graphic.SaveToStream(Stream);?? // 將圖片保存到內(nèi)存流中

adoquery1.Close;

adoquery1.SQL.Clear;

adoQuery1.SQL.Add('Insert into tbltemp (Image) values (:photo)');??? // 進(jìn)行插入操作

adoQuery1.Parameters.ParamByName('photo').LoadFromStream(Stream,ftBlob); // 讀取保存的內(nèi)存圖

adoquery1.ExecSQL;

finally

Stream.Free;???? // 釋放內(nèi)存流

end;

end;

procedure TForm1.Button2Click(Sender: TObject); //讀取圖片過(guò)程var? Stream:TMemoryStream;? Jpg:TjpegImage;begin? ADOQuery1.Close;? ADOQuery1.SQL.Text:='SELECT * FROM tbltemp';?? // 查詢圖片? ADOQuery1.Open;? if not ADOQuery1.FieldByName('Image').IsNull then ? begin ??? Stream:=TMemoryStream.Create ;??? Jpg:=TjpegImage.Create ;??? TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(Stream);??? // 顯示的轉(zhuǎn)換為BlobField并保存到內(nèi)存流??? Stream.Position :=0;??? jpg.LoadFromStream(Stream);??? // 加載圖片??? image2.Picture.Assign(Jpg);? end? else ? begin??? image2.Picture :=nil;? end;end;

總結(jié)

以上是生活随笔為你收集整理的delphi 安卓图片保存数据库_delphi 把图片存入数据库的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。