tfrm_mainu.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "TFRM_MainU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "bsSkinData"
#pragma link "BusinessSkinForm"
#pragma link "bsSkinCtrls"
#pragma link "bsSkinBoxCtrls"
#pragma link "bsSkinTabs"
#pragma link "YbCommDevice"
#pragma resource "*.dfm"
TFRM_Main *FRM_Main;
TConfig *g_Config;
TCameraCon *g_CameraCon;
//---------------------------------------------------------------------------
__fastcall TFRM_Main::TFRM_Main(TComponent* Owner)
    : TForm(Owner)
{
    try{
        g_Config=new TConfig();
        g_CameraCon=new TCameraCon();
        g_CameraCon->ComInit();
    }catch(Exception &e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnNoSetClick(TObject *Sender)
{
    try{
        int RevAddr=m_bsNumEdtAddr->Value;
        int PresetID=m_bsNumPresetId->Value-1;
        g_CameraCon->GetDataSetID(RevAddr,PresetID);
        m_bsGBSet->SetFocus();
    }catch(Exception *e){
    }
}
//--------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnNoDelClick(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int PresetID=m_bsNumPresetId->Value-1;
        g_CameraCon->GetDataDelID(RevAddr,PresetID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnNoUseClick(TObject *Sender)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int PresetID=m_bsNumPresetId->Value-1;
        g_CameraCon->GetDataUseID(RevAddr,PresetID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::FormDestroy(TObject *Sender)
{
    try{
        delete g_Config;
        g_Config=NULL;
        delete g_CameraCon;
        g_CameraCon=NULL;
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnZoomAMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataZoomTele(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnZoomAMouseUp(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_bsBtnZoomCMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataZoomWide(RevAddr);

    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnZoomCMouseUp(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_bsBtnFocusAMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataFocusA(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnFocusAMouseUp(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_bsBtnFocusCMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        g_CameraCon->GetDataFocusC(RevAddr);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnFocusCMouseUp(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_bsbtnLUMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraLU(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnUpMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraUp(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnDownMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraDown(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsBtnUpMouseUp(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_bsbtnDownMouseUp(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_bsbtnLeftMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraLeft(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnLeftMouseUp(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_bsbtnRightMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraRight(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnRightMouseUp(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_bsbtnLUMouseUp(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_bsbtnRUMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraRU(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnRUMouseUp(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_bsbtnLDMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraLD(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnLDMouseUp(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_bsbtnRDMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        m_bsGBSet->SetFocus();
        int RevAddr=m_bsNumEdtAddr->Value;
        int SpeedID=m_bsNumSpeed->Value;
        g_CameraCon->GetDataCameraRD(RevAddr,SpeedID);
    }catch(Exception *e){
    }
}
//---------------------------------------------------------------------------
void __fastcall TFRM_Main::m_bsbtnRDMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    try{
        int RevAddr=m_bsNumEdtAddr->Value;