delphi完成保管和讀取圖片的辦法。本站提示廣大學習愛好者:(delphi完成保管和讀取圖片的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是delphi完成保管和讀取圖片的辦法正文
本文實例講述了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順序設計有一定的自創價值。