RS232 приём данных

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CommPort"
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
char ntoa(char n) {          // Ïðåîáðàçîâàíèå íèáëà â ASCII
  n=n&0x0f;
  if (n<0x0a) n+=48;     // 0x30
  else n+=55;             // 0x37
  return n;
}
 
void i2btoa(int n, char *mas) {   // Ïðåáðàçîâàíèå äâóõ áàéòîâ â ASCII
  for(int i=3; i>-1; i--) mas[i]=ntoa(n>>abs(4*(i-3)));
}
 
char aton(char c) {          // Ïðåîáðàçîâàíèå îäíîãî áàéòà â íèáë
  if(c<0x3A) c-=0x30;
  else  c-=0x37;
  if(c>0x0f) c=0;
  return c;
}
 
int a4btoi(char *mas) {      // Ïðåîáðàçîâàíèå ñòðîêè èç ÷åòûðåõ ASCII â int
  int n=0;
 
  for (int i=3; i>-1; i--) n+=aton(mas[i])<<abs(4*(i-3));
  return n;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
CommPort1->ComNumber=3;   //îáúÿâëåíèå ôèçè÷åñêîãî íîìåðà ïîðòà åãî ïåðåìåííîé
CommPort2->ComNumber=4;   //îáúÿâëåíèå ôèçè÷åñêîãî íîìåðà ïîðòà åãî ïåðåìåííîé
CommPort1->Open=true;     // îòêðûòü ïîðò ïåðåìåííîé 1
//CommPort2->Open=true;     // îòêðûòü ïîðò ïåðåìåííîé 2
 
 
if(CommPort1->Open==true) {             // åñëè ïîðò çàêðûò
 Label5->Caption="ïîðò îòêðûò";       // ôðàçà äëÿ âûâîäà
 Label5->Visible=true;                  // ðàçðåøåíèå âûâîäà
         }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
CommPort1->Open=false;                  //  çàêðûòü ïîðò ïåðåìåííîé 2
//CommPort2->Open=false;                //  çàêðûòü ïîðò ïåðåìåííîé 2
 
if(CommPort1->Open==false) {             // åñëè ïîðò çàêðûò
 Label5->Caption="ïîðò çàêðûò";        // ôðàçà äëÿ âûâîäà
 Label5->Visible=true;                   // ðàçðåøåíèå âûâîäà
          }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CommPort1DataReceived(TObject *Sender, DWORD Count)
{
  char mas[5]; int a;
  AnsiString s="";
 
  while(CommPort1->InBuffUsed>1) {
 
      for(int i=0; i<4; i++) mas[i]=CommPort1->GetChar();       // ×òåíèå ïàêåòà èç áóôåðà ïðèåìà â ìàññèâ
      RData->Caption=IntToStr(a4btoi(mas));                     //  Îòîáðàæåíèå ïðèíÿòîãî ÷èñëà
  }
}