我这里有个c的函数
__declspec(dllexport) void WINAPI jiami(char *buf, long buflen)
{
char charbefore,charafter;
int shiwei[16]={12,1,13,0,2,4,6,3,7,10,8,11,15,9,5,14};
int gewei[16] ={13,6,4,1,11,9,7,5,3,12,14,2,15,8,0,10};
int i;
int highbyte,lowbyte;
for(i=0;i<buflen;i++)
{
charbefore=buf[i];
highbyte=(charbefore & 0xF0) /16;
lowbyte=charbefore & 0x0F;
charafter=shiwei[highbyte] * 16 + gewei[lowbyte];
buf[i]=charafter; }
return ;
}
现在我想把他转换成delphi的,但我是新人对其中不同类型的计算还不是很清楚。
求高手能帮我看看这个如何转换。3x!!!
__declspec(dllexport) void WINAPI jiami(char *buf, long buflen)
{
char charbefore,charafter;
int shiwei[16]={12,1,13,0,2,4,6,3,7,10,8,11,15,9,5,14};
int gewei[16] ={13,6,4,1,11,9,7,5,3,12,14,2,15,8,0,10};
int i;
int highbyte,lowbyte;
for(i=0;i<buflen;i++)
{
charbefore=buf[i];
highbyte=(charbefore & 0xF0) /16;
lowbyte=charbefore & 0x0F;
charafter=shiwei[highbyte] * 16 + gewei[lowbyte];
buf[i]=charafter; }
return ;
}
现在我想把他转换成delphi的,但我是新人对其中不同类型的计算还不是很清楚。
求高手能帮我看看这个如何转换。3x!!!
解决方案 »
- 有关delphi的pagecontrol控件使用问题
- delphi绘坐标图
- 如何用存储过程实现数据备份和数据还原??
- 这个MS SQL里的语句在ACCESS该怎改?
- 为什么控件的消息未被执行?
- 今天我过生日,喝多了。
- 这种情况如何写存储过程实现或者SQL实现?
- 高难度问题:怎样在VCL的onClick事件触发之前捕获到该VCL的Click事件,完成自己的以后在继续onClick事件处理程序?急迫
- 在表里面有个单号字段,00001a,请问怎样提取第五位数
- 2.RICHEDIT一个奇怪的问题,我在它里面用五笔打字,可除每行第一个字外全是乱码,有时复制一下再贴回来就好了。但直接打时肯定不行,在任何时间,帮帮忙啊.30分来者有,信用至上。
- 菜鸟问题送分
- 如何获得网页上的验证码图片上的数字?
var
charbefore,charafter:char;
shiwei:array[0..15] of integer=[12,1,....];//十位
gewei:array[0..15] of integer=[13,6....];//个位
i,highbyte,lowbyte:integer;
tmpstr:String;