我的学习生涯(Delphi篇) - 21
我们平常要和图片打交道,那么我们如何把图片存在数据库中呢?
-------------------------------------------------------------------------------------------------美丽分割线---------------------------
年代:2007
文件:My0919.7z
程序运行效果如下图:
单元文件:
Unit1.pas
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ExtDlgs, LoadSaveImg, DBCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;ADOConnection1: TADOConnection;ADODataSet1: TADODataSet;OpenPictureDialog1: TOpenPictureDialog;Button3: TButton;ADODataSet1car_number: TStringField;ADODataSet1pic1: TBlobField;DataSource1: TDataSource;DBNavigator1: TDBNavigator;Image1: TImage;DBMemo1: TDBMemo;procedure Button1Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }TS: TMemoryStream;LSI: TLSImg;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varFName, FType: string;
beginOpenPictureDialog1.Filter := GraphicFilter(TGraphic);if OpenPictureDialog1.Execute thenbeginFName := OpenPictureDialog1.Files.Strings[0];FType := Copy(FName, LastDelimiter(' .', FName) + 1, Length(Fname) - LastDelimiter(' .', Fname));LSI := TLSImg.Create;if LSI.GetImgType(FType) <> 0 thenbeginTS := TMemoryStream.Create;LSI.Picture.Graphic.LoadFromFile(FName);LSI.SaveToStream(TS);with ADODataSet1 dobegintryAppend;(Fields[1] as TBlobField).LoadFromStream(TS);Post;exceptraiseend;end;TS.Free;end;LSI.Free;end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin//ADOConnection1.Close;ADOConnection1.Open;Application.MessageBox('connection success!','hint',0);//ADODataSet1.Close;ADODataSet1.CommandText:='select car_number,pic1 from totalTable';ADODataSet1.Open;Application.MessageBox('query success!','hint',0);
end;procedure TForm1.Button2Click(Sender: TObject);
beginwith ADODataSet1 dobeginif not Eof thenbeginLSI := TLSImg.Create;TS := TMemoryStream.Create;(Fields[1] as TBlobField).SaveToStream(TS);LSI.LoadFromStream(TS);Image1.Picture := LSI.Picture;TS.Free;LSI.Free;end;end;
end;end.
转载于:https://www.cnblogs.com/snake-hand/archive/2013/06/10/3131116.html
我的学习生涯(Delphi篇) - 21相关推荐
- [网络安全学习篇21]:防火墙(千峰网络安全视频笔记 21 day)
引言:我的系列博客[网络安全学习篇]上线了,小编也是初次创作博客,经验不足:对千峰网络信息安全开源的视频公开课程的学习整理的笔记整理的也比较粗糙,其实看到目录有300多集的时候,讲道理,有点怂了,所以 ...
- c语言学习自我评价,学习自我评价4篇
学习自我评价4篇 发布时间:2019-04-08 在这次研究性学习中,我们小组在老师的指导下,通过全体成员的协作分工.研究探讨,集全体之智慧,个人之所学,充分将课本中的理论知识与生活实践相结合,用理论 ...
- 054_《奇思异想编程序Delphi篇》
<奇思异想编程序Delphi篇> Delphi 教程 系列书籍 (054) <奇思异想编程序Delphi篇> 网友(邦)整理 EMail: shuaihj@163.com 下载 ...
- redis 3.0 cluster 集群 学习之路篇 [3]
周氏一族,整理技术文档,给下一代留点教程...... redis 3.0 cluster 安装篇,请看 http://zhoushouby.blog.51cto.com/9150272/1560400 ...
- ASP.NET MVC学习之路由篇(2)
ASP.NET MVC学习之路由篇(2) 原文:ASP.NET MVC学习之路由篇(2) 继ASP.NET MVC学习之路由篇(1)后继续学习. 7.解决与物理路径的冲突 当发送一个请求至ASP.NE ...
- [mmu/cache]-ARM MMU的学习笔记-一篇就够了
★★★ 个人博客导读首页-点击此处 ★★★ . 说明: 在默认情况下,本文讲述的都是ARMV8-aarch64架构,linux kernel 64位 . 相关文章 1.ARM cache的学习笔记-一 ...
- 这就是飞秋下载早期的学习生涯
这就是飞秋下载早期的学习生涯,深深地体现出陶瓷的时代特色.这段时间hongjin2的生活是困苦的,心情是苦闷的,但学习热情却是无以伦比的.现在hongjin2一个人拥有两台奔四电脑,随时可上互联网获取 ...
- Nhibernate学习之many-to-many篇
学习目的: 通过进一步学习Nhibernate基础知识,掌握用Nhiberate实现多对多的业务逻辑 开发环境+必要准备 开发环境: windows 2003,Visual studio .Net 2 ...
- Kubernetes学习-K8S安装篇-Kubeadm安装高可用K8S集群
Kubernetes学习-K8S安装篇-Kubeadm高可用安装K8S集群 1. Kubernetes 高可用安装 1.1 kubeadm高可用安装k8s集群1.23.1 1.1.1 基本环境配置 1 ...
- 渗透学习-SQL注入篇-基础知识的学习(持续更新中)
提示:仅供进行学习使用,请勿做出非法的行为.如若由任何违法行为,将依据法律法规进行严惩!!! 文章目录 前言 一.SQL注入产生的原因 二.手工注入大致过程 1.判断注入点: 2.猜解列名 3.猜解能 ...
最新文章
- 用物理学来为生命技术及制度的演化找出规律-读《为什么世界不会失控》
- PHP 表单验证--安全性--小记
- jquery书写一个简易的二级联动
- jquery中跳出each循环
- 图像算法处理视频不稳定?港科大团队提出一种通用算法解决视频处理时域不稳定问题
- mysql profile 不记录_mysql profile使用(转)
- python接口自动化测试(二)-requests.get()
- Mac查看本机ip地址
- githup用户名密码怎么看_MacBook Pro 开机密码忘记解决方法
- zeromq不需要消息服务器,ZeroMQ发布订阅TCP丢弃消息订阅服务器失败
- CSS之实现二级菜单动态出现
- Oracle账户的umask,AIX的Umask
- 【日常】DES加密算法python实现_以密码编码学与网络安全——原理与实践(第六版)课后习题3.11为例
- Helio X30剩魅族一家客户 联发科恢复元气要一年半
- CTF逆向-[CISCN2018]2ex-WP_mips-32架构以及base64换表
- Beautiful Songs
- 标签条码打印软件如何创建连续数据变量
- 四层PCB核心板制作3——层叠管理
- 长发变短发,卷发变直发,坚持每天梳头
- 菩提本无树,明镜亦非台,本来无一物,何处惹尘埃