那位仁兄帮忙将下面三个BCB的函数转换成DELPHI的，不胜感激！ - C++ Builder / Windows SDK/API
那位仁兄帮忙将下面三个BCB的函数转换成DELPHI的，不胜感激！
void fill_head(BYTE *da, char id, char mark, int len)
{
da[0] = 0x1b;
da[1] = '$';
da[2] = 'S';
da[3] = 'Z';
da[4] = 'L';
da[5] = 'G';
da[6] = id;
da[7] = '1';
da[8] = 0x00;
da[9] = len;
da[10] = mark;
}
int get_sum(BYTE *da, int len)
{
int sum = 0;
for(int i=0; i<len+4; i++) sum = sum + da[YINDAO_LEN +i];
da[YINDAO_LEN + len + 4 + 0] = (sum>>8) & 0xff;
da[YINDAO_LEN + len + 4 + 1] = sum & 0xff;
int send_len = YINDAO_LEN + 4 + da[9] + 2;
return send_len;
}
unsigned int HEXtoBCD8(unsigned char hex_data)
{
unsigned int bcd_data;
unsigned char temp;
temp=hex_data%100;
bcd_data=((unsigned int)hex_data)/100<<8;
bcd_data=bcd_data|temp/10<<4;
bcd_data=bcd_data|temp%10;
return bcd_data;
}
void show_result(BYTE *inbuff, unsigned char id, char mark)
{
int sum = inbuff[3] + inbuff[4] + inbuff[5]+ inbuff[6];
if(
inbuff[0]== 'A' &&
inbuff[1]== 'C' &&
inbuff[2]== 'K' &&
inbuff[3]== id &&
inbuff[4]== '1' && //
inbuff[5]== mark &&
inbuff[6]== OK &&
sum == ((inbuff[7]<<8) | inbuff[8])
)
ShowMessage("ok!");
else ShowMessage("send ng！");
}
[解决办法]
看你在D版中的,我已回
http://topic.csdn.net/u/20100419/23/78f1140d-210e-430d-832a-8bb5f2571c69.html
