求把一段C#代码，翻译成Delphi

[Alex-16888]

[DllImport("mmtools.dll", CallingConvention = CallingConvention.Cdecl)]
public static extern void WxSetDeviceInfo(int pWorker, tagDeviceInfo[] pDeviceInfo);


public struct tagDeviceInfo
{
public string ostype;
public string devicebrand;

｝


List<tagDeviceInfo> list = new List<tagDeviceInfo>();
tagDeviceInfo dev = new tagDeviceInfo();

list.Add(dev);
WxSetDeviceInfo(worker, list.ToArray());

[日立奔腾浪潮微软松下联想]

这个mmtools本身是用Delphi写的，从 CallingConvention = CallingConvention.Cdecl 这个声明来看，mmtools.dll应该是对Delphi版本做了二次封装，又用C#调用，真够绕的，所以你最好直接找Delphi版本源码，应该有demo可以参考。 就这个声明来说，大致如此吧： type tagDeviceInfo = record ostype: string; devicebrand: string; end; procedure WxSetDeviceInfo(pWorker: integer; pDeviceInfo: array of tagDeviceInfo); cdecl. external 'mmtools.dll'; procedure test; var worker: integer; dev: array of tagDeviceInfo; begin worker := 0; // 是否要赋初值可以试试 SetLength(dev, 1); WxSetDeviceInfo(worker, dev); end;

[骑牛上铂金]

调用了mmtools.dll中的WxSetDeviceInfo。 楼上