記事個別表示 (4968)
これは「水無月ばけらのえび日記 : System.Uriに%2fが入らない」に関連するコメントです。
[4968] Re: 「System.Uriに%2fが入らない」
れい (2008年8月27日 17時18分)
おやゃ。
えび日記にMSDNの私の投稿が出るとは思いませんでした。
以下のコードで振る舞いを変更できます。
--ここから。
Private Const ConvertPathSlashes As Integer = &H400000
Private Const UnEscapeDotsAndSlashes As Integer = &H2000000
If m_registered Then Exit Sub
Dim permission1 As New System.Security.Permissions.ReflectionPermission(System.Security.Permissions.ReflectionPermissionFlag.AllFlags)
Dim permission2 As New System.Security.Permissions.SecurityPermission(System.Security.Permissions.SecurityPermissionFlag.AllFlags)
permission1.Demand()
permission2.Demand()
Dim parserinfo As FieldInfo
Dim flaginfo As FieldInfo
Dim httpparser As UriParser
Dim flag As Integer
parserinfo = GetType(UriParser).GetField("HttpUri", BindingFlags.NonPublic Or BindingFlags.Static)
flaginfo = GetType(UriParser).GetField("m_Flags", BindingFlags.NonPublic Or BindingFlags.Instance)
httpparser = CType(parserinfo.GetValue(Nothing), UriParser)
flag = CInt(flaginfo.GetValue(httpparser))
flag = flag And (Not ConvertPathSlashes)
flag = flag And (Not UnEscapeDotsAndSlashes)
flaginfo.SetValue(httpparser, flag)
parserinfo = GetType(UriParser).GetField("HttpsUri", BindingFlags.NonPublic Or BindingFlags.Static)
flaginfo = GetType(UriParser).GetField("m_Flags", BindingFlags.NonPublic Or BindingFlags.Instance)
httpparser = CType(parserinfo.GetValue(Nothing), UriParser)
flag = CInt(flaginfo.GetValue(httpparser))
flag = flag And (Not ConvertPathSlashes)
flag = flag And (Not UnEscapeDotsAndSlashes)
flaginfo.SetValue(httpparser, flag)
これは「水無月ばけらのえび日記 : System.Uriに%2fが入らない」に関連するコメントです。
全読: [4962]Re: 「System.Uriに%2fが入らない」からのスレッド(5件)]