如何在数据表中存取图片 - 回复 三足乌 的问题
生活随笔
收集整理的這篇文章主要介紹了
如何在数据表中存取图片 - 回复 三足乌 的问题
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
問題來源: http://www.cnblogs.com/del/archive/2009/05/28/1491186.html#1801853
準備工作:
1、在空白窗體上添加: ClientDataSet1、Button1
2、激活窗體的 OnCreate 事件、激活 Button1 的 OnClick 事件
實現代碼:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, DBClient;typeTForm1 = class(TForm)ClientDataSet1: TClientDataSet;Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}constPicPath1 = 'c:\temp\test1.bmp'; {保證測試圖片的存在}PicPath2 = 'c:\temp\test2.bmp';{建立數據表并載入數據} procedure TForm1.FormCreate(Sender: TObject); begin{建表}with ClientDataSet1 do beginFieldDefs.Add('Name', ftWideString, 8);FieldDefs.Add('Age', ftInteger);FieldDefs.Add('Picture', ftGraphic);CreateDataSet;end;{添加第一條數據}ClientDataSet1.Append;ClientDataSet1['Name'] := '張三';ClientDataSet1['Age'] := 66;TGraphicField(ClientDataSet1.FieldByName('Picture')).LoadFromFile(PicPath1);{添加第二條數據}ClientDataSet1.Append;ClientDataSet1['Name'] := '李四';ClientDataSet1['Age'] := 16;TGraphicField(ClientDataSet1.FieldByName('Picture')).LoadFromFile(PicPath2); end;{讀出指定記錄中的圖片數據} procedure TForm1.Button1Click(Sender: TObject); varBlobStream: TClientBlobStream;GraphicField: TGraphicField;Bitmap: TBitmap; begin{查找姓名是李四的記錄}if ClientDataSet1.Locate('Name', '李四', []) then //可以把其中的李四換成張三試試begin{讀取其 Picture 字段}GraphicField := ClientDataSet1.FieldByName('Picture') as TGraphicField;{讀入到 Blob 流}BlobStream := TClientBlobStream.Create(GraphicField, bmRead);{給一個 TBitmap 流是為了看看}Bitmap := TBitmap.Create;Bitmap.LoadFromStream(BlobStream);Canvas.Draw(10, 10, Bitmap);Bitmap.Free;//BlobStream.Free;end; end;end.
轉載于:https://www.cnblogs.com/del/archive/2010/04/14/1712157.html
總結
以上是生活随笔為你收集整理的如何在数据表中存取图片 - 回复 三足乌 的问题的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 城市统计年鉴数据查询
- 下一篇: 【自己给自己题目做】之一:椭圆可点击区域