可以利用COM+传递包含文件内容的流吗?如果可以参数类型是不是Variant类型? 如题! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 {----------文件保存调用:过程----------}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; 楼主说得很对,可以用Variant类型传递文件内容。 关于键盘钩子的问题,请教大家 在delphi中如何把一个数据集的数据集里的某几个字段写到XML文件里,我上面没说清楚不好意思谢谢大家 关于存储过程的返回值 c++中的unsigned short和unsigned char类型对应于dephi是哪种类型??? 快来帮忙 请教怎样判断鼠标是否在某个控件上. 有多少人用MTS啊? 如何将font.style写入ini文件呢 求助!分组组合(叠加)算法 终于近来了 API HOOK delphi转C++ Delphi控制攝像头相關的程序怎樣寫? 請大俠們指點方法! 謝謝!
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;