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

领测软件测试网

end;
 


如注释中所表达的，AnalyFormData提取原始数据中的域。如果是域是文件类型，则将文件类型和文件数据分别放入FFileType和FFileData中。如果是其它类型，则将名称和值放入一个TStringlist类型的FFormInfo中。FFormInfo中维护着除文件类型外的所有域的信息，以“名称=值”的格式存放。 

　　
function Tupfile.Get_Form(Formname: OleVariant): OleVariant;
begin
    Result := FFormInfo.Values[Formname];
end;
 


这个函数返回域的值。只需要简单地调用FFormInfo的values方法，就可以得到相应的值。这是在Tstringlist类内部实现的。 

function Tupfile.Get_FileName: OleVariant;
begin
  Result := ExtractFileName(FFileName);
end;

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