跑马圈地 » Delphi http://www.ukuang.com 一切恩爱会，无常难久得。声势多畏惧，命危于晨露。 因爱故生忧，因爱故生怖。若离于爱者，无忧亦无怖。 Mon, 16 Jan 2012 17:51:25 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Delphi7 中使用ODAC存取图片 http://www.ukuang.com/2010/03/16/delphi7-%e4%b8%ad%e4%bd%bf%e7%94%a8odac%e5%ad%98%e5%8f%96%e5%9b%be%e7%89%87/ http://www.ukuang.com/2010/03/16/delphi7-%e4%b8%ad%e4%bd%bf%e7%94%a8odac%e5%ad%98%e5%8f%96%e5%9b%be%e7%89%87/#comments Tue, 16 Mar 2010 07:06:28 +0000 bluffstone http://www.ukuang.com/2010/03/16/delphi7-%e4%b8%ad%e4%bd%bf%e7%94%a8odac%e5%ad%98%e5%8f%96%e5%9b%be%e7%89%87/ 最近很少写技术贴，前几天协助王锋师兄解决了在delphi7中，使用ODAC组件存取图片的问题。事后，他整理了一个经验文档，争得他同意，我贴出来，以备以后查询之用。 说明：ODAC组件我不熟悉，在使用它存取图片的时候，特别注意sql的写法。

ODAC 组件支持 Oracle8 的 BLOB 和 CLOB 数据类型。你可以使用 TOraQuery 组件来获取 LOB 字段的值，BLOB 和 CLOB 数据类型通过 LOB 定位器(指定数据地址) 存储在表列中；实际的 BLOB 和 CLOB 数据存储在独立的表空间中。当存取 LOB 列时，返回的是定位器。要初始化 LOB 定位器，你必须使用 EMPTY_BLOB 或 EMPTY_CLOB Oracle 函数。要返回初始化后的定位器，应在同样的语句中使用 RETURNING 子句。ODAC 写 LOB 数据到 Oracle 且返回初始值字段，需使用：值参数. 对 ODAC 来说，在 LOB 操作中使用 ParamType 属性是非常重要的。如果 ParamType 是 ptInput ， ODAC 写数据到服务器，如果 ParamType 是 [...]]]>

最近很少写技术贴，前几天协助王锋师兄解决了在delphi7中，使用ODAC组件存取图片的问题。事后，他整理了一个经验文档，争得他同意，我贴出来，以备以后查询之用。
说明：ODAC组件我不熟悉，在使用它存取图片的时候，特别注意sql的写法。

ODAC 组件支持 Oracle8 的 BLOB 和 CLOB 数据类型。你可以使用 TOraQuery 组件来获取 LOB 字段的值，BLOB 和 CLOB 数据类型通过 LOB 定位器(指定数据地址) 存储在表列中；实际的 BLOB 和 CLOB 数据存储在独立的表空间中。当存取 LOB 列时，返回的是定位器。要初始化 LOB 定位器，你必须使用 EMPTY_BLOB 或 EMPTY_CLOB Oracle 函数。要返回初始化后的定位器，应在同样的语句中使用 RETURNING 子句。ODAC 写 LOB 数据到 Oracle 且返回初始值字段，需使用：值参数. 对 ODAC 来说，在 LOB 操作中使用 ParamType 属性是非常重要的。如果 ParamType 是 ptInput ， ODAC 写数据到服务器，如果 ParamType 是 ptOutput，它则读取数据。
以下两个例子是从Oracle10g中存/取jpg和bmp图片，需要注意的是在存图片的时候SQL语句的写法。


（1）存图片
procedure TNewStamp.BitBtn3Click(Sender: TObject);
var
pic:TMemoryStream;
pjpg:tjpegimage;
pjpeg:tjpegimage;
bmp:tbitmap;
begin
{ //jpg图片
pjpeg:=tjpegimage.Create;
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(‘C:\1112.jpg’);
pic:=TMemoryStream.Create;

pjpg.SaveToStream(pic);
pic.Position:=0;
pjpeg.LoadFromStream(pic);
image1.Picture.Assign(pjpeg);

login.SmartQuery1.Close;
login.SmartQuery1.SQL.Clear;
login.SmartQuery1.SQL.Add(‘insert into TEST(TEST1,TEST2) VALUES(:t1,EMPTY_BLOB()) returning TEST2 into :TEST2′);
login.SmartQuery1.ParamByName(‘t1′).AsString:=’123′;
login.SmartQuery1.ParamByName(‘TEST2′).ParamType:=ptInput;
login.SmartQuery1.ParamByName(‘TEST2′).AsOraBlob.LoadFromStream(pic);
login.SmartQuery1.Prepare;
login.SmartQuery1.ExecSQL;

}
//bmp图片
bmp:=tbitmap.Create;
pic:=TMemoryStream.Create;
bmp.LoadFromFile(‘C:\122.bmp’);
bmp.SaveToStream(pic);
pic.Position:=0;

login.SmartQuery1.Close;
login.SmartQuery1.SQL.Clear;

login.SmartQuery1.SQL.Add(‘insert into TEST(TEST1,TEST2) VALUES(:t1,EMPTY_BLOB()) returning TEST2 into :TEST2′);
login.SmartQuery1.ParamByName(‘t1′).AsString:=’124′;
login.SmartQuery1.ParamByName(‘TEST2′).ParamType:=ptInput;
login.SmartQuery1.ParamByName(‘TEST2′).AsOraBlob.LoadFromStream(pic);
login.SmartQuery1.Prepare;
login.SmartQuery1.ExecSQL;
end;

（2）取图片
procedure TNewStamp.BitBtn2Click(Sender: TObject);
var
pic:TMemoryStream;
pjpeg:tjpegimage; //jpg格式图片
bmp:tbitmap; //bmp格式图片
begin

login.OraQuery1.SQL.Clear;
login.OraQuery1.SQL.Add(‘select * from TEST ‘);
login.OraQuery1.AutoCommit := false;
login.OraQuery1.FetchAll := true;
login.OraQuery1.Open;

if login.OraQuery1.RecordCount = 0 then
begin
showmessage(‘没有记录’);
exit;
end;

bmp:=tbitmap.Create;
pjpeg:=tjpegimage.Create;
pic:=TMemoryStream.Create;

TBlobField(login.OraQuery1.fieldbyname(‘TEST2′)).savetostream(pic);
pic.Position:=0;
bmp.LoadFromStream(pic);
bmp.SaveToFile(‘C:\122.bmp’);
image1.Picture.Assign(bmp);
pic.Free;
end;

]]> http://www.ukuang.com/2010/03/16/delphi7-%e4%b8%ad%e4%bd%bf%e7%94%a8odac%e5%ad%98%e5%8f%96%e5%9b%be%e7%89%87/feed/ 1 使用绑定变量和不使用绑定变量操作数据库 http://www.ukuang.com/2009/11/05/%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e5%92%8c%e4%b8%8d%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e6%93%8d%e4%bd%9c%e6%95%b0%e6%8d%ae%e5%ba%93/ http://www.ukuang.com/2009/11/05/%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e5%92%8c%e4%b8%8d%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e6%93%8d%e4%bd%9c%e6%95%b0%e6%8d%ae%e5%ba%93/#comments Thu, 05 Nov 2009 03:52:06 +0000 bluffstone http://www.ukuang.com/?p=107 以下例子是在delphi中编程实现，数据库为oracle，具体的代码省略了，只说明情况。

1、不使用绑定变量

例子：删除同一张表的两条记录。

sql语句如下：

（1）delete from t_englishscore_score where STUDENTNUM=’200431500123′

and LESSONNAME=’test’ and YEAR=’2005′ and TERM=’上’；

（2）delete from t_englishscore_score where STUDENTNUM=’200431500123′

and LESSONNAME=’毕业设计’ and YEAR=’2007′ and TERM=’下’

此时查询v$sqltext视图（它能够反映oracle 中share pool中的sql解析共享情况）：

ADDRESS

HASH_VALUE

SQL_ID

COMMAND_TYPE

PIECE

SQL_TEXT

0000000173D47990

2193311325

1mhba361bqjkx

7

0

delete from t_englishscore_score [...]]]>

以下例子是在delphi中编程实现，数据库为oracle，具体的代码省略了，只说明情况。

1、不使用绑定变量

例子：删除同一张表的两条记录。

sql语句如下：

（1）delete from t_englishscore_score where STUDENTNUM=’200431500123′

and LESSONNAME=’test’ and YEAR=’2005′ and TERM=’上’；

（2）delete from t_englishscore_score where STUDENTNUM=’200431500123′

and LESSONNAME=’毕业设计’ and YEAR=’2007′ and TERM=’下’

此时查询v$sqltext视图（它能够反映oracle 中share pool中的sql解析共享情况）：

ADDRESS

HASH_VALUE

SQL_ID

COMMAND_TYPE

PIECE

SQL_TEXT

0000000173D47990

2193311325

1mhba361bqjkx

7

0

delete from t_englishscore_score where STUDENTNUM=’200431500123′

0000000173D47990

2193311325

1mhba361bqjkx

7

1

and LESSONNAME=’test’ and YEAR=’2005′ and TERM=’上’

0000000188BDAC00

321412224

3jjk8tn9khr40

7

0

delete from t_englishscore_score where STUDENTNUM=’200431500123′

0000000188BDAC00

321412224

3jjk8tn9khr40

7

1

and LESSONNAME=’毕业设计’ and YEAR=’2007′ and TERM=’下’

可见，没有使用绑定变量，两次删除的语句都分别对应不同的Hash_Value，在共享池中占据两个条目，而且关键是这两个条目能够被以后删除记录操作共享的几率大致趋于0，除非有同样的记录需要删除，这样就大大降低了共享池“共享”的功能。

2、使用绑定变量

例子：更新同一张表多条记录。

sql语句：在delphi中sql语句代码如下：

（1）update t_englishscore_score set LESSONNUM=:newLessonnum,LESSONNAME=:newLessonname,

YEAR=:newYear,TERM=:newTerm,COURSESORT=:newCourseSort,

CREDIT=:newCredit,SCORE=:newScore,ISDELETE=:newIsDelete

where STUDENTNUM=:oldStudentnum and LESSONNAME=:oldLessonname

and YEAR=:oldYear and TERM=:oldTerm

每次更新，只要赋予相应的参数即可。多次更新后，查看v$sqltext：

ADDRESS

HASH_VALUE

SQL_ID

COMMAND_TYPE

PIECE

SQL_TEXT

00000001735AF2B0

1453164333

gfdbw8db9v1td

6

0

update t_englishscore_score set LESSONNUM=:1,LESSONNAME=:2,YEAR=

00000001735AF2B0

1453164333

gfdbw8db9v1td

6

1

:3,TERM=:4,COURSESORT=:5,CREDIT=:6,SCORE=:7,ISDELETE=:8  where S

00000001735AF2B0

1453164333

gfdbw8db9v1td

6

2

TUDENTNUM=:9 and LESSONNAME=:10 and YEAR=:11 and TERM=:12

可见使用绑定变量后，多次更新操作，都很好的共享了一条sql解析，大大降低了硬解析的数量，相应的提供了软解析的数量，从而真正发挥了共享池“共享”的作用。

]]> http://www.ukuang.com/2009/11/05/%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e5%92%8c%e4%b8%8d%e4%bd%bf%e7%94%a8%e7%bb%91%e5%ae%9a%e5%8f%98%e9%87%8f%e6%93%8d%e4%bd%9c%e6%95%b0%e6%8d%ae%e5%ba%93/feed/ 0 在PL/SQL中计算采用四舍五入和delphi 6中计算采用四舍五入之间的误差 http://www.ukuang.com/2009/10/10/%e5%9c%a8plsql%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5%e5%92%8cdelphi-6%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5/ http://www.ukuang.com/2009/10/10/%e5%9c%a8plsql%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5%e5%92%8cdelphi-6%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5/#comments Sat, 10 Oct 2009 12:10:27 +0000 bluffstone http://www.ukuang.com/?p=87

有系统用户反映，在其中使用delphi6的程序中计算一个数值为2.64，但是在另外一个模块中，相同的参数，计算出来却是2.63，之间相差了0.01。一查，后者是调用oracle中存储过程实现的，而前者在delphi6中实现。

在 仔细分析原因后，发现delphi 6中使用roundto或者simpleroundto都不是我们通常说的四舍五入，前者是采用银行家的四舍五入，即四舍六入五奇偶，而 simpleroundto这个函数也令人有点琢磨不透，有些是四舍五入，有些不是，比如对于 simpleroundto（12.95，-1）=12.9。

而在PL/SQL中，一律保留了1位，四舍五入，所以两种方法一比较，最后累计，就出现了误差。

解决方法，可以自己编辑一个函数处理，也可以按照下面一个网友的解释进行处理：

http://www.2ccc.com/idea.asp?articleid=1300 网友iamdream

以下是研究的结果(Delphi6)：

RoundTo(及Round)函数使用所谓“银行家舍入法”<Banker’s Rounding>（对于舍入位后为5的情况，则舍入位为偶数，则舍，为奇数，则入），而Format函数则为正常的四舍五入法，取例如下：

0.145 RoundTo(0.145, -2) = 0.14

0.145 Format(‘%8.2f’, 0.145) = 0.15

0.155 RoundTo(0.155, -2) = 0.16

0.155 Format(‘%8.2f’, 0.155) = 0.16

另在进行浮点数的运算时，可能会出现0.14499999999999的情况，此时的值按数学上要求实际应为0.145，如用以上方法舍入到小数点后两位时，均不能达到想要的效果。

另SimpleRoundTo比RoundTo更接近四舍五入法，但不完全是四舍五入，如对0.145用SimpleRoundTo(0.145, -2)舍入时仍为0.14；

如果后面还有小数，如0.1450000001，此时舍入，则三者均为0.15！对1.145，SimpleRoundTo舍入为1.15！

故而如用RoundTo来四舍五入，则可在舍入位后的第二位加上5，如0.145，则加上0.0005，此时成为0.1455，再舍入时，就为0.15了！

因此四舍五入取两位小数时，只要先加上0.0001，然后用RoundTo或SimpleRoundTo即可。

]]>

有系统用户反映，在其中使用delphi6的程序中计算一个数值为2.64，但是在另外一个模块中，相同的参数，计算出来却是2.63，之间相差了0.01。一查，后者是调用oracle中存储过程实现的，而前者在delphi6中实现。

在 仔细分析原因后，发现delphi 6中使用roundto或者simpleroundto都不是我们通常说的四舍五入，前者是采用银行家的四舍五入，即四舍六入五奇偶，而 simpleroundto这个函数也令人有点琢磨不透，有些是四舍五入，有些不是，比如对于 simpleroundto（12.95，-1）=12.9。

而在PL/SQL中，一律保留了1位，四舍五入，所以两种方法一比较，最后累计，就出现了误差。

解决方法，可以自己编辑一个函数处理，也可以按照下面一个网友的解释进行处理：

http://www.2ccc.com/idea.asp?articleid=1300 网友iamdream

以下是研究的结果(Delphi6)：

RoundTo(及Round)函数使用所谓“银行家舍入法”<Banker’s Rounding>（对于舍入位后为5的情况，则舍入位为偶数，则舍，为奇数，则入），而Format函数则为正常的四舍五入法，取例如下：

0.145 RoundTo(0.145, -2) = 0.14

0.145 Format(‘%8.2f’, 0.145) = 0.15

0.155 RoundTo(0.155, -2) = 0.16

0.155 Format(‘%8.2f’, 0.155) = 0.16

另在进行浮点数的运算时，可能会出现0.14499999999999的情况，此时的值按数学上要求实际应为0.145，如用以上方法舍入到小数点后两位时，均不能达到想要的效果。

另SimpleRoundTo比RoundTo更接近四舍五入法，但不完全是四舍五入，如对0.145用SimpleRoundTo(0.145, -2)舍入时仍为0.14；

如果后面还有小数，如0.1450000001，此时舍入，则三者均为0.15！对1.145，SimpleRoundTo舍入为1.15！

故而如用RoundTo来四舍五入，则可在舍入位后的第二位加上5，如0.145，则加上0.0005，此时成为0.1455，再舍入时，就为0.15了！

因此四舍五入取两位小数时，只要先加上0.0001，然后用RoundTo或SimpleRoundTo即可。

]]> http://www.ukuang.com/2009/10/10/%e5%9c%a8plsql%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5%e5%92%8cdelphi-6%e4%b8%ad%e8%ae%a1%e7%ae%97%e9%87%87%e7%94%a8%e5%9b%9b%e8%88%8d%e4%ba%94%e5%85%a5/feed/ 0 【fastreport使用】fastreport中显示表格和打印空白表格 http://www.ukuang.com/2009/10/10/%e3%80%90fastreport%e4%bd%bf%e7%94%a8%e3%80%91fastreport%e4%b8%ad%e6%98%be%e7%a4%ba%e8%a1%a8%e6%a0%bc%e5%92%8c%e6%89%93%e5%8d%b0%e7%a9%ba%e7%99%bd%e8%a1%a8%e6%a0%bc/ http://www.ukuang.com/2009/10/10/%e3%80%90fastreport%e4%bd%bf%e7%94%a8%e3%80%91fastreport%e4%b8%ad%e6%98%be%e7%a4%ba%e8%a1%a8%e6%a0%bc%e5%92%8c%e6%89%93%e5%8d%b0%e7%a9%ba%e7%99%bd%e8%a1%a8%e6%a0%bc/#comments Sat, 10 Oct 2009 12:05:50 +0000 bluffstone http://www.ukuang.com/?p=75

8月19日 【fastreport使用】fastreport中显示表格和打印空白表格

1、 使数据显示在表格中：在数据的Band中，选择每一个“text”，设置其上下左右的边框；然后把每个“Text”排整齐即可。

2、 在页末尾打印空白表格行：添加一个child band，同时在该band中设置跟数据band中相应的text；再添加一个footer band，设置其高度为0，同时为该footer band的onbeforePrint事件添加代码如下：

while Engine.freespace > 60 do

Engine.showband(Child1);

如图1：

图1 表格显示和打印空白表格

]]>

8月19日

【fastreport使用】fastreport中显示表格和打印空白表格

1、 使数据显示在表格中：在数据的Band中，选择每一个“text”，设置其上下左右的边框；然后把每个“Text”排整齐即可。

2、 在页末尾打印空白表格行：添加一个child band，同时在该band中设置跟数据band中相应的text；再添加一个footer band，设置其高度为0，同时为该footer band的onbeforePrint事件添加代码如下：

while Engine.freespace > 60 do

Engine.showband(Child1);

如图1：

未命名

图1 表格显示和打印空白表格

]]> http://www.ukuang.com/2009/10/10/%e3%80%90fastreport%e4%bd%bf%e7%94%a8%e3%80%91fastreport%e4%b8%ad%e6%98%be%e7%a4%ba%e8%a1%a8%e6%a0%bc%e5%92%8c%e6%89%93%e5%8d%b0%e7%a9%ba%e7%99%bd%e8%a1%a8%e6%a0%bc/feed/ 0