DelphiでtagDECを使用する方法

Question

Delphi 2007にCOM Interopで使用できる.Netクラスライブラリをインポートし、Decimalデータ型をtagDECパックレコードとして使用可能にしました。クラスライブラリを使用できるように、このレコードタイプをどのように使用すればよいでしょうか？
TKS

編集

以下

COM相互運用機能を通じてのActiveXとして公開され、私のC＃のコードです：

[ComVisible(true)] 
    [ClassInterface(ClassInterfaceType.AutoDual)] 
    [ProgId("ClassLibrary.Class1")] 
    public class Class1 
    { 
    [ComVisible(true)] 
    public string Method1(DateTime pDateTime, int pID, decimal pQty) 
    { 
...........  
    } 
    } 

で私は、DelphiでPC上のregasmでライブラリを登録コマンド：

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe .\ClassLibrary.dll /tlb:ClassLibrary.tlb 

デルファイ2007では、インポートコンポーネント、私はタイプライブラリをインポートし、それはのは、プロキシクラスで次のメソッドに変換し得る：

function Method1(pDateTime: TDateTime; pID: Integer; pQty: TDecimal): WideString; 

TDecimalはActiveX単位で見つかった、実際にタイプtagDECのpacked recordです。

{ from WTYPES.H } 
    PDecimal = ^TDecimal; 
    {$EXTERNALSYM tagDEC} 
    tagDEC = packed record 
    wReserved: Word; 
    case Integer of 
     0: (scale, sign: Byte; Hi32: Longint; 
     case Integer of 
     0: (Lo32, Mid32: Longint); 
     1: (Lo64: LONGLONG)); 
     1: (signscale: Word); 
    end; 
    TDecimal = tagDEC; 
    {$EXTERNALSYM DECIMAL} 
    DECIMAL = TDecimal; 

私の質問は、私はこれを記入する方法であるので、私は、.NETクラスライブラリのメソッドに小数点値を渡すことができます。以下は、それは構文がありますか？ヘルパー機能はありますか？私は何も見つかりませんでした。
Tksもう一度！

Answer 1

あなたは簡単に試してみませんか？私は.NETtyではないので、テストすることができますが、

スケールを10000、hi32〜5432に設定して0にサインしてください。+ 5432/10000 = 0.5432を幸運にも通過しようとすると、符号が負の場合はTRUE、正の場合は0とみなされます（逆の場合もあります）。

あなたのヘッダーに少しかかわっています。 "p"ハンガリー語接頭辞はポインタ値を示すようです。

var x : TAGDEC; 
    begin 
    x.scale:=10000; 
    x.hi32:=5432; 
    x.sign:=0; 
    comobject.method1(theDateTime,thePID,x); 
    end; 

Answer 2

ご希望の場合、Decimalを不透明なタイプと見なすことができます。これを行うには、Decimal値を合成してDelphiからそのコードを呼び出す必要があるヘルパーをC＃コードから書き出します。私の推測では、Double - > Decimalヘルパーが必要で、逆もまた同様です。

また、フェンスのC＃側で倍精度を使用し、Decimalに変換するようにC＃/ COMインターフェイスを変更することもできます。偶然

Answer 3

は、私は今週反対の問題を抱えていた：私はC＃のメソッドのいくつかは（DelphiでTDecimalまたはtagDEC）をdecimalを返すデルファイ、中にCOM経由のC＃ライブラリを消費していて、また何を思っていましたそれに関係する。トリックをした

VarR8FromDec(PDecimal, out double); 

：

のActiveX、ComObjとOleServerユニットを検索した後、私はこの機能を発見しました。私はDelphiを持っていませんし、前述のソースもここでは便利ですが、その逆を行う方法を見つけることができます。

明確な答えはありませんが、おそらくそれが役に立ちます。