可以利用COM+传递包含文件内容的流吗？如果可以参数类型是不是Variant类型?

[sky_234]

如题！

[zhaohongkuan]

{----------文件保存调用:过程----------}

procedure VariantToFile(FileName: string; var AVariant: OleVariant);
var
AStream: TFileStream;
MyBuffer: Pointer;
Size: Integer;
begin
AStream := TFileStream.create(FileName, fmCreate);
try
aStream.Seek(0, soFromBeginning);
Size := VarArrayHighBound(AVariant, 1) + VarArrayLowBound(AVariant, 1) + 1;
MyBuffer := VarArrayLock(AVariant);
AStream.WriteBuffer(MyBuffer^, Size);
VarArrayUnlock(AVariant);
finally
AStream.Free;
end;
end;

{----------自定义服务端函数--供群发提交文件调用----参数方法------}

procedure TWebTest.QfPcm(FileName, AVariant: OleVariant; var Ret: OleVariant);
begin
try
VariantToFile(trim(FileName), AVariant);
ret := '1';
except
ret := '0';
end;

end;

[seawolf2000]

楼主说得很对，可以用Variant类型传递文件内容。