Delphi OleVariant 类型的用法

    因客户需求,对客户的指纹机与公司产品进行集成,需要对指纹机做接口的二次开发,郁闷的是产商只提供了VB和C的DEMO示例,没有Delphi的,公司没有VB,C的环境,不能打开这二种语言的示例,因为本公司搭环境特麻烦,加上之前做过类似的开发,所以也懒得去搭环境了,按照以前的开发经验写了个DEMO进行测试,一路进行得很顺利,但到了下载用户指纹和上传用户指纹数据时卡住了,因为下载用户指纹时,用于获取指纹数据传入到接口函数中的参数类型是OleVariant类型的,返回后变成了 Variant array of Integer类型了。这里碰到二个问题了:

  1、如何从OleVariant类型的数组中赋值取值

  2、指纹数据放在了一个数组中,我如何把这些数据保存到数据库和很方便的从数据库取出来

 

一直以为OleVariant很复杂,在网上搜了很多资料,终于发现OleVariant类型数组赋值和取值其实很简单,如下:

 

取值:

 

procedure p_GetEnrollData();
var
   dwEnrollData:OleVariant;
   High,Low,i:Integer;  
   sEnrollList:TStringList;
begin
     sEnrollList:=TStringList.Create;
     try
        High:=VarArrayHighBound(dwEnrollData,1);   
        Low:=varArrayLowBound(dwEnrollData,1);
 
        for i:=Low to High do
        begin
           sEnrollList.Add(inttostr(dwEnrollData[i])) 
        end;
        //把sEnrollList.Text 保存到数据库中
 
     finally
 
        sEnrollList.Free;
     end; 
 
end;

 

赋值:

 

procedure p_SetEnrollData();
var
   dwEnrollData:OleVariant;
   i:Integer;
begin
   dwEnrollData:=VarArrayCreate([0,1000],varInteger);
 
  for i:=0 to 1000 do
    dwEnrollData[i]:=i;
 
end;


是不是很简单了呢?

 

 

评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值