unit1.h

提供一个上位机串口通信的源代码,方便开发上位机通信

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "MSCommLib_OCX.h"
#include <OleCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Dialogs.hpp>
#include <ComCtrls.hpp>
#include <Buttons.hpp>


#define uchar unsigned char
#define uint unsigned int
//串口全局变量
bool Uart_Open=true;//标志串口打开与否
uchar Uart_Port=1;      //串口编号
String Uart_Bond="9600";//波特率
String Uart_Chek="NONE";//校验位
String Uart_Data="8";   //数据位
String Uart_Stop="1";   //停止位

bool Display_Enable=true;//是否显示
uchar Display_Type=0;//默认格式0,1,十六进制.2,十进制
 
//串口接收缓冲区
unsigned int RX_Num=0;

unsigned long RX_Count=0;//接收计数器
unsigned long TX_Count=0;//发送计数器

bool SendFileEn=false;//发送文件标志

//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TPanel *Panel1;
    TComboBox *U_Port;
    TLabel *Label1;
    TComboBox *U_Bond;
    TLabel *Label2;
    TComboBox *U_Check;
    TLabel *Label3;
    TComboBox *U_Data;
    TLabel *Label4;
    TComboBox *U_Stop;
    TLabel *Label5;
    TShape *U_Status;
    TButton *U_OPEN;
    TPanel *Panel3;
    TButton *T_Clear;
    TPanel *Panel4;
    TLabel *Label6;
    TButton *T_Stop;
    TCheckBox *T_AutoClear;
    TButton *T_Save;
    TPanel *Panel5;
    TCheckBox *T_TypeSet;
    TRadioButton *T_Type_Hex;
    TRadioButton *T_Type_Dec;
    TSaveDialog *SaveDialog1;
    TButton *T_SaveAs;
    TTimer *Timer1;
    TMemo *DISPLAY;
    TMSComm *MSComm1;
    TPanel *Panel2;
    TPanel *Panel6;
    TLabel *Label8;
    TLabel *Label9;
    TPanel *Panel8;
    TLabel *Label7;
    TButton *S_Clear;
    TCheckBox *Auto_Send;
    TButton *Send_Button;
    TEdit *AutoSend_Time;
    TPanel *PANEL7;
    TLabel *Label10;
    TPanel *RXCount;
    TPanel *TXCount;
    TButton *ClearTXRX;
    TButton *Send_Files;
    TButton *Close_Uart;
    TPanel *FrontShow;
    TMemo *Send_Box;
    TOpenDialog *OpenDialog1;
    TLabel *Label11;
    TTimer *Timer2;
    TButton *Open_Filse;
    TLabel *Label12;
    TCheckBox *Dec_Send;
    void __fastcall S_ClearClick(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall U_OPENClick(TObject *Sender);
    void __fastcall U_PortChange(TObject *Sender);
    void __fastcall U_BondChange(TObject *Sender);
    void __fastcall U_CheckChange(TObject *Sender);
    void __fastcall U_DataChange(TObject *Sender);
    void __fastcall U_StopChange(TObject *Sender);
    void __fastcall T_TypeSetClick(TObject *Sender);
    void __fastcall T_ClearClick(TObject *Sender);
    void __fastcall T_SaveClick(TObject *Sender);
    void __fastcall T_SaveAsClick(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall MSComm1Comm(TObject *Sender);
    void __fastcall ClearTXRXClick(TObject *Sender);
    void __fastcall T_StopClick(TObject *Sender);
    void __fastcall T_Type_HexClick(TObject *Sender);
    void __fastcall T_Type_DecClick(TObject *Sender);
    void __fastcall Send_ButtonClick(TObject *Sender);
    void __fastcall FrontShowClick(TObject *Sender);
    void __fastcall Send_FilesClick(TObject *Sender);
    void __fastcall Close_UartClick(TObject *Sender);
    void __fastcall Label11Click(TObject *Sender);
    void __fastcall Auto_SendClick(TObject *Sender);
    void __fastcall Timer2Timer(TObject *Sender);
    void __fastcall AutoSend_TimeChange(TObject *Sender);
    void __fastcall Open_FilseClick(TObject *Sender);
    void __fastcall Send_BoxChange(TObject *Sender);
    void __fastcall Label12Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif