精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Delphi的Tips(五)(转载)

主题:Delphi的Tips(五)(转载)
发信人: liudq()
整理人: windfire(2000-12-05 20:06:27), 站内信件
发信人: icefh (冰原)
信  区: RAD
标  题: Delphi的Tips(五)
发信站: '紫金飞鸿' (Fri May  1 11:53:51 1998) , 转信

COM/DCOM中如何传递数组:

 因为COM/DCOM对象都不在Client程序运行的内存空间(内进程COM对象除外,即便
如此,
为了统一接口,内进程的COM也不得传递指针),而且在Win32中所有的程序都有自
己独立
的2GB的内存空间,程序与程序之间传递指针(内存地址)是毫无意义的,
而数组、字符串等大量的数据在程序中都是分配一定的内存空间,
然后用指针加内存偏移量来存取数据的,这时,
如何在COM/DCOM对象中如何传递呢?
在Win32中引入了一新变量Variant,可以通过Variant传递数组。具体的实现方法
,用
Delphi实现为:

 Server(COM/DCOM程序)端:
procedure TTestDCOM.Send4(Size: Integer; D1: OleVariant);
 type
   TData=array [0..999] of Byte;
  Var
   Data:TData;
   i:Integer;
    begin
     for i:=0 to Size-1 do 
       begin
         Data[i]:=D1[i];
      end;
    end;

Cleint端:

 Var
  D1:OleVariant;
  begin
     D1:=VarArrayCreate([0,99],varByte);
    {
      D1[1]:=45;
     //将值存入D1中
    }
  //S是TestDCOM对象

  end;

  傅贵   最后修改日期:1998.1.16

注:
  傅贵是中国大陆Borland程序员站点的维护,在WEB程序设计上有研究

--

                          /\           
  我在冰雪原中         // /\  \\       
       跋涉         / / /  |  \ \ \    
     远方的路啊    /^^^^--冰原--^^^^\  
      在哪里?    /__________________\ 

※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 202.119.236.104]


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

[返回首页] [分类讨论区] [全部讨论区]

--
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.167.200]

[关闭][返回]