OleVariant 与 Variant

Hmillet

于 2017-09-20 13:55:48 发布

阅读量2.5k

点赞数

分类专栏： delphi delphi 基础语法文章标签： delphi dataset Stream

delphi 同时被 2 个专栏收录

77 篇文章 1 订阅

订阅专栏

delphi 基础语法

65 篇文章 1 订阅

订阅专栏

olevariant存在于windows和linux平台,这二种类型主要的不同是variant类型仅是当前的应用程序可以进行操作,而olevariant类型则是ole自动化服务器所以定义的统一的数据类型,意味着可以通过网络或其他程序进行操作,当然也不必担心其他客户端如何进行操作.

当你给一个variant类型的变量赋自定义的值的时候(例如delphi string,或一个其他的新的自定义类型),运行时间库将试着将他转化为olevariant标准数据类型(例如string转化为 OLE BSTR string),例如,一个包括Ansistring数据的variant类型斌值给olevariant,ansiString将成为WideString,当把variant传为olevariant的函数参数也是一样的.

------------------

OleVariant的本质

OleVariant，COM的一种数据类型。MIDAS基于COM之上构建的，自然使用OleVariant作为数据序列格式。

延续到现在最新的DATASNAP仍然支持它。

TClientDataset.data，TClientDataset.delta，这俩个属性
的类型都是OleVariant。

OleVariant可以是string,integer,float...
这个大家都知道，但它也可以是array of OleVariant，这个
可能有人不知道了。明白了这点就是datasnap中间件主从表
数据同步的关键。

var
a: TServerMethods1Client;
V: OleVariant;
i, iCount: Integer;
begin
Result := False;
if not TryConnectAPPServer then
Exit;
a := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
iCount := High(TClientDatasetArray);
V := VarArrayCreate([0, iCount], varVariant);
for i := 0 to iCount do
begin
V[i] := null;
if Datasets[i] <> nil then
begin
if Datasets[i].State in [dsInsert, dsEdit] then
Datasets[i].Post;
if Datasets[i].ChangeCount > 0 then
V[i] := CompressData(Datasets[i].Delta);
end;
end;
Result := a.UploadPOSSalesData(V);

==============================

delphi 详解Variant 的相关函数

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了
2.VarArrayRedim()函数能修改variant数组的最高限。
3.VarArrayDimCount()函数返回Variant数组的维数，
4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Variant数组的下边界和上边界。
5.VarArrayLock()和VarArrayUnlock()一般用于初始化一个大数组。
如:
它创建一个有10000字节的Variant数组。假定有另一个相同长度的非Variant类型的数组，并且想
把非variant类型的数组复制到variant类型的数组中去。通常这都是通过用循环语句对variant数组
的单元进行赋值实现的。示例如下：

begin
  v:=VarArrayCreate([1,10000],varBate);
  fori:=1to10000do
  v[i]:=a[i];
end;

上面这段代码的主要问题在于，大量的时间花费在对Variant数组的初始化上，因为在对每一个元
素进行赋值时，都要通过运行时逻辑来检查并判断数据类型的兼容性、每个元素的位置等等。为了避
免运行时检查，要用VarArrayLock()函数和VarArrayUnlock()过程。VarArrayLock()函数在内存中锁
定数组，使数组不再移动和改变大小，并能返回一个指向数组数据的指针。而VarArrayUnlock()过程
用来对VarArrayLock()函数锁定的数组进行解锁，使数组能重新移动或改变大小。在锁定数组后，能
用更有效的方法对数组进行初始化，例如用指向数组数据的指针调用Move()过程，下面的代码也对
Variant数组进行初始化，但它更有效：

begin
  v:=VarArrayCreate([1,10000],varBate);
  p:=VarArrayLock(v)
  try
   move(A,P^,10000);
  finally
   VarArrayUnlock(v);
  end;
end;

6.VarArrayRef()获得variant指向的数据
7.VarIsArray()函数是一个简单的布尔检查函数，如果传递给它的参数是一个Variant数组则返回True，否则返回False.
8.VarClear()过程清除Variant变量并将VType域的值设为varEmpty.
9.VarCopy()将Source复制到Dest。
10.VarCast()将一个Variant转换成指定的类型并存储在另一个Variant变量中。
11.VarType()返回指定Variant的varXXX类型代码。
12.VarAsType()跟VarCast()的功能一样。
13.VarIsEmpty()如果一个Variant变量的类型代码是varEmpty则返回True。
14.VarIsNull()判断Variant变量是否包含null值。
15.VarToStr()将一个Variant变量转换成字符串表达式(如果Variant为varEmpty或varNUll则为空字符
串)。
16.VarFromDateTime()返回一个Variant变量，它存放着指定的TDateTime类型的值。
17.VarToDateTime()返回在Variant中的TDateTime类型的值。