winform 端代码(引用WEB服务名称为upload;webservice文件名为uploadfile)
' fname 为文件路径(包括文件名)
Dim FileReader As System.IO.FileStream = System.IO.File.Open(fname, IO.FileMode.Open)
Dim FileByte(FileReader.Length) As Byte
FileReader.Read(FileByte, 0, FileReader.Length)
FileReader.Close()
Dim uploadpic As New upload.uploadfile
if uploadpic.uploadpic(FileByte)=true then
msgbox("上传成功!")
end if
webservice端代码(名称为uploadfile):
<WebMethod(Enablesession:=True)> _
Public Function uploadfile(ByVal uploadstr As Byte()) As Boolean
'uploadpath为保存文件的路径(包括文件名)
Dim FileToWrite As New System.IO.MemoryStream(uploadstr)
Dim FileReader As System.IO.FileStream = System.IO.File.Open(uploadpath, IO.FileMode.Create)
FileToWrite.WriteTo(FileReader)
FileToWrite.Close()
FileReader.Close()
Return True
End Function
写的不是很清楚;运行环境为VS2003+WIN2000 SERVRE
有什么疑问;可以给我发邮件或留言