unit1.h

利用MSComm控件

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

#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>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TMSComm *MSComm;
        TLabel *Label1;
        TLabel *Label2;
        TButton *btn_Open;
        TButton *btn_End;
        TButton *btn_Send;
        TButton *btn_Receive;
        TTimer *Timer;
        TListBox *ListBox_Send;
        TListBox *ListBox_Receive;
        void __fastcall btn_OpenClick(TObject *Sender);
        void __fastcall btn_EndClick(TObject *Sender);
        void __fastcall MSCommComm(TObject *Sender);
        void __fastcall btn_ReceiveClick(TObject *Sender);
        void __fastcall TimerTimer(TObject *Sender);
private:	// User declarations
public:		// User declarations
       bool bSend;
       bool bReceive;
       VARIANT *Var_Data;
       long num;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif