delphi 安卓图片保存数据库_在Delphi实现在数据库中存取图像的图文演示无错
本实例演示如何在数据库中存取图像文件。
向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图1所示。
图1 主界面
本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数据库。
图2 设计完成的数据库
为了方便测试程序,Image.db数据库存储在实例程序所在的路径下。
设置TTable组件的TableName属性为Image.db,Active属性为True。
在程序运行初期,首先会判断Image.db数据库中是否存在记录,如果没有记录存在,那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件:
procedure TForm1.FormCreate(Sender: TObject);
var
mem:TMemoryStream;
begin
if Table1.Eof and Table1.Bof then
begin
with Table1 do
begin
Insert;
FieldByName('Name').AsString:='鸟';
mem:=TMemoryStream.Create();
mem.LoadFromFile('鸟.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
Post;
end;
end;
end;
然后按照相同的方式顺序向Image.db数据库中添加“样品.wav”、“叶子.wav”和“荷花”图像文件。
最后通过下面的代码把Image.db数据库中存储的文件名字添加到窗体的TListBox组件中:
with Table1 do
begin
First;
while not Eof do
begin
ListBox1.Items.Add(FieldByName('Name').AsString);
Next;
end;
end;
在程序运行过程中,如果用户在窗体的TListBox组件中选择了图像文件,程序会通过TTable组件的First方法把数据表中的第1条记录作为当前记录,然后通过一个循环来遍历数据库中的记录。如果某条记录中Name字段的内容和用户的选择相同,那么就把该记录中Data字段中的图像信息读取出来,并且把图像显示在窗体上的TImage组件上。代码如下:
procedure TForm1.ListBox1Click(Sender: TObject);
var
mem:TStream;
bmp:TBitmap;
begin
with Table1 do
begin
First;
while not Eof do
begin
if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then
break;
Next;
end;
bmp:=TBitmap.Create;
mem:=CreateBlobStream(FieldByName('Data'),bmRead);
mem.Position:=0;
bmp.LoadFromStream(mem);
self.Image1.Picture.Assign(bmp);
bmp.Free;
mem.Free;
end;
end;
程序代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Table1: TTable;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
mem:TMemoryStream;
begin
if Table1.Eof and Table1.Bof then
begin
with Table1 do
begin
Insert;
FieldByName('Name').AsString:='鸟';
mem:=TMemoryStream.Create();
mem.LoadFromFile('鸟.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
Post;
Insert;
FieldByName('Name').AsString:='样品';
mem:=TMemoryStream.Create();
mem.LoadFromFile('样品.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
Post;
Insert;
FieldByName('Name').AsString:='叶子';
mem:=TMemoryStream.Create();
mem.LoadFromFile('叶子.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
Post;
Insert;
FieldByName('Name').AsString:='荷花';
mem:=TMemoryStream.Create();
mem.LoadFromFile('荷花.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
Post;
mem.Free;
end;
end;
with Table1 do
begin
First;
while not Eof do
begin
ListBox1.Items.Add(FieldByName('Name').AsString);
Next;
end;
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
mem:TStream;
bmp:TBitmap;
begin
with Table1 do
begin
First;
while not Eof do
begin
if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then
break;
Next;
end;
bmp:=TBitmap.Create;
mem:=CreateBlobStream(FieldByName('Data'),bmRead);
mem.Position:=0;
bmp.LoadFromStream(mem);
self.Image1.Picture.Assign(bmp);
bmp.Free;
mem.Free;
end;
end;
end.
保存文件,然后按F9键运行程序,程序运行的初始画面如图3所示。
在TListBox组件中选中一项后,就会显示相对应的图像文件,如图4所示。
图3 程序运行的初始画面
delphi 安卓图片保存数据库_在Delphi实现在数据库中存取图像的图文演示无错相关推荐
- delphi 安卓图片保存数据库_delphi 把图片存入数据库
procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程 var Stream:TMemoryStream; begin try Stream ...
- delphi 安卓图片保存数据库_delphi数据库存储图片
delphi数据库存储图片 发布时间:2020-06-24 19:16:33 来源:51CTO 阅读:411 作者:鹅倌 栏目:数据库 --存 str_sql := 'update photo set ...
- delphi mysql 图片_Delphi实现在数据库中存取图像
本实例演示如何在数据库中存取图像文件. 向窗体上添加一个TListBox组件.一个TImage组件和一个TTable组件,设计完成的主界面. 本系统中需要设计一个新的基于Paradox 7的数据库Im ...
- mysql 新增从数据库_从零开始学 MySQL - 创建数据库并插入数据
目录 1.实验内容 2.实验知识点 3.开发准备 4.实验总结 1.实验内容 本次课程将介绍 MySQL 新建数据库,新建表,插入数据以及基本数据类型的相关知识.本节实验将创建一个名为 mysql_s ...
- sqlserver跟踪数据库_说说被遗忘的数据库开发职业 - 数据库测试
数据库测试,似乎是被人遗忘的数据库职业,但依然是不错的选择.底下是我在某站找的招聘启事,就连蚂蚁金服都在积极寻找数据库测试人: 要说我经历的项目,大大小小也有几十个,从 C/S, B/S, 再到 B/ ...
- 28_数据库_第28天(数据库、表及表数据、SQL语句)
今日内容介绍 1.MySQL数据库 2.SQL语句 01数据库概念 A: 什么是数据库 数据库就是存储数据的仓库,其本质是一个文件系统,数据按照特定的格式将数据存储起来,用户可以对数据库中的数据进行增 ...
- 28_数据库_第28天(数据库、表及表数据、SQL语句)_讲义
今日内容介绍 1.MySQL数据库 2.SQL语句 01 数据库概念 A: 什么是数据库 数据库就是存储数据的仓库,其本质是一个文件系统,数据按照特定的格式将数据存储起来,用户可以对数据库中的数据进行 ...
- 怎么用python写数据库_如何使用python对数据库(mysql)进行操作
一.数据库基本操作 1. 想允许在数据库写中文,可在创建数据库时用下面命令create database zcl charset utf8; 2. 查看students表结构desc students ...
- 如何移植mysql数据库_如何把本地MySql数据库移植到远程服务器上
用dedecms做了一个女性网站,是仿爱丽女人网的.为了在本地测试,就要添加分类栏目,为了看首页和列表页面的效果,还得在网上采集大量的各个分类的内容.这样下来几十个栏目每栏目几十条信息,信息一下就是几 ...
最新文章
- Android架构思考(模块化、多进程)
- main 函数内的变量是全局变量,还是局部变量?
- tkinter笔记:通过点击button 控制标签的显示 (莫烦python笔记)
- python当输入负数时结束_如何在lis中输入负数
- 使用 “vue-cropper“进行图片裁剪
- squid反向代理网站配置示例
- 手把手教你用Python读取Excel
- FireMonkey 源码学习(4)
- notnull注解_Hibernate Validator 第19篇:自定义约束-约束注解
- 巴菲特对合伙人提过3个要求
- 2017CodeM复赛
- icmp源代码 tcp/ip协议栈 c语言实现,ICMP处理《LwIP协议栈源码详解——TCP/IP协议的实现》...
- 测试了MySQL实时监控工具Nero Profile SQL
- ubuntu禁用guest账户
- 办理芯片银行卡时记得把“闪付”功能取消
- emp和emn是什么文件,emnemp是什么文件
- Linux 常用小工具
- JAVA--多对多关系
- VIVADO创建头文件.vh文件以及调用方法
- 毫米波雷达ADC数据采集