我在Windows窗体WebBrowser控件中呈现以下简单的HTML:
<HTML>
<HEAD></HEAD>
<BODY bottommargin='0' leftmargin='10' rightmargin='0' topmargin='10'>
<span>Programs</span><br /><br />
<a href='file:///C:\Temp\prog1.cnc'>Program 1</a><br />
<a href='file:///C:\Temp\prog2.cnc'>Program 2</a><br />
<a href='file:///C:\Temp\prog3.cnc'>Program 3</a><br />
</BODY>
</HTML>
问题是链接无法导航到href属性中标识的文件。
我可以确认控件上的AllowNavigation
属性设置为True
。
此外,单击链接时,Navigating
事件不会触发。
如果我更改路径以引用远程共享上的文件,则一切都按预期工作,例如:
<a href='file://\\servername\Temp\prog1.cnc'>Program 1</a>
没有file
前缀的OR:
<a href='\\servername\Temp\prog1.cnc'>Program 1</a>
两者都会触发Navigating
事件。
引用本地文件时我缺少什么?
我尝试将文件路径更改为公用文件夹以排除权限问题。 同一个应用程序也在编写文件,因此权限问题似乎不太可能。
文件是简单的文本文件,我试图在点击链接时在浏览器控件中显示这些文件。
DocumentText
属性:Private Shared Function LoadProgramHtml(ByVal programFiles() As String) As String
Dim programHtml As New StringBuilder
If ProgramFiles.Length > 0 Then
programHtml.AppendLine("<HTML>")
programHtml.AppendLine("<HEAD></HEAD>")
programHtml.AppendLine("<BODY bottommargin='0' leftmargin='10' rightmargin='0' topmargin='10'>")
programHtml.AppendLine("<span>Programs</span><br /><br />")
For Each program As String In ProgramFiles
Dim progInfo As New FileInfo(program)
programHtml.AppendLine(String.Format("<a href='file://{0}'>{1}</a><br />", progInfo.FullName, progInfo.Name.ToUpper))
Next
programHtml.AppendLine("</BODY>")
programHtml.AppendLine("</HTML>")
End If
WebViewer.DocumentText = programHtml.ToString()
End Function
Private Sub WebViewer_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebViewer.Navigating
Dim filepath As String = e.Url.OriginalString
If File.Exists(filepath) Then
Dim progInfo As New FileInfo(filepath)
If progInfo.Extension.ToLower = ".cnc" Then
WebViewer.ScrollBarsEnabled = True
WebViewer.DocumentText = File.ReadAllText(e.Url.OriginalString).Replace(Chr(13), "<br />")
End If
e.Cancel = True
End If
End Sub
答案 0 :(得分:0)
我找到了一个可以让我暂时继续工作的工作,但如果有人对所描述的行为有解释,我仍然会感兴趣。
通过伪造远程文件路径,我可以使Navigating
事件像实际远程文件一样触发,然后在Navigating
事件中,我重新写入重新引用的路径本地文件如下:
变化:
programHtml.AppendLine(String.Format("<a href='file://{0}'>{1}</a><br />", progInfo.FullName, progInfo.Name.ToUpper))
要:
programHtml.AppendLine(String.Format("<a href='{0}' target='_top'>{1}</a><br />", progInfo.FullName.ToLower.Replace("c:", "\\faked"), progInfo.Name.ToUpper))
'note the `\\faked`
Navigating
事件添加以下内容:
Dim filepath As String = e.Url.OriginalString.Replace("\\faked", "c:")
If File.Exists(filepath) Then
....