传递和返回数据到一个Delphi编写的UDF
2008-05-01 03:07
302 查看
[UDF系列之四]:传递和返回数据到一个Delphi编写的UDF
Warton译
作者: Chris Levesque, Tina Grubbe, Brett Bandy
--------------------------------------------------------------------------------
[译者叙]:
前面我已经翻译了几篇关于编写UDF的文章,虽然一些朋友可能也从中得到了一点帮助,但是可能对UDF的
认识还存在一些问题。今天,我再翻译两文章,这两篇文章都是来自MER System (http://www.mers.com)
的,有兴趣的朋友可以查看原文。
[论点]:
当动态链接库没有为受保护的数据值做特殊的预防时,我们的UDF带有参数值或返回值的数据结果
可能处在一个受保护的异常或错误结果之中。
[解决方案]:
每一个日期值被保存在两个32位的整数类型之中:一个表示日期的signed integer,和一个表示
时间的unsigned integer。使用Delphi代码来定义这个结构(ISC_QUAD)和结构的指针(PISC_QUAD):
type
{InterBase Date/Time Record}
ISC_QUAD = record
isc_quad_high : Integer ; // Date
isc_quad_low : Cardinal ; // Time
end;
PISC_QUAD = ^ISC_QUAD;
为了保护返回值,在函数定义的外部申明一个线程安全的ISC_QUAD变量,使它保存返回值(如果返回值
是一个日期型的数据)。
threadvar
tempquad : ISC_QUAD;
然后编写你的函数以便结果指向线程变量。
// 定义函数
// This function adds a number of days to an existing date.
function DayAdd( var Days: Integer; IBDate PISC_QUAD) : PISC_QUAD; cdecl; export;
begin
tempquad.isc_quad_high := IBDate^.isc_quad_high + Days;
tempquad.isc_quad_low := IBDate^.isc_quad_low;
Result := @tempquad;
end;
本主来自:MER Systems Inc.. http://www.mers.com
Warton译
作者: Chris Levesque, Tina Grubbe, Brett Bandy
--------------------------------------------------------------------------------
[译者叙]:
前面我已经翻译了几篇关于编写UDF的文章,虽然一些朋友可能也从中得到了一点帮助,但是可能对UDF的
认识还存在一些问题。今天,我再翻译两文章,这两篇文章都是来自MER System (http://www.mers.com)
的,有兴趣的朋友可以查看原文。
[论点]:
当动态链接库没有为受保护的数据值做特殊的预防时,我们的UDF带有参数值或返回值的数据结果
可能处在一个受保护的异常或错误结果之中。
[解决方案]:
每一个日期值被保存在两个32位的整数类型之中:一个表示日期的signed integer,和一个表示
时间的unsigned integer。使用Delphi代码来定义这个结构(ISC_QUAD)和结构的指针(PISC_QUAD):
type
{InterBase Date/Time Record}
ISC_QUAD = record
isc_quad_high : Integer ; // Date
isc_quad_low : Cardinal ; // Time
end;
PISC_QUAD = ^ISC_QUAD;
为了保护返回值,在函数定义的外部申明一个线程安全的ISC_QUAD变量,使它保存返回值(如果返回值
是一个日期型的数据)。
threadvar
tempquad : ISC_QUAD;
然后编写你的函数以便结果指向线程变量。
// 定义函数
// This function adds a number of days to an existing date.
function DayAdd( var Days: Integer; IBDate PISC_QUAD) : PISC_QUAD; cdecl; export;
begin
tempquad.isc_quad_high := IBDate^.isc_quad_high + Days;
tempquad.isc_quad_low := IBDate^.isc_quad_low;
Result := @tempquad;
end;
本主来自:MER Systems Inc.. http://www.mers.com
相关文章推荐
- 传递和返回数据到一个Delphi编写的UDF
- 传递和返回数据到一个编写的UDF
- 在一个类中编写一个方法,这个方法搜索一个字符数组中是否存在某个字符,如果存在,则返回这个字符在字符数组中第一次出现的位置(序号从0开始计算),否则,返回-1。要搜索的字符数组和字符都以参数形式传递传递
- Activity间的切换实现和数据传递以及上一个Activity返回结果的获取和处理
- 11.8 编写一个程序,有一个汽车类 vehicle,它具有一个需传递参数的构造函数,类 中的数据成员:车轮个数 wheels 和车重 weight 放在保护段中;小车类 car 是它的私有派生 类,
- winform程序访问一个web方法,传递参数,返回数据
- Android开发:向下一个activity传递数据,返回数据给上一个activity
- 代码总结:Fragment之间传递参数和Fragment返回上一个Fragment传回数据
- Intent 隐式跳转,向下一个活动传递数据,向上一个活动返回数据。
- delphi中将一个ADOQuery查询的数据结果传递给一个动态生成的ADOQuery
- Bag标签之把字符串分割成数组,返回一个存放数组数据的书包(Bag)
- 如何开发一个java开源框架-----Jvn框架之实现参数传递跟信息返回(第二讲)
- Android中Activity之间数据传递及返回
- 利用springmvc提供一个HandlerExceptionResolver接口实现出错返回Json数据
- 自己编写的一个程序:读取XML格式的日志文件,并以一定的数据写入数据库中
- [Extjs6] 线性数组的形式返回一个TreeStore数据
- JNI实战一:向Native层传递一个类,并从Native层返回一个类
- 练习2-8 编写一个函数rightrot(x, n),该函数返回将x循环右移(即从最右端移出的位将从最左端再移入)n(二进制)位后所得到的值。
- Activity返回数据给上一个活动
- sqlserver 函数里并返回一个表格数据拼接的字符串