vb.net如何利用axwebbrowser控件显示保存在SQL image字段中的word文件？

哥是龙王 2019-11-14 09:27:57

想利用axwebbrowser控件显示保存在SQL image字段中的word文件，我目前是采用把image字段取出后保存在本地形成word文件，再用axbrowser打开，但是如果连续两次运行下面这个代码，系统会提示word文件正在被使用，想请教一下，能否利用axbrowser控件直接读取内存中的文件流而无需转存在本地再调用？

 

          If Not tmp.StartsWith("ok") Then

                If ZYT_Connection.State = ConnectionState.Closed Then ZYT_Connection.Open()

                Dim SqlInfoNR1 As New SqlCommand("select INFO_NR1 from info where info_id='" & TreeView_ML.SelectedNode.Tag & "'", ZYT_Connection)

                Dim mFILENAME As String = TreeView_ML.SelectedNode.Tag & ".doc"

                Dim ByteArr() As Byte

                ByteArr = SqlInfoNR1.ExecuteScalar



                Try

                    If (ByteArr.Length > 0) Then

                        Dim fs As FileStream = New FileStream(mFILENAME, FileMode.OpenOrCreate)

                        Dim w As New BinaryWriter(fs)

                        w.Write(ByteArr)

                        w.Flush()

                        w.Close()

                        fs.Close()

                        Dim temp_path As New FileInfo(mFILENAME)

                        AxWebBrowser1.Navigate("about:blank")

                        AxWebBrowser1.Navigate(temp_path.DirectoryName & "\" & temp_path.Name)

                    Else



                    End If

                Catch ex As Exception

                    MessageBox.Show("系统出错：" & Chr(13) & ex.Message, "转写本地文件出错提示", MessageBoxButtons.OK, MessageBoxIcon.Error)



                Finally

                    If ZYT_Connection.State = ConnectionState.Open Then ZYT_Connection.Close()

                End Try



            Else

                TextBox1.Text = TreeView_ML.SelectedNode.Text

                ' bt_tq01.PerformClick()

            End If