com+中使用 TADOConnection与olevariant如何相互， (200分)

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #1

com+中使用 将]TADOConnection相互为olevariant，

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #2

var
ac: TADOConnection;
o: OleVariant;
begin
o := OleVariant(ac);

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #3

老大[Error] connoraPas.pas(134): Invalid typecast

 

J

jxhdy2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #4

将TADOConnection，存成流然后转换在OleVariant

 

Z

zeroyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #5

到此一游

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #6

具体怎么做

 

J

jxhdy2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #7

var
ConStream: TMemoryStream;
A: TADOConnection;
P: Pointer;
C: Olevariant;
begin
ConStream:= TMemoryStream.Create ;
try
conStream.WriteComponent(A);
p := VarArrayLock(C);
conStream.Position := 0;
//start from begin
ning of stream
conStream.Read(p^, conStream.Size);
finally
VarArrayUnlock(C);
FileStream.Free;
end;
end;

没调试过，太概就这样吧！

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-13

• #8

接受答案了.