使用 .NET XML Web Services上传文件

文章作者：佚名录入时间：2006-6-13 来源：不详
网站声明：本站的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出处和原始作者，文章版权归本网站与文章作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。

文件上传至asp.net webservice的一种方法

IIS ASP.net webservice服务端

    Public Function uploadfile(filename as String,filecontent() As Byte) As String
      Dim m As New MemoryStream(filecontent)
      Dim f As New FileStream(filename, FileMode.Create)
      m.WriteTo(f)
      m.Close()
      f.Close()
      Return "OK"
     End Function

winform客户端
把文件内容读到数组里.

    Imports System.IO
    Imports System.Enum
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim f As System.IO.File
      Dim fs As System.IO.FileStream
      Dim uploadservice As New txsvr06.Service1
      Dim localfilename,serverfilename as String
      localfilename="c:\test.txt"
      serverfilename="d:\wwwroot\uploadfiles\test.txt"
      fs = f.Open(localfilename, IO.FileMode.Open, IO.FileAccess.Read)
      Dim filecontent(fs.Length - 1) As Byte
      fs.Read(filecontent, 0, fs.Length)
      MsgBox(uploadservice.UploadFile(serverfilename,filecontent))
      f = Nothing
      fs.Close()
    End Sub

文件名不必用绝对路径.

如果serverfilename不用绝对路径,则在服务器端
把Dim f As New FileStream(filename, FileMode.Create)
改为Dim f As New FileStream(server.mappath(filename), FileMode.Create)

作者：lumingtong【atong】