tfrm_mainu.cpp

这是一个bcb开发camera的一个小软件

        g_CameraCon->GetDataStop(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnIrisOpenMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataIrisOpen(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------

void __fastcall TFRM_Main::m_bsBtnIrisOpenMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataStop(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------

void __fastcall TFRM_Main::m_bsBtnIrisCloseMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataIrisClose(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------

void __fastcall TFRM_Main::m_bsBtnIrisCloseMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataStop(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnChan2Click(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int ChanID=2;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------

void __fastcall TFRM_Main::m_bsBtnChan3Click(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int ChanID=3;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnChan4Click(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int ChanID=4;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnChan5Click(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int ChanID=5;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnChan6Click(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int ChanID=6;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::FormShow(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
               // g_CameraCon->ComInit();
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::FormClick(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------

void __fastcall TFRM_Main::m_bsGBSetClick(TObject *Sender)
{
    m_bsGBSet->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan1Click(TObject *Sender)
{
    try{
        int ChanID=1;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan3Click(TObject *Sender)
{
    try{
        int ChanID=3;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan4Click(TObject *Sender)
{
    try{
        int ChanID=4;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan5Click(TObject *Sender)
{
    try{
        int ChanID=5;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan2Click(TObject *Sender)
{
    try{
        int ChanID=2;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBChan6Click(TObject *Sender)
{
    try{
        int ChanID=6;
        g_CameraCon->GetDataChan(ChanID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime1Click(TObject *Sender)
{
    try{
        int TimeID=1;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime2Click(TObject *Sender)
{
    try{
        int TimeID=2;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime3Click(TObject *Sender)
{
    try{
        int TimeID=3;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime4Click(TObject *Sender)
{
    try{
        int TimeID=4;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime5Click(TObject *Sender)
{
    try{
        int TimeID=5;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsCRBTime6Click(TObject *Sender)
{
    try{
        int TimeID=6;
        g_CameraCon->GetDataFreezerTimer(TimeID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_CbPortChange(TObject *Sender)
{
    try{
        if(g_CameraCon->ComSet()<0){
           m_bsMsg->MessageDlg2("Fail to connect the Com!",
                            "Tips",
                            mtInformation,
                            TMsgDlgButtons() << mbOK << mbCancel ,
                            0);
        }
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsNumEdtAddrKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    try{
        if(Key==13){
            m_bsGBSet->SetFocus();
            if(m_bsNumEdtAddr->Value>1024){
                m_bsMsg->MessageDlg2("Address No is no more than 1024!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
        if(Key>47&&Key<58){
            if(m_bsNumEdtAddr->Value>1024){
                m_bsMsg->MessageDlg2("Address No is no more than 128!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsNumPresetIdKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
     try{
        if(Key==13){
            m_bsGBSet->SetFocus();
            if(m_bsNumPresetId->Value>128){
                m_bsMsg->MessageDlg2("PresetNo is no more than 128!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
        if(Key>47&&Key<58){
            if(m_bsNumPresetId->Value>128){
                m_bsMsg->MessageDlg2("PresetNo is no more than 128!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsNumSpeedKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    try{
        if(Key==13){
            m_bsGBSet->SetFocus();
            if(m_bsNumSpeed->Value>64){
                m_bsMsg->MessageDlg2("Speed is no more than 64!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
        if(Key>47&&Key<58){
            if(m_bsNumSpeed->Value>64){
                m_bsMsg->MessageDlg2("Speed is no more than 64!",
                                     "Tips",
                                     mtInformation,
                                     TMsgDlgButtons() << mbOK << mbCancel ,
                                     0);
            }
        }
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------