//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hComm;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Read232=new TReadThread(true);
   Read232->FreeOnTerminate=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
    String Temp;
    char *SendData;
    int ln;
    unsigned long lrc,BS;
    if(Key!=13) return;
    if(hComm==0) return;
    Temp=Memo1->Text;
    SendData=Temp.c_str();
    BS=Temp.Length();
    //BS=StrLen(SendData);
    WriteFile(hComm,SendData,BS,&lrc,NULL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn_ReadClick(TObject *Sender)
{
   char *ComNo;
   DCB dcb;
   String Temp;
   Temp="COM"+IntToStr(rdCom->ItemIndex+1);
   ComNo=Temp.c_str();
   hComm=CreateFile(ComNo,GENERIC_READ|GENERIC_WRITE,
                   0,NULL,OPEN_EXISTING,0,0);
   if(hComm==INVALID_HANDLE_VALUE)
   {
      MessageBox(0,"打開通訊端口錯誤!!","Comm Error",MB_OK);
      return;

   }
    GetCommState(hComm,&dcb);
    dcb.BaudRate=CBR_9600;
    dcb.ByteSize=8;
    dcb.Parity=NOPARITY;
    dcb.StopBits=ONESTOPBIT;
    if(!SetCommState(hComm,&dcb))
    {
       MessageBox(0,"通訊端口設置錯誤!!","Set Error",MB_OK);
       CloseHandle(hComm);
       return;
    }
    Read232->Resume();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn_EndClick(TObject *Sender)
{
   Read232->Terminate();
   if(hComm!=INVALID_HANDLE_VALUE) CloseHandle(hComm);
   exit(EXIT_SUCCESS);
}
//---------------------------------------------------------------------------