Como acessar campos / métodos / propriedades privadas usando f # interativo
-
13-09-2019 - |
Pergunta
F # interativo é um instrumento poderoso de desenvolvimento, pois permite executar qualquer janela Wpf e invoke código arbitrário lá WinForm ou.
Isto dá um caminho para um 'try-before-you código' abordagem.
Muitas vezes eu desejo 'quebrar os limites' explicitamente e
- invocar métodos private / protected
- Acesso / mudança campos privados e propriedades
Existe uma solução para conseguir isso?
Solução
FSI não fornecer qualquer apoio específico para isso, mas você pode usar o reflexo para fazer as coisas que você quer.
open System.Reflection
let field = typeof<MyType>.GetField("fieldName", BindingFlags.NonPublic ||| BindingFlags.Instance)
field.SetValue(myInstance, newVal)
Você pode ir mais longe e definir métodos ou operadores para fazer isso ainda mais fácil. Por exemplo, você pode configurar F # 's operador de atribuição dinâmica para atribuir a campos particulares:
let (?<-) o s v =
let field = (o.GetType()).GetField(s, BindingFlags.NonPublic ||| BindingFlags.Instance)
field.SetValue(o,v)
myInstance?fieldName <- newVal (* Note: no quotes around fieldName here *)
Aqui está um código de crude para resolver campos públicas ou privadas, propriedades ou métodos. Note-se que há uma abundância de maneiras em que isto irá falhar (em particular, tentando usá-lo em métodos sobrecarregados não funcionará).
open System
open System.Reflection
open Microsoft.FSharp.Reflection
type DynamicHelper =
static member MkMethod<'t,'u> (mi:MethodInfo) o : 't -> 'u=
let typ = typeof<'t>
fun t ->
let args =
if (typ = typeof<unit>) then [||]
else
if not (FSharpType.IsTuple typ) then [| box t |]
else
FSharpValue.GetTupleFields t
mi.Invoke(o, args) :?> 'u
let (?) (o:'a) s : 'b =
let ty = o.GetType()
let field = ty.GetField(s, BindingFlags.Instance ||| BindingFlags.Public ||| BindingFlags.NonPublic)
if field <> null then field.GetValue(o) :?> 'b
else
let prop = ty.GetProperty(s, BindingFlags.Instance ||| BindingFlags.Public ||| BindingFlags.NonPublic)
if prop <> null then prop.GetValue(o, null) :?> 'b
else
let meth = ty.GetMethod(s, BindingFlags.Instance ||| BindingFlags.Public ||| BindingFlags.NonPublic)
let d,r = FSharpType.GetFunctionElements(typeof<'b>)
typeof<DynamicHelper>.GetMethod("MkMethod").MakeGenericMethod([|d;r|]).Invoke(null, [| box meth; box o |]) :?> 'b
Com isso, você pode dinamicamente invocar métodos e propriedades como tal:
let (t:System.Type) = "test"?GetType()?BaseType