我崩溃了，delphi对com的支持太差了，无法在接口的方法中传递自定义的结构数组！(50分)

C

csKiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #1

自定义的结构可以，可是如何在接口的方法中传递自定义的结构数组，在VC中用size_is能够轻松实现，可是在DELPHI中。。。。。。。。。。。。。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #2

晕，你难道不会把指针换成一个Long传递进去，在COM里再转换？？？

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #3

是你笨而已，其实，我也不会，但是，我没有说是Delphi的问题

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #4

不过这个办法只适合进程内的COM才行，DCOM，跨进程的COM需要列集和散集
这个办法就不行了，要用数组来传递

 

O

ormus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #5

帮你提前

 

Y

yzykjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #6

用OleVariant传递什么都可以。

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #7

IInvokable似乎可以帮忙，但我没有具体用过

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #8

呵呵，楼主可以先把记录数组倒到流里不就可以了嘛.

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #9

function RecToVariant(Rec:TMyRecArr):variant;
var
pChar;
begin
Result:=VarArrayCreate([0,SizeOf(Rec) - 1],VarByte);
p:=VarArrayLock(Result);
try
Move(Rec[1], p^, SizeOf(Rec))
finally
VarArrayUnlock(Result);
end;
end;

procedure VariantToRec(Value:variant): TMyRecArr;
var
pChar;
Size: Cardinal;
begin
size:=VarArrayHighBound(Value,1);
p:=VarArrayLock(Value);
try
Move(p^, Result[1], Size)
finally
VarArrayUnlock(Value);
end;
end;

 

猛

猛禽

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #10

IInvokable是WEBSERVICE用的,不是COM用的.
同意用Variant

 

W

Wind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #11

在客户端把数组变成Variant再从服务器端把Variant翻译成数组处理不就得了

 

Y

ynyangbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-05

• #12

不要随便就说工具不好
也许是水平问题！！

 

Z

znu991

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #13

to Wind:
同意，不过好像要用OleVariant。

 

低

低调一贱男

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #14

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-1do
begin

Data:=D1;
end;

end;


Cleint端:
Var
D1:OleVariant;
begin

D1:=VarArrayCreate([0,99],varByte);

{
D1[1]:=45;
.... //将值存入D1中
}
S.Send4(99,D1);
//S是TestDCOM对象
end;