5

F#から外部DLL関数にアクセスしようとしています。これは本当に汗をかきます。

Cヘッダーは次のとおりです。

ext_def(int32) swe_calc_ut(double tjd_ut, int32 ipl, int32 iflag, 
double *xx, char *serr);

それに応じてF#にインポートしました:

extern int32 ext_swe_calc_ut(double tjd_ut, int32 ipl, int32 iflag, double *xx, StringBuilder serr);

問題は配列部分です。F#PowerpackからPinnedArrayを試しましたが、それでも呼び出しは失敗します。呼び出しが失敗したために確認できませんが、char配列はおそらく問題ありません。

これまでのところ:

open System
open System.Runtime.InteropServices
open System.Text
open Microsoft.FSharp.NativeInterop

#r "FSharp.PowerPack.dll" 
#nowarn "51"

module Sweph =

    [<DllImport(@"swedll32.dll", CharSet = CharSet.Ansi, EntryPoint = "swe_calc_ut")>]
    extern int32 ext_swe_calc_ut(double tjd_ut, int32 ipl, int32 iflag, double *xx, StringBuilder serr);
    /// <param name="jdnr">Julian day</param>
    /// <returns>Array with 6 doubles: 0:longitude, 1:latitude, 2:distance,3:speel in longitude, 
    ///          4: speed in latitude, 5: speed in distance </returns>


let ar: double array = Array.zeroCreate 6
let argx = PinnedArray.of_array ar

printfn "  ar: %A" ar

// This fails with a "FileLoadException"
printfn "ar: %A" argx

// Details of FileLoadException:
(*

"FSharp.Core、Version = 2.0.0.0、Culture = neutral、PublicKeyToken = b03f5f7f11d50a3a"アセンブリが一致しません(Ausnahme von HRESULT:0x80131040)*)

// However, if I leave the printfn for argx out, code continues and does not display this error again.

let sb = new StringBuilder(50)          // Vgl. Expert F#, S. 515

Console.ReadKey(true)


// Application crashes here:
let ret_calc = Sweph.ext_swe_calc_ut(4700.0,1,1,argx.Ptr,sb)

この時点でプログラムがクラッシュします(コンソールウィンドウが消え、デバッグ中は最初の行にジャンプして戻ります。

「letargx=PinnedArray.of_array ar」で「let」の代わりに「use」を使用できることは知っていますが、上部にモジュール宣言があるため、コンパイラーはそれを許可しません。

C#には次のような実装があります。

    public static double[] getPlanet(int ipl, double jdnr) {
        //   String ephePath = "Q:\\sweph\\";
        //   Sweph.setEphePath(ephePath);
        double[] xx2 = new double[8];
        double[] xx = new double[6];
        String serr = "";
        int iflag = Constants.SEFLG_SPEED;
        long iflgret = ext_swe_calc_ut(jdnr, ipl, iflag, xx, serr);
        for (int i = 0; i < 6; i++) { 
            xx2[i] = xx[i]; 
        }
        iflag = Constants.SEFLG_SWIEPH | Constants.SEFLG_SPEED | Constants.SEFLG_EQUATORIAL;
        iflgret = ext_swe_calc_ut(jdnr, ipl, iflag, xx, serr);
        xx2[6] = xx[0];
        xx2[7] = xx[1];

        return xx2;
    }

おそらく、問題全体がFileLoad例外に戻っている可能性があります(dll呼び出しに表示されていなくても)-おそらくFSharp Powerpackが原因ですか?

本当にありがとうございました。

4

2 に答える 2

3

これが私の推測です。C型アノテーションと私が見つけた関数のドキュメントに基づいています。swedll32.dllコンパイルされますが、アセンブリがないため、実際に機能するかどうかを教えてください。また、私のコードはF#Powerpackアセンブリを必要としません。

編集:@kvbの答えの下にあるコメントを読んでください-彼は私がコードに含めたのと同じことを提案しました。それはプロパティが設定された[<MarshalAs(...)>]属性ですSizeConst[<Out>]最後の2つのパラメーターが戻り値として使用されるため、も追加しました。IIRC、マーシャリング動作にも影響します。

編集2:@wolfgangのレポートに従ってExactSpelling = true、属性からを削除しました。MarshalAs

[<DllImport(@"swedll32.dll",
    CharSet = CharSet.Ansi,
    EntryPoint = "swe_calc_ut")>]
extern int32 swe_calc_ut (
    float tjd_ut,
    int32 ipl,
    int32 flag,
    [<Out; MarshalAs(UnmanagedType.LPArray, SizeConst = 6)>]
    float[] xx,
    [<Out; MarshalAs(UnmanagedType.LPStr, SizeConst = 256)>]
    System.Text.StringBuilder serr)

// Wrapper function for swe_calc_ut
let swe_calc_ut_wrapper (tjd_ut, ipl, flag) =
    let positions = Array.zeroCreate 6
    let errorSB = System.Text.StringBuilder (256)
    let result = swe_calc_ut (tjd_ut, ipl, flag, positions, errorSB)
    if result < 0 then
        // Error
        Choice2Of2 (result, errorSB.ToString ())
    else
        Choice1Of2 positions
于 2012-09-27T21:56:54.093 に答える
1

System.Runtime.InteropF#PowerPackに依存するのではなく、名前空間の機能を使用しようとする場合があります。私はあなたが次のようなことを試してみたいと思います:

let hndl = GCHandle.Alloc(ar, GCHandleType.Pinned)
let ptr : double nativeptr = 
    hndl.AddrOfPinnedObject() 
    |> NativePtr.ofNativeInt

let ret_calc = Sweph.ext_swe_calc_ut(4700.0,1,1,ptr,sb)

hndl.Free()

ただし、C#コードは別の相互運用機能シグネチャを使用しているようです。これxxはadouble[]およびserraとしてマーシャリングしていますstring(おそらく、を返しているようint64です)。そのコードが機能する場合は、F#で同じことを実行することをお勧めします...

于 2012-09-27T14:35:57.003 に答える