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

Question

如题！

Answer 1

{----------文件保存调用:过程----------}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;

Answer 2

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