如何在数据表中存取图片 - 回复 三足乌 的问题
问题来源: 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
如何在数据表中存取图片 - 回复 三足乌 的问题相关推荐
- oracle 存取图片,用ASP.NET 2.0在Oracle中存取图片(文件)的操作
用ASP.NET 2.0在Oracle中存取图片(文件)的操作 2010-10-21文字大小:大中小 有时由于某种须要(如安全性)须将图片或文件存放在数据库中,当然通常情况下特别是文件比较大的时刻许多 ...
- 在access中一列称为_11.Access2010数据表中的一列,称为()
[单选题]9.Excel2010中,工作表是一个() [填空题]110.在Word2010中,同时按下Cthl和V按键的作用是(). [单选题]20.Word2010编辑文档时,正在输入的文字添加在( ...
- 在word文档表中插入图片不变形
在word文档表中插入图片不变形 目录 在word文档表中插入图片不变形 1.点击左上角[全选图标 ]选中表格,鼠标右键点击[表格属性] 2.点击[选项]点击 取消勾选[自动重调尺寸以适应内容],最后 ...
- layui数据表格中展示图片及图片预览
在项目中遇到数据表格中放入图片同时可以点击放大预览.预览方式我才用的是layer方式.代码如下: layui.use('table', function(){var table = layui.tab ...
- 将数据追加到html 表格中,将数据添加到数据表中
将数据添加到数据表中 03/30/2017 本文内容 在创建 DataTable 并使用列和约束定义其结构之后,您可以将新的数据行添加到表中. 要添加新行,可将一个新变量声明为 DataRow 类型. ...
- webpack加载器打包样式表中的图片和字体
前言 index.html代码 <!DOCTYPE html> <html lang="en"> <head><meta charset= ...
- 如何把纯真ip数据库导入到MySQL数据表中
一.下载最新版的QQWry.Dat 二.下载IPLook 使用IPLook把QQWry.Dat文件解压到IPData.txt文件 打开IPData.txt文件格式是这样的 0. ...
- 配置 postCSS 自动添加 css 的兼容前缀||打包样式表中的图片和字体文件||打包处理 js 文件中的高级语法
配置 postCSS 自动添加 css 的兼容前缀 ① 运行 npm i postcss-loader autoprefixer -D 命令 ② 在项目根目录中创建 postcss 的配置文件 pos ...
- pandas 判断数据表中的缺失值
pandas用any可以判断数据表中是否有缺失值. 使用 df_new.isnull().any() df_new.isnull().any() 这样就可以显示是否有那个变量含有确实值了.
最新文章
- 2019 AI Index 报告出炉:AI 领域取得的进展很多,但结果忧喜参半
- linux无显卡运行程序,Ubuntu中在应用程序菜单添加未显示的应用程序启动器
- XCodeBuild 使用
- 2020年10月程序员工资统计,平均14459元
- 最小公倍数 [最小公约数的拓展]
- Google 纪念万维网 30 年:没有 HTTP 协议就没有互联网
- Mac基础设置—应用程序
- 杭电1181--变形课(Dfs)
- 中国顶级***--小榕
- 生成VOC2012数据集
- 移动端h5不支持font-family里面的楷体、微软雅黑等字体
- 自由 解读STM32 F4xx 学习芯片 来点中文参考手册(free影响你收米了?不要lian)
- 各种 Python 库/模块/工具
- 计算机项目管理缩写,项目管理-常用缩写word版
- 计算机应用基础考试试题及答案 在word中,用户建立的文件默认,自考计算机应用基础试题及参考答案...
- 【文本工具】使用文本排版大师(TxtEdit/TEditer)在记事本文件中绘制表格。
- outlook移动ost邮箱数据到D盘
- 深入理解原生js拖放(draggable)
- c++新手入门(不定时更新,已肝18500字)
- 博一就完成了SCI论文发表要求是一种怎样的体验?
热门文章
- [react] 使用ES6的class定义的组件不支持mixins了,那用什么可以替代呢?
- [react] 为什么React并不推荐我们优先考虑使用Context?
- javascript学习系列(5):数组中的reduce方法
- 前端学习(3132):react-hello-react之react中事件处理
- 前端学习(3048):vue+element今日头条管理-分页布局
- [html] 移动端如何禁止用户手动缩放页面?
- [html] 打印页面时怎样自定义打印页眉页脚或者去掉眉页脚?
- [css] 写出div在不固定高度的情况下水平垂直居中的方法?
- 前端学习(1862)vue之电商管理系统电商系统之绘制默认头像
- 前端学习(1341):mongoose验证规则延伸