Question

C#一段简单调用DLL的代码翻译成DELPHI

C#
public struct HJstruct
{
public int lenDat; //输入输出的数组中的字节数
public int RWinstr; //读写指令码
public int RetYesNo; //返回码（0=写码成功，1=写码失败，2=读码成功，4=热启动成功）
public int indexNum; //序号
public byte byteType; //类型码
public byte byteAddr; //地址码
public byte byte1Dat; //字节数据
public byte byte2Dat; //字节数据
public byte byte3Dat; //字节数据
public byte byte4Dat; //字节数据
public byte byte5Dat; //字节数据
public byte byte6Dat; //字节数据
public byte byte7Dat; //字节数据
public byte byte8Dat; //字节数据
public ushort int1Dat; //整型数据
public ushort int2Dat; //整型数据
public ushort int3Dat; //整型数据
public ushort int4Dat; //整型数据
public uint long1Dat; //长整型数据
public uint long2Dat; //长整型数据
[MarshalAs(UnmanagedType.ByValArray, SizeConst = 1024)]
public byte[] bDat; //输入或输出的数据
double float1Dat; //浮点数数据
}定义结构体
public static HJstruct theHJ;
public static HJstruct theHJOperate;
[DllImport("HJHSHT.dll")]
public static extern Int32 enCodingData(ref HJstruct theHJ);//调用DLL
private void button1_Click(object sender, EventArgs e)
{
int n;
n = enCodingData(ref theHJOperate);
MessageBox.Show(Convert.ToString(n), "提示 ", MessageBoxButtons.OK, MessageBoxIcon.Error);
}调用DLL的函数，，
注：搞不清楚的是REF传递。。请高手指点~小弟分数不多，热心的高手请不要嫌弃分少
请求详细代码~~谢谢

Answer 1

REF对应Delphi函数参数中用var声明的参数

Answer 2

简单翻译可以，不过你没提供这个dll，没法试，不知道翻译之后 能不能用