最后的分数.问一个问题.VB函数转为Delphi函数.(66)

  • 主题发起人 主题发起人 yeszhang
  • 开始时间 开始时间
Y

yeszhang

Unregistered / Unconfirmed
GUEST, unregistred user!
int OneCommand(int cmd, int dlength,BYTE * pBuff,int nTypeAB, int nOutOfTime) 给个例子吧.
 
function OneCommand(cmd:Smallint; dlength:smallInt; pBuff:PChar; nTypeAB,nOutOfTime:SmallInt): SmallInt;//Delphi中, Smallint 2个字节, integer 4个字节案例:var pBuff:PChar; iReturn:Integer;begin pBuff:=StrAlloc(1500); iReturn := OneCommand(0x3001,0, pBuff, 1, 1500); if iReturn<0 then begin showmessage('error'); StrDispose(pBuff); Exit; end; //处理数据 StrDispose(pBuff);end;
 
接受答案了.
 
OneCommand(0x3001,0, pBuff, 1, 1500); 语法错误.0x3001就编译不过去,呵呵.我基础不好, 这样的数字0x3001 在Delphi如何表示呢?
 
后退
顶部