用ADO控件存取SQL Server数据库图片,查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小),但发现了★eagletian★高手翻译的ADO英文技术文档,里面涉及到了数据库存取JPEG文件的关键技术,在win98+sql server桌面版中测试通过,运行良好,现于源码公开如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, Db, AD...
- [游客] 好东西,收藏之 05/26 23:40
- [游客] 有机会也搞搞 07/23 11:06
- [游客] 看不懂咧。 12/10 20:33
- [游客] 范式?好像是数据库原理吧。 12/10 20:30
- [游客] 顶! 12/07 15:14
- [游客] 分析的很正确啊。 12/07 15:11
- [gyk1983] 加油 12/06 16:37
- [wdm] 是这么回事。以前我也遇见过,不过,重新启动就没事了。 应该是再重启后这个键值就应高over了吧。 03/22 14:15
- [wdm] 蛤蟆跳井--扑通(不懂) 03/21 14:31
- [xiaofkg] 通用的 03/21 08:41
- [huibian] 建议增加些注释 ;-) 01/04 10:38
- [xiaofkg] 继续,成功就在脚下。 01/03 19:14
- [xiaofkg] 坚持做好所能做好的一切,加油,加油.... 10/19 16:56
[2008-01-26 02:33] 转帖]用ADO控件存取SQL Server数据库图片
阅读全文 |
评论次数(0) |
浏览次数(389) |
所属类型(delphi)
[2008-01-26 02:30] 教程: Delphi实现在数据库中存取图像
阅读全文 |
评论次数(0) |
浏览次数(356) |
所属类型(delphi)
[2008-01-26 02:22] 基于Delphi的接口编程入门
为什么使用接口?
举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票服务。于是,卖票的服务是个接口,电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通(如果须要的话)。
如何在Delphi中使用接口
1、声明接口
IMyInterface = interface(IInterface) //说明(1)
['{63E072...
举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票服务。于是,卖票的服务是个接口,电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通(如果须要的话)。
如何在Delphi中使用接口
1、声明接口
IMyInterface = interface(IInterface) //说明(1)
['{63E072...
阅读全文 |
评论次数(0) |
浏览次数(288) |
所属类型(delphi)
[2008-01-26 02:19] 保存图象字段
pics:=TStream.Create;
dm1.ADOQuery1.Edit ;
pics:=dm1.ADOQuery1.CreateBlobStream(dm1.ADOQuery1.FieldByName('PHOTO'),bmReadWrite) ;
img_photo.Picture.Graphic.SaveToStream ( pics);
pics.Position:=0;
dm1.ADOQuery1.Edit ;
Tbl...
dm1.ADOQuery1.Edit ;
pics:=dm1.ADOQuery1.CreateBlobStream(dm1.ADOQuery1.FieldByName('PHOTO'),bmReadWrite) ;
img_photo.Picture.Graphic.SaveToStream ( pics);
pics.Position:=0;
dm1.ADOQuery1.Edit ;
Tbl...
阅读全文 |
评论次数(0) |
浏览次数(360) |
所属类型(delphi)
[2008-01-26 02:15] 在一个没有delphi环境的机器中如何只安装BDE 相关图片
在一个没有delphi环境的机器中如何只安装BDE 相关图片...
阅读全文 |
评论次数(0) |
浏览次数(328) |
所属类型(delphi)
[2008-01-26 02:15] 在一个没有delphi环境的机器中如何只安装BDE 相关图片
在一个没有delphi环境的机器中如何只安装BDE 相关图片...
阅读全文 |
评论次数(0) |
浏览次数(285) |
所属类型(delphi)
[2008-01-26 02:15] 图片
在一个没有delphi环境的机器中如何只安装BDE 相关图片...
阅读全文 |
评论次数(0) |
浏览次数(327) |
所属类型(delphi)
[2008-01-26 02:13] dbgrid
在DELPHI中经常用到网格控件(DBGrid)显示数据,网格控件只提供了每一行的颜色属性,但在实际应用中我们经常希望它按某一行某一项的取值不同显示不同的颜色,甚至在网格中的单位表格项中显示出图像等等,下面我们以一个简单的例子来告诉大家怎么做。
比如我们要求如果春季有退书用红色表示,如果秋季有退书用黄色表示
利用DBGrid自绘功能可以很容易地实现这样的要求。用户可以处理DBGrid的OnDrawColumnCell事件,在其中实现特殊的效果。要判断记录是否满足要求,可以使用DBGrid的DataLink属性获得数据,但DBGrid的DataLink属性属于保护成...
比如我们要求如果春季有退书用红色表示,如果秋季有退书用黄色表示
利用DBGrid自绘功能可以很容易地实现这样的要求。用户可以处理DBGrid的OnDrawColumnCell事件,在其中实现特殊的效果。要判断记录是否满足要求,可以使用DBGrid的DataLink属性获得数据,但DBGrid的DataLink属性属于保护成...
阅读全文 |
评论次数(0) |
浏览次数(320) |
所属类型(delphi)
[2008-01-26 02:12] 在一个没有delphi环境的机器中如何只安装BDE
在一个没有delphi环境的机器中如何只安装BDE2007-05-31 10:14 在发布一个使用了BDE的delphi程序时,需要考虑安装机器中大部分都没有BDE环境,这样程序即使安装成功了,可是应为缺少BDE环境也不能使用。
如果想要安装整个BDE到客户机上,安装程序会变得很大。如何才能使用最小安装的BDE来支持你的程序呢。
我在网络上浏览了一下各种解决方案,分析并尝试后觉得通过delphi自带的InstallShield制作一个BDE的安装包一块儿随程序分发不错。通过installshield制作BDE的方法如下:
关键的一步是:
使用 蓝色边框 框...
如果想要安装整个BDE到客户机上,安装程序会变得很大。如何才能使用最小安装的BDE来支持你的程序呢。
我在网络上浏览了一下各种解决方案,分析并尝试后觉得通过delphi自带的InstallShield制作一个BDE的安装包一块儿随程序分发不错。通过installshield制作BDE的方法如下:
关键的一步是:
使用 蓝色边框 框...
阅读全文 |
评论次数(0) |
浏览次数(552) |
所属类型(delphi)
[2008-01-26 02:09] dbgrid控件使用中的一些技巧
1、改变Dbgrid的选定色。
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if gdSelected in state then
SetBkColor(dbgrid1.canvas.handle,clgreen)
else
setbkcolor(dbgrid1.canvas.handle,clwhite)...
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if gdSelected in state then
SetBkColor(dbgrid1.canvas.handle,clgreen)
else
setbkcolor(dbgrid1.canvas.handle,clwhite)...
阅读全文 |
评论次数(2) |
浏览次数(358) |
所属类型(delphi)