0

以下のコードを Delphi に変換できる Web サイトはありますか。:

       var newpin = new IntPtr();


       newpin = Marshal.AllocHGlobal(8); // what is this function?
       retcode = Namespace.CashierCardInstallation("1234", ref newpin); // static method
       if (retcode != 0)
       {
           MessageBox.Show("installation failed");

       }



       var pin = new byte[8];
       Marshal.Copy(newpin, pin, 0, 8); // what is this function?

または、コメント付きのこれらのメソッドに相当する Delphi は何ですか? ありがとうございました!

4

1 に答える 1

3

AllocHGlobalアンマネージ メモリの割り当てと、Marshal純粋なメモリ コピーの実行に使用しているだけです。Delphi では、ネイティブ メモリをすぐに利用できるため、その必要はありません。

var
  retcode: Integer;
  Pin: array [0..7] of Byte;//or whatever the underlying data type is
begin
  retcode := Namespace.CashierCardInstallation('1234', @Pin);
  if retcode <> 0 then
  begin
    ShowMessage("installation failed");
  end;
end;
于 2013-04-26T09:56:15.457 に答える