delphi实现保存和读取图片的方法
发布时间:2020-12-15 04:24:11 所属栏目:大数据 来源:网络整理
导读:本篇章节讲解delphi实现保存和读取图片的方法,是非常实用的技巧。供大家参考研究。具体实现方法如下: 首先引用jpeg 1.显示图片: if OpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Tex
本篇章节讲解delphi实现保存和读取图片的方法,是非常实用的技巧。分享给大家供大家参考。具体实现方法如下: 首先引用jpeg 1.显示图片: if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName; end; 2.保存图片: var Stream:TMemoryStream; Stream := TMemoryStream.Create; // 创建内存流 // 将图片保存到内存流中 img1.Picture.Graphic.SaveToStream(Stream); ParamByName('picture').LoadFromStream(Stream,ftBlob); ParamByName('IsSavePicture').Value:='1'; Stream.Free; //用完了马上Free掉 3.读取图片: var Stream:TMemoryStream; Jpg:TjpegImage; if fieldbyname('IsSavePicture').Value='1' then begin Stream:=TMemoryStream.Create ; Jpg:=TjpegImage.Create ; TBlobField(FieldByName('picture')).SaveToStream(Stream); // 显示的转换为BlobField并保存到内存流 Stream.Position :=0; jpg.LoadFromStream(Stream); // 加载图片 img1.Picture.Assign(Jpg); Stream.Free; Jpg.Free; end else begin img1.Picture :=nil; 相信本文所述对大家的Delphi程序设计有一定的借鉴价值。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |