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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        if ((LabeledEdit1->Text != "") && (LabeledEdit2->Text != ""))
        {
                NMEcho1->Host = LabeledEdit1->Text;
                NMEcho1->Port = LabeledEdit2->Text.ToInt();
                NMEcho1->Connect();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
        //與Server切斷連線
        NMEcho1->Disconnect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
        char code[13]={0X01,0X53,0x30,0x31,0x4B,0x30,0X02,0x4D,0x30,0X31,0X03,0x65};
        //AnsiString Str=AnsiString(code);
        LabeledEdit3->Text=code;
        //sleep(5000);
        ShowMessage("Send");
        if (LabeledEdit3->Text != "")
        {
                LabeledEdit4->Text = NMEcho1->Echo(code);
                //LabeledEdit5->Text = FloatToStr(NMEcho1->ElapsedTime) + " milliseconds";
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabeledEdit3KeyPress(TObject *Sender, char &Key)
{
        if (Key == 13)
        {
                if (LabeledEdit3->Text != "")
                {
                        LabeledEdit4->Text = NMEcho1->Echo(LabeledEdit3->Text);
                        LabeledEdit5->Text = FloatToStr(NMEcho1->ElapsedTime) + " milliseconds";
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1Connect(TObject *Sender)
{
        //當連線的時候要做的屬性設定
        BitBtn1->Enabled = false;
        BitBtn2->Enabled = true;
        BitBtn3->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMEcho1Disconnect(TObject *Sender)
{
        //當斷線的時候要做的屬性設定
        BitBtn1->Enabled = true;
        BitBtn2->Enabled = false;
        BitBtn3->Enabled = false;
}
//---------------------------------------------------------------------------