急,谁会把C++的函数转换成Delphi函数?u8ReadBlock(u8block,u8*KeyA,u8*databuf,u8keystyle);//读块1、block,块号0－632、keyA,密钥地址3、databuf,数据缓冲区地址4、keystyle,密钥类型,TYPEA=0,TYPEB=15、默认读出16

Question

急,谁会把C++的函数转换成Delphi函数?
u8 Read_Block(u8 block,u8 *KeyA,u8 *databuf,u8 keystyle);//读块
1、block,块号 0－63
2、keyA,密钥地址
3、databuf,数据缓冲区地址
4、keystyle,密钥类型,TYPEA=0,TYPEB=1
5、默认读出16字节
//返回值 0 成功 1:参数错误 2:块操作错误 3:命令执行错误
用Delphi的话,该怎么声明和使用呢
各参数怎么定义、赋值?

Answer 1

function Read_Block( block:byte;KeyA,databuf:Pchar; keystyle:byte):byte;