Help...wimper.. been trying to get a virtualpathprov ider to work and I have
to be missing something. I want users to be able to enter something like
mydomain.com/userentereddire ctory/ and have that serve up a file. So I use
vpp to code up an initialization even, virturalfile, virtualdirector y and
virtualpath provider. I have a simple file for testing testing.aspx (no
codebehind) that just sets a label to 'hello world' on pageload. Now when I
debug and just to go mydomain.com/userentereddire ctory - I get the text that
makes up my tester.aspx file return but its not compiled or executed - if i
specify mydomaing.com/user../tester.aspx I get 'Directory 'C:\Documents and
Settings\Ken\My Documents\Visua l Studio 2005\WebSites\H uningtonManor\9 26'
does not exist. Failed to start monitoring file changes.' Can't figure out
what I'm doing wrong - I looked at all the tutorials out there and everything
seems to be working as it should?! Code to follow.. All code is in app_code
- now I merely hardcoded 926 as the begining to test for a virtual directory
- just tryng to make this work before i put in my true implementation.
<b><i>RegisterP rovider</i></b>
Namespace HuntingtonManor .Framework
Public Class AppStart
Public Shared Sub AppInitialize()
Dim DynamicProvider As DynamicPathProv ider = New
DynamicPathProv ider()
HostingEnvironm ent.RegisterVir tualPathProvide r(DynamicProvid er)
End Sub
End Class
End Namespace
<b><i>VirtualPa thProvider</i></b>
Namespace HuntingtonManor .Framework
<AspNetHostingP ermission(Secur ityAction.Deman d,
Level:=AspNetHo stingPermission Level.Medium), _
AspNetHostingPe rmission(Securi tyAction.Inheri tanceDemand,
level:=AspNetHo stingPermission Level.High)> _
Public Class DynamicPathProv ider
Inherits VirtualPathProv ider
Public Sub New()
MyBase.New()
End Sub
Protected Overrides Sub Initialize()
End Sub
Private Function IsPathVirtual(B yVal virtualPath As String) As Boolean
'Return True
Dim checkPath As String
checkPath = VirtualPathUtil ity.ToAppRelati ve(virtualPath)
Return checkPath.Start sWith("~/926",
StringCompariso n.InvariantCult ureIgnoreCase)
End Function
Public Overrides Function FileExists(ByVa l virtualPath As String) As
Boolean
If (IsPathVirtual( virtualPath)) Then
Dim file As DynamicVirtualF ile
file = CType(GetFile(v irtualPath), DynamicVirtualF ile)
'Return file.Exists
Return True
Else
Return Previous.FileEx ists(virtualPat h)
End If
End Function
Public Overrides Function DirectoryExists (ByVal virtualDir As
String) As Boolean
If (IsPathVirtual( virtualDir)) Then
Dim dir As DynamicVirtualD irectory
dir = CType(GetDirect ory(virtualDir) , DynamicVirtualD irectory)
'Return dir.exists
Return True
Else
Return Previous.Direct oryExists(virtu alDir)
End If
End Function
Public Overrides Function GetDirectory(By Val virtualDir As String)
As System.Web.Host ing.VirtualDire ctory
If (IsPathVirtual( virtualDir)) Then
Return New DynamicVirtualD irectory(virtua lDir, Me)
Else
Return Previous.GetDir ectory(virtualD ir)
End If
End Function
Public Overrides Function GetFile(ByVal virtualPath As String) As
System.Web.Host ing.VirtualFile
If (IsPathVirtual( virtualPath)) Then
Return New DynamicVirtualF ile(virtualPath , Me)
Else
Return Previous.GetFil e(virtualPath)
End If
End Function
End Class
End Namespace
<b><i>VirtualFi leProvider</b></i>
Namespace HuntingtonManor .Framework
<AspNetHostingP ermission(Secur ityAction.Deman d,
Level:=AspNetHo stingPermission Level.Minimal), _
AspNetHostingPe rmission(Securi tyAction.Inheri tanceDemand,
level:=AspNetHo stingPermission Level.Minimal)> _
Public Class DynamicVirtualF ile
Inherits VirtualFile
Private spp As DynamicPathProv ider
Public Sub New(ByVal virtualPath As String, ByVal provider As
DynamicPathProv ider)
MyBase.New(virt ualPath)
spp = provider
End Sub
Public Overrides Function Open() As System.IO.Strea m
'this is the file I want to serve
Dim templateFile As String
templateFile = HostingEnvironm ent.Application PhysicalPath &
"tester.asp x"
Dim pageTemplate As String
pageTemplate = My.Computer.Fil eSystem.ReadAll Text(templateFi le)
' Put the page content on the stream.
Dim stream As MemoryStream
stream = New MemoryStream()
Dim writer As StreamWriter
writer = New StreamWriter(st ream)
writer.Write(pa geTemplate)
writer.Flush()
stream.Seek(0, SeekOrigin.Begi n)
Return stream
End Function
End Class
End Namespace
<b><i>VirtualDi rectoryProvider </i></b>
Namespace HuntingtonManor .Framework
<AspNetHostingP ermission(Secur ityAction.Deman d,
Level:=AspNetHo stingPermission Level.Minimal), _
AspNetHostingPe rmission(Securi tyAction.Inheri tanceDemand,
level:=AspNetHo stingPermission Level.Minimal)> _
Public Class DynamicVirtualD irectory
Inherits VirtualDirector y
Private spp As DynamicPathProv ider
' Declare the variable the property uses.
Private existsValue As Boolean
Public ReadOnly Property exists() As Boolean
Get
Return existsValue
End Get
End Property
Public Sub New(ByVal virtualDir As String, ByVal provider As
DynamicPathProv ider)
MyBase.New(virt ualDir)
spp = provider
End Sub
Private childrenValue As ArrayList
Public Overrides ReadOnly Property Children() As
System.Collecti ons.IEnumerable
Get
Return childrenValue
End Get
End Property
Private directoriesValu e As ArrayList
Public Overrides ReadOnly Property Directories() As
System.Collecti ons.IEnumerable
Get
Return directoriesValu e
End Get
End Property
Private filesValue As ArrayList
Public Overrides ReadOnly Property Files() As
System.Collecti ons.IEnumerable
Get
Return filesValue
End Get
End Property
End Class
End Namespace
<b><i>Tester.as px</i></b>
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt d">
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArg s)
Me.Label1.Text = "blah blah blah"
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitl ed Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label></div>
</form>
</body>
</html>
