//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CommConnect"
#pragma link "Connect"
#pragma resource "*.xfm"
TForm1 *Form1;
String DataBuf,DataTmp; //宣告這兩個 Global 變數
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  DataBuf="";
  DataTmp="";
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Comm1RxChar(TObject *Sender, int Count)
{
  
  String ByteRecive=Comm1->Retrieve(Count);      for (int i=1;i<=Count;i  )
      {
        if (ByteRecive[i]!=13)
           {
             DataTmp="";
             DataBuf=DataBuf (char)ByteRecive[i];
           }
        else
           {
             DataTmp=DataBuf;
             DataBuf="";
           }
      }      if (DataTmp=="") return; //避免掃一次條碼觸卻發兩次本事件        
  //處理掃描到的完整 Barcode 程式碼寫在下面 (本例是將完整條碼秀在 ListBox 中)
  ListBox1->Items->Add(IntToStr(DataTmp.Length()));
  ListBox1->Items->Add(DataTmp);    }
//---------------------------------------------------------------------------    void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Comm1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Comm1->Close();
}
//---------------------------------------------------------------------------