用FileStream上传文件转换成二进制

csstome

用FileStream上传图片转换成二进制,在本地用行,传到服务器上去出现如下错误

未能找到路径“C:\Documents and Settings\xxxxxxx.doc”的一部分。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.IO.DirectoryNotFoundException: 未能找到路径“C:\Documents and Settings\ xxxxxxx.doc”的一部分。

Debug,本地上传没有任何问题。

分析：根据提示“找不到本地路径…”，不是权限的问题。

查阅相关资料，得到出错的结论如下:

1. 程序运行在服务器端，上传文件来自于客户端。
2. FileStream 只支持本地数据流上传，所有会造成本地上传没有问题，上传到服务器时报错。
3. Stream允许远程数据流上传，本地到服务器，本地到本地都没有问题。

修改：将FileStream改成Stream

将代码：

' Dim fs As New FileStream(xHIF.PostedFile.FileName, FileMode.Open, FileAccess.Read)

' Dim br As New BinaryReader(fs)

修改为：

Dim fs As Stream = xHIF.PostedFile.InputStream

Dim br As New BinaryReader(fs)

Dim bytes As Byte() = br.ReadBytes(CInt(fs.Length))

br.Close()

fs.Close()

完整上传文件代码片断

Protected Sub Button_File_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_Plans_Save.Click

Dim baseLocation = "D:\CAR_Files\"

Try

Dim status = ""

Dim istg_plan_id As String

istg_plan_id = GetPlansID()

If (ListBox_Files.Items.Count = 0) And (filesUploaded = 0) Then

Me.Label_File_Status.Text = "Error - a file name must be specified."

Return

Else

If Me.CreateCar3DPlans(istg_plan_id) = True Then

For Each xHIF As System.Web.UI.HtmlControls.HtmlInputFile In hif

Dim fn As String = System.IO.Path.GetFileName(xHIF.PostedFile.FileName)

Dim l_fn As String

xHIF.PostedFile.SaveAs(baseLocation & fn)

filesUploaded = filesUploaded + 1

status = status & fn & "<br>"

l_fn = baseLocation & fn

' Dim fs As New FileStream(xHIF.PostedFile.FileName, FileMode.Open, FileAccess.Read)

' Dim br As New BinaryReader(fs)

Dim fs As Stream = xHIF.PostedFile.InputStream

Dim br As New BinaryReader(fs)

Dim bytes As Byte() = br.ReadBytes(CInt(fs.Length))

br.Close()

fs.Close()

Dim lf_desc As String

Dim lf_type As String

Dim lf_size As String

lf_desc = System.IO.Path.GetExtension(xHIF.PostedFile.FileName)

lf_type = xHIF.PostedFile.ContentType.ToString

lf_size = xHIF.PostedFile.ContentLength.ToString

CreateCar3DPlansFile(istg_plan_id, fn, lf_desc, lf_type, lf_size, bytes, l_fn)

Response.Write(fn)

Next

End If

If filesUploaded = hif.Count Then

Me.Label_File_Status.Text = "These " & filesUploaded.ToString & " file(s) were uploaded:<br>" + status

End If

hif.Clear()

ListBox_Files.Items.Clear()

End If

GetCar3DPlans()

Catch ex As Exception

Response.Write(ex.ToString)

Me.Label_File_Status.Text = "Error saving file " & baseLocation & "<br>" & Err.ToString()

End Try

End Sub