如何用Delphi 6开发ASP上传组件详解

领测软件测试网

function Tupfile.Get_FileSize: Integer;
begin
  Result := length(FFileData);
end;

function Tupfile.Get_FileData: OleVariant;
var
  i:integer;
begin
  Result := VarArrayCreate( [0,length(FFileData)], varByte );
  for i := 0 to length(FFileData)-1 do
  begin
    Result[i] := Byte(FFileData[i+1]);
  end;
end;
 


这三个函数分别返回文件的名称、大小、数据。要注意的是，在返回文件数据时，必须进行相应的转换，将Delphi中的string类型转换为OleVariant类型。 

　　
procedure Tupfile.FileSaveAs(Filename: OleVariant);
var
  fsout:TFileStream;

文章来源于领测软件测试网 https://www.ltesting.net/