delphi串口通信（spcomm）实例

#include<reg51.h> void send(b) { SBUF=b; while(TI==0); TI=0; } void main() { int i=0,k; unsigned int a[9]; TMOD=0x20; TL1=0xfd; TH1=0xfd; SCON=0xd8; PCON=0x00; TR1=1; while(1) { if(i>8)break; while(RI==0); RI=0; a[i]=SBUF; //for(k=0;k<200;k++); i++; } for(i=0;i<9;i++) { send(a[i]); //for(k=0;k<10000;k++); } }