リフレクションを使用してアクション<'T>のインスタンスを作成する

Question

リフレクションを使用してAction<'T>のインスタンスを作成するにはどうすればよいですか？ここで私が持っているものです。

System.ArgumentExceptionの：エラーがメソッドをターゲットに結合してbarfs

let makeAction (typ:Type) (f:'T -> unit) = 
    let actionType = typedefof<Action<_>>.MakeGenericType(typ) 
    let converter = FSharpFunc.ToConverter(f) 
    Delegate.CreateDelegate(actionType, converter.Method) 

を。 System.Delegate.CreateDelegate（タイプタイプ、METHODINFO法、ブールthrowOnBindFailure）で

'T

、そのtyp実装のインタフェースです。

Answer 1

私には2つの問題があると思います。最初の1つは、CreateDelegateオーバーロードに3つの引数を必要とする呼び出しをする必要があることです。 additional引数は、メソッドを呼び出すインスタンスを指定します。

第2の問題は、voidを返すメソッドではなく、Microsoft.FSharp.Core.Unitを返すメソッドとして実際にコンパイルすることです。簡単な回避策があるかどうかはわかりませんが、メソッドを持つラッパーを定義できます。ユニットの種類が、その場合にはvoidとしてコンパイルされますので、メンバーは、C＃のように見えるようにコンパイルされています

open System 

type Wrapper<'T>(f:'T -> unit) = 
    member x.Invoke(a:'T) = f a 

let makeAction (typ:Type) (f:'T -> unit) = 
    let actionType = typedefof<Action<_>>.MakeGenericType(typ) 
    let wrapperType = typedefof<Wrapper<_>>.MakeGenericType(typ) 
    let wrapped = Wrapper<_>(f) 
    Delegate.CreateDelegate(actionType, wrapped, wrapped.GetType().GetMethod("Invoke")) 

makeAction (typeof<int>) (printfn "%d") 

EDIT -

それは実際に（インターフェイスで）あなたのシナリオで動作させるためにマイナーチェンジをしました