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

var

Stream:TMemoryStream;

begin

try

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

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

adoquery1.Close;

adoquery1.SQL.Clear;

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

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

adoquery1.ExecSQL;

finally

Stream.Free;???? // 釋放內存流

end;

end;

procedure TForm1.Button2Click(Sender: TObject); //讀取圖片過程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);??? // 顯示的轉換為BlobField并保存到內存流??? Stream.Position :=0;??? jpg.LoadFromStream(Stream);??? // 加載圖片??? image2.Picture.Assign(Jpg);? end? else ? begin??? image2.Picture :=nil;? end;end;

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。