VC函数定义如何转换成Delphi定义，在线等待！！

Question

unsigned    long    EleT2Write( 
    unsigned  short  usOffset, 
     char            *pcPassword, 
    unsigned  char  *pucInbuffer, 
    unsigned  short  usInbufferLen, 
    unsigned  short *usWrittenLen 
    ); 
以上定义在Delphi中如何定义？请各位大虾帮忙，在线等待

Answer 1

function EleT2Write(usOffset:Word;pcPassword:pChar;pucInBuffer:pChar;usInBufferLen:Word;usWrittenLen:PWord):LongWord;

Answer 2

有点问题，这样更准确：function EleT2Write(usOffset:Word;pcPassword:pChar;pucInBuffer:PByte;usInBufferLen:Word;usWrittenLen:PWord):LongWord;

Answer 3

function EleT2Write(usOffset: Word; pcPassword: PChar; pucInbuffer: PChar;
  usInbufferLen: Word; var usWrittenLen: Word): Cardinal;//stdcall;??

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
    lw:LongInt;
    usOffset:Word;
    pcPassword:pChar;
    pucInBuffer:PByte;
    usInBufferLen:Word;
    usWrittenLen:PWord;    bytes:array[0..1024] of Byte;
    WrittenLen:Word;
begin
    pcPassWord:=pChar('pass');
    pucInBuffer:=PByte(@bytes[0]);
    usInBufferLen:=1024;
    usWrittenLen:=@WrittenLen;    lw:=EleT2Write(usOffset,pcPassword,pucInBuffer,usInBufferLen,usWrittenLen);
end;

Answer 5

Funtion EleT2Write(usOffset:Word;pcPassword:pChar;pucInBuffer:pChar;usInBufferLen:Word;usWrittenLen:PWord):LongWord;
调用和VC是一样的，大家都是传参数而已，只是其定义变量方法有点区别：
Delphi
var //用Var关键字定义变量
UsOffset :Word //用：声明类型

Answer 6

呵呵,来晚了,都被你们说完了,不过,如果动态库的引用话,要注明是stdcall,否则调用可能会出错,因为,C的参数传递顺序与Delphi不一样.具体可以参见Delphi开发人员指南,有相应的说明.