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

领测软件测试网

  i:integer;
  afile:file of byte;
begin
  fsout := TFileStream.Create(Filename,fmcreate);
  for i := 1 to length(FFileData) do
  begin
    fsout.Write(Byte(FFileData[i]),1)
  end;
  fsout.Free;
end;
 


这个方法将文件保存到服务器上的磁盘。 

编译myobj这个project，得到一个myobj.dll文件。开发工作就此完成。 

3 使用ASP上传组件 

在命令行下，输入“regsvr32 myobj.dll”。弹出一个对话框，告诉你组件已经注册。如果找不到regsvr32.exe这个文件，它在windows\system32或winnt\system32目录下。 

将本文开头提到的test.asp文件修改为如下内容： 

<%’建立对象 
Set upfile = Server.CreateObject("myobj.upfile")

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