一个简单的COM问题,高人请来帮忙.(200分)

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #1

我要通过FileName得到文件的内容，文件可能是一个二进制文件，用什么类型返回比较合适??
function GetData(const FileName: WideString): PChar; safecall;
~~~~~~~~

 

P

p-ftp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

文件按无类型文件打开。通过OleVariant或OleStream传回。

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #3

function GetData(const FileName: WideString): variant; safecall;

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

to rockjie,
怎么把数据还原呢??

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #5

Variant数组啊

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #6

谁给出一个例子，这２００分都有了．

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #7

你怎么写入就怎么读出，把你写入的代码贴出来。

 

沙

沙隆巴斯的主人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #8

把文件流变成VARIANT，用VARIANT传递，收到后再倒着变回来，
就什么都可以传了

祝你好运

function StreamToVariant(Stream: TStream): OleVariant;
var
p: Pointer;
begin
Result := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Result);
try
Stream.Position := 0;
Stream.Read(p^, Stream.Size);
finally
VarArrayUnlock(Result);
end;
end;

function VariantToStream(const Data: OleVariant ):TStream;
var
p: Pointer;
Stream: TStream;
begin
p := VarArrayLock(Data);
try
Stream.Write(p^, VarArrayHighBound(Data,1) + 1);
finally
VarArrayUnlock(Data);
end;
Result:=Stream;
end;

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #9

function GetData(const FileName: WideString): TStream; safecall;
呵呵

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #10

谢谢沙隆巴斯的主人,
但沙隆巴斯是审美什么呀??