yte;
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")

''获得表单对象
response.write upfile.form("a1")&"<br>"
response.write upfile.form("a2")&"<br>"
response.write upfile.form("a3")&"<br>"
response.write upfile.form("a4")&"<br>"
response.write upfile.form("a5")&"<br>"
response.write upfile.form("a6")&"<br>"

''获得文件大小
response.write "文件字节数："&upfile.filesize&"<br>"
''获得文件类型
response.write "文件类型："&upfile.filetype&"<br>"

''获得文件名，保存文件
upfile.filesaveas(Server.MapPath("")+upfile.filename)

set upfile = nothing
%>

　　再次访问test.htm，提交表单。现在你可以看到相关的返回信息，并且在服务器上test.asp所处
的目录下找到上传的文件。
　　这个组件只能上传单个文件，但根据同样的原理，一次上传多个文件的功能也是不难实现的。有兴趣
的读者可以自行尝试。