18/09/22 11:16:17.78 OP+SyJmS.net
＜チト質問＞
8bitデータ通信で1bit分をフラグに割り当てたので下位7bit分でデータをやり取りしてる。
C言語なら下記のコードで送信も上手く行ってるけど、この部分をPASCALに移植するとしたらどうなるか。
出題ではなく、あくまで疑問、質問。端末で作ってるけど「Object Pascal」でGUIにしたいと考えてる。
#define RL_BROCK 64
file = fopen("○○○○○○○○.BAS","rb");
if (NULL == file){
printf("fopen error\n");
return -3;
}
printf("○○○○○○○○.BAS TRANSFER\n");
fseek(file,0,SEEK_SET);
do {
len = fread(buf,1,RL_BROCK,file);
printf("fread %0d\n",len);
for(i = 0; i <RL_BROCK; i++) {
send_buf[2*i+1] = buf[i]; // 下位7ビットはそのままコピー
send_buf[2*i] = buf[i] >> 1; // 上位7ビットは1ビット右シフトしコピー
}
write(fd, send_buf, RL_BROCK*2);
} while(RL_BROCK == len);
fclose (file);