//--------------------------------------------------------------------------- #include #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include #include #pragma hdrstop #include "FrmVmsMsgSymbMngrF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxCalendar" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxGroupBox" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSpinEdit" #pragma link "cxSplitter" #pragma link "cxTextEdit" #pragma link "cxTimeEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinCaramel" #pragma link "dxSkinCoffee" #pragma link "dxSkinDarkRoom" #pragma link "dxSkinDarkSide" #pragma link "dxSkinFoggy" #pragma link "dxSkinGlassOceans" #pragma link "dxSkiniMaginary" #pragma link "dxSkinLilian" #pragma link "dxSkinLiquidSky" #pragma link "dxSkinLondonLiquidSky" #pragma link "dxSkinMcSkin" #pragma link "dxSkinMoneyTwins" #pragma link "dxSkinOffice2007Black" #pragma link "dxSkinOffice2007Blue" #pragma link "dxSkinOffice2007Green" #pragma link "dxSkinOffice2007Pink" #pragma link "dxSkinOffice2007Silver" #pragma link "dxSkinOffice2010Black" #pragma link "dxSkinOffice2010Blue" #pragma link "dxSkinOffice2010Silver" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinSeven" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "cxRadioGroup" #pragma link "cxClasses" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDBData" #pragma link "cxFilter" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridDBTableView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxStyles" #pragma link "cxCheckBox" #pragma link "cxImage" #pragma link "cxButtonEdit" #pragma link "cxBlobEdit" #pragma link "cxHint" #pragma link "dxCustomHint" #pragma link "dxScreenTip" #pragma link "dxSkinsForm" #pragma link "FFBaseComponent" #pragma link "FFBasePlay" #pragma link "FFPlay" #pragma link "dxGDIPlusClasses" #pragma link "FFDecode" #pragma link "cxCalc" #pragma resource "*.dfm" #define LICENSE_KEY "FSXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX" #define SBT_GENERAL "SBT1" // 일반 #define SBT_TRAFFIC "SBT2" // 소통정보 #define SBT_ATMP "SBT3" // 대기환경 #define SBT_WEATHER "SBT4" // 기상정보 #define SBT_INCIDENT "SBT5" // 돌발 #define SBT_VIDEO "SBT6" // 동영상 #define SBT_TRAFBAK "SBT7" // 소통정보배경 TFrmVmsMsgSymbMngr *FrmVmsMsgSymbMngr = NULL; //--------------------------------------------------------------------------- __fastcall TFrmVmsMsgSymbMngr::TFrmVmsMsgSymbMngr(TComponent* Owner) : TForm(Owner) { //CMM_SetFormPosition(g_AppCfg.bSaveForm); ITSSkin_Initialize(Application, g_AppCfg.sLang); ITSSkin_Caption(false); ITSSkin_Load(this); //CMM_LoadForm(g_sFormsDir, this); SetColorScheme(g_AppCfg.sSkinName); PnlSymbol->Align = alClient; FUpdate= false; FTitle = Caption;//"VMS 심볼이미지 관리"; PgSymb->Properties->HideTabs = true; PgSymb->Properties->ActivePage = TsSbt1; //ChangeSymbPage(SBT_GENERAL); EditMode = false; FIsUpdate = false; TvList->OptionsView->DataRowHeight = 0; TvList->OptionsView->CellAutoHeight = true; TvList->OptionsView->Indicator = false; TvList->OptionsCustomize->ColumnMoving = false; TvList->OptionsCustomize->ColumnSorting = false; TvList->Columns[0]->Width = 60; TvList->Columns[0]->Options->HorzSizing = false; #if 0 TNotifyEvent evt = CbType->Properties->OnChange; CbType->Properties->OnChange = NULL; CbType->Properties->Items->Clear(); CbType->Properties->Items->Add(" [SBT1] 일반"); CbType->Properties->Items->Add(" [SBT2] 소통정보"); CbType->Properties->Items->Add(" [SBT3] 대기환경"); CbType->Properties->Items->Add(" [SBT4] 기상정보"); CbType->Properties->Items->Add(" [SBT5] 돌발"); CbType->Properties->Items->Add(" [SBT6] 동영상"); //CbType->Properties->Items->Add(" [SBT7] 소통정보 배경"); CbType->ItemIndex = 0; CbType->Properties->OnChange = evt; #endif FSymbFmtLists.Push("bmp", new TSymbFmt("bmp", "bmp")); //FSymbFmtLists.Push("jpg", new TSymbFmt("jpg", "jpg")); //FSymbFmtLists.Push("jpge", new TSymbFmt("jpge", "jpg")); //FSymbFmtLists.Push("png", new TSymbFmt("png", "png")); //FSymbFmtLists.Push("avi", new TSymbFmt("avi", "avi")); //FSymbFmtLists.Push("ico", new TSymbFmt("ico", "ico")); FSymbFmtLists.Push("gif", new TSymbFmt("gif", "gif")); CURR_SYMB_DATA = new TMemoryStream(); CURR_SYMB_AVI_DATA = new TMemoryStream(); FThumbNail = 0; FMakeThumbNail = false; #if 0 FFDecoder1->SetLicenseKey(LICENSE_KEY); String sAVILibDir = g_sAppDir + "LibAV"; FFPlayer1->SetLicenseKey(LICENSE_KEY); FFPlayer1->DisableFPUExceptions(); if (!FFPlayer1->LoadAVLib(sAVILibDir)) { Application->MessageBox(L"Stream display library load failed.", L"Stream display fail", MB_OK|MB_ICONERROR|MB_APPLMODAL); } #endif SaveDialog->InitialDir = ExtractFilePath(Application->ExeName); FPlayStream = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::SetColorScheme(String ASkinName) { dxSkinController1->SkinName = ASkinName; dxSkinController1->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::CommClose() { try { #if 0 if (CURR_SYMB_DATA) { CURR_SYMB_DATA->Free(); } if (CURR_SYMB_AVI_DATA) { CURR_SYMB_AVI_DATA->Free(); } #endif ITSSkin_Term(); //CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FormShow(TObject *Sender) { Refresh(); InitDbLoading(); FormInit(); ChangeEditMode(1); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::InitDbLoading() { Application->ProcessMessages(); if (!VmsCtlrManager) { VmsCtlrManager = new TVmsCtlrManager(); } VmsCtlrManager->LoadVmsModlSize(); VmsCtlrManager->LoadFromDb(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FormInit() { EdNmbr->Text = ""; EdName->Text = ""; EdExpl->Text = ""; SeSize->Value = 0; SeWidth->Value = 0; SeHeight->Value = 0; //EdImageFileName->Text = ""; #if 0 ImgGeneral->Picture->Bitmap->FreeImage(); ImgGeneral->Picture->Bitmap = NULL; ImgVideo->Picture->Bitmap->FreeImage(); ImgVideo->Picture->Bitmap = NULL; ImgTemp->Picture->Bitmap->FreeImage(); ImgTemp->Picture->Bitmap = NULL; #endif FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; LoadImageSymbol(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); FrmVmsMsgSymbMngr = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::LoadingImage(TImage *AImage, String AFileName) { try { AImage->Picture->LoadFromFile(AFileName); if (AImage->Picture->Graphic->ClassName() == "TGIFImage") { ((TGIFImage *)AImage->Picture->Graphic)->Animate = true; AImage->Transparent = true; } else { AImage->Transparent = false; } } catch(Exception &e) { String errMsg = "이미지를 읽어오는 중에 오류가 발생했습니다.\r\n" + e.Message; Application->MessageBox(errMsg.c_str(), L"이미지 로딩 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::DisplayInfo() { FormInit(); int nRow = TvList->DataController->FocusedRecordIndex; if( nRow <= -1 ) return; TcxGridDataController *pGDC = TvList->DataController; nRow = pGDC->FocusedRecordIndex; CURR_VMS_FORM_OBJ_ID= pGDC->Values[nRow][ColSYMB_NMBR->Index]; CURR_PICT_NM = pGDC->Values[nRow][ColSYMB_NM->Index]; CURR_PICT_EXT = pGDC->Values[nRow][ColSYMB_FILE_EXT->Index]; CURR_PICT_DATA_SZ = pGDC->Values[nRow][ColSYMB_SIZE->Index]; CURR_PICT_WDTH = pGDC->Values[nRow][ColSYMB_WDTH->Index]; CURR_PICT_HGHT = pGDC->Values[nRow][ColSYMB_HGHT->Index]; //CURR_USE_YN = pGDC->Values[nRow][ColUSE_YN->Index]; CURR_LOCAL_FILE_NM = pGDC->Values[nRow][ColImagePath->Index]; LoadingImage(ImgGeneral, CURR_LOCAL_FILE_NM); EdNmbr->Text = CURR_VMS_FORM_OBJ_ID; EdName->Text = CURR_PICT_NM; SeSize->Value = CURR_PICT_DATA_SZ; SeWidth->Value = CURR_PICT_WDTH; SeHeight->Value = CURR_PICT_HGHT; EdImageFileName->Text = CURR_LOCAL_FILE_NM; ChangeEditMode(3); BtnPlay->Enabled = true; BtnStop->Enabled = false; BtnPause->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnEditClick(TObject *Sender) { if (BtnEdit->Caption == "편집")//"편집") { ChangeEditMode(0); FNewDb = false; } else { String sId = EdNmbr->Text; ChangeEditMode(1); if (CMM_FindGridData(TvList->DataController, sId, ColSYMB_NMBR->Index) >= 0) { CMM_SetGridRow(CxList, TvList, sId, ColSYMB_NMBR->Index); DisplayInfo(); } } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ChangeEditMode(int AEdit) { FImageUpdate = false; bool bEnabled = false; switch(AEdit) { case 0: //편집버튼클릭 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = "취소";//"취소"; BtnEdit->Hint = "데이터 편집 취소";//데이터 편집 취소"; EditMode = true; //EdImageFileName->Enabled = FIsUpdate; } break; case 1: //편집[취소]버튼클릭 { FormInit(); //화면을 모두 지운다. BtnEdit->Enabled = false; BtnInsert->Enabled = true; BtnDelete->Enabled = false; BtnSave->Enabled = false; BtnEdit->Caption = "편집";//"편집"; BtnEdit->Hint = "데이터 편집";//데이터 편집"; //bEnabled = true; EditMode = false; //EdImageFileName->Enabled = false; } break; case 2: //추가 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = "취소";//"취소"; BtnEdit->Hint = "데이터 편집 취소";//데이터 편집 취소"; EditMode = true; //EdImageFileName->Enabled = true; } break; case 3: //수정모드 { BtnEdit->Enabled = true; BtnInsert->Enabled = true; BtnDelete->Enabled = true; BtnSave->Enabled = false; BtnEdit->Caption = "편집";//"편집"; BtnEdit->Hint = "데이터 편집";//데이터 편집"; bEnabled = true; EditMode = false; //EdImageFileName->Enabled = FIsUpdate; } break; } BtnSaveImgFile->Enabled = false; #if 0 if (FSymbImag != NULL && FSymbImag->Picture->Bitmap != NULL) { if (FSymbImag->Picture->Bitmap->Height != 0) { BtnSaveImgFile->Enabled = true; } } #else if (!EdNmbr->Text.IsEmpty() && CURR_PICT_WDTH > 0 && CURR_PICT_HGHT > 0) { BtnSaveImgFile->Enabled = true; } #endif if (AEdit == 0 || AEdit == 2) { GrpList->Enabled = false; PnlCmd->Enabled = true; } else { GrpList->Enabled = true; PnlCmd->Enabled = false; } //PnlEdit->Enabled = EditMode; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnSaveClick(TObject *Sender) { if (EdNmbr->Text.IsEmpty()) { Application->MessageBox(L"VMS 이미지정보 저장\r\VMS 폼객체 ID를 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (EdName->Text.Trim().IsEmpty()) { Application->MessageBox(L"VMS 이미지정보 저장\r\n이미지 명칭을 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } bool bResult = false; String sNmbr = EdNmbr->Text; CURR_VMS_FORM_OBJ_ID = sNmbr; CURR_PICT_NM = EdName->Text.Trim(); CURR_PICT_DATA_SZ = SeSize->Value; CURR_PICT_WDTH = SeWidth->Value; CURR_PICT_HGHT = SeHeight->Value; if (!FNewDb) { bResult = UpdateVmsSymbLib(CURR_VMS_FORM_OBJ_ID, CURR_PICT_NM); } else { CURR_BASE_YN = "Y"; CURR_USE_YN = "Y"; bResult = InsertVmsSymbLib(CURR_VMS_FORM_OBJ_ID, CURR_PICT_NM, CURR_PICT_EXT, CURR_PICT_DATA_SZ, CURR_PICT_WDTH, CURR_PICT_HGHT, CURR_USE_YN); } if (bResult) { Application->MessageBox(L"VMS 이미지정보 저장\r\nVMS 이미지정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FUpdate = true; LoadImageSymbol(); CMM_SetGridRow(CxList, TvList, sNmbr, ColSYMB_NMBR->Index); //DisplayInfo(); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnInsertClick(TObject *Sender) { MnuAddVmsSymbClick((TObject*)MnuGeneral); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnDeleteClick(TObject *Sender) { int nIdx = TvList->DataController->FocusedRecordIndex; if (nIdx < 0) return; String sId = EdNmbr->Text; if (sId.IsEmpty()) { Application->MessageBox(L"삭제할 VMS 이미지를 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (CheckFormObjectUseCount(sId) > 0) { Application->MessageBox(L"삭제할 이미지가 VMS 폼에서 사용되고 있습니다.\r\n먼저 해당 폼에서 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sMsg; sMsg = "VMS 폼객체 ID: " + sId; sMsg+= "\r\n선택하신 VMS 폼객체 이미지 정보를 삭제하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) == IDYES) { if (DeleteVmsSymbLib(sId, true)) { FUpdate = true; String msg = "VMS 폼객체 이미지 정보삭제\r\nVMS 폼객체 이미지 정보를 삭제 하였습니다."; Application->MessageBox(msg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FormInit(); ChangeEditMode(1); LoadImageSymbol(); } } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnSaveImgFileClick(TObject *Sender) { SaveDialog->Title = FTitle; //SaveDialog->InitialDir = ExtractFilePath(Application->ExeName); SaveDialog->Filter = "이미지 파일 (*." + CURR_PICT_EXT + ")|*." + CURR_PICT_EXT; SaveDialog->FileName = EdNmbr->Text + "." + CURR_PICT_EXT; if (SaveDialog->Execute()) { try { String sFileName = SaveDialog->FileName; ImgGeneral->Picture->SaveToFile(sFileName); SaveDialog->InitialDir = ExtractFilePath(sFileName); } catch (Exception &exception) { Application->ShowException(&exception); } } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::EdImageFileNameClick(TObject *Sender) { #if 0 if (OpenBmp->InitialDir == "") { OpenBmp->InitialDir = g_sAppDir; } OpenBmp->Title = FTitle; OpenBmp->FileName = ""; OpenBmp->Execute(); #endif } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::OpenBmpCanClose(TObject *Sender, bool &CanClose) { CURR_LOCAL_FILE_NM = OpenBmp->FileName; String sFilePath = ExtractFilePath(CURR_LOCAL_FILE_NM); CURR_PIC_FILE_NM = ExtractFileName(CURR_LOCAL_FILE_NM); String sFileExt = ExtractFileExt(CURR_LOCAL_FILE_NM); OpenBmp->InitialDir = sFilePath; CURR_USE_YN = "Y"; CURR_PICT_EXT = ""; sFileExt = StringReplace(sFileExt, ".", "", TReplaceFlags() << rfReplaceAll); sFileExt = sFileExt.LowerCase(); TSymbFmt *symbFmt = FSymbFmtLists.Find(sFileExt); if (symbFmt == NULL) { Application->MessageBox(L"이미지 심벌로 지원하지 않는 형식입니다.\r\n지원형식(bmp, jpg, png, ico)", L"이미지 심벌 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL); BtnInsertClick((TObject*)BtnInsert); return; } CURR_PICT_EXT = symbFmt->fmtType; FImageUpdate = false; //delete CURR_SYMB_DATA; TMemoryStream *pPicStream = new TMemoryStream(); try { try { pPicStream->LoadFromFile(CURR_LOCAL_FILE_NM); CURR_PICT_DATA_SZ = pPicStream->Size; LoadingImage(ImgGeneral, CURR_LOCAL_FILE_NM); CURR_PICT_WDTH = ImgGeneral->Picture->Width; CURR_PICT_HGHT = ImgGeneral->Picture->Height; SeSize->Value = CURR_PICT_DATA_SZ; SeWidth->Value = CURR_PICT_WDTH; SeHeight->Value = CURR_PICT_HGHT; if (ImgGeneral->Picture->Graphic->ClassName() == "TGIFImage") { ((TGIFImage *)ImgGeneral->Picture->Graphic)->Animate = true; ImgGeneral->Transparent = true; } else { ImgGeneral->Transparent = false; } FImageUpdate = true; } catch(Exception &e) { String errMsg = "이미지 심벌 처리 중에 오류가 발생했습니다.\r\n" + e.Message; Application->MessageBox(errMsg.c_str(), L"이미지 심벌 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL); } } __finally { SAFE_DELETE(pPicStream); } if (FImageUpdate == false) { BtnInsertClick((TObject*)BtnInsert); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ClearListMemory() { #if 0 try { TvList->BeginUpdate(); int nRowCnt = TvList->ViewData->RecordCount; for (int ii = 0; ii < nRowCnt; ii++) { TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii]; TMemoryStream *pImgStream = (TMemoryStream *)(int)ARow->Values[Column99->Index]; SAFE_DELETE(pImgStream); } } __finally { TvList->EndUpdate(); } #endif CMM_ClearGridTableView(TvList); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::LoadImageSymbol() { FormInit(); ClearListMemory(); String sQry; TADOQuery *pADO = NULL; sQry = "SELECT * \r\n" " FROM TB_VMS_FORM_OBJ_PICT \r\n" " WHERE 1=1 \r\n" " ORDER BY VMS_FORM_OBJ_ID \r\n"; int nRowHeight = 0; try { int nRow; TcxDataController *pGDC = TvList->DataController; TvList->BeginUpdate(); try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLOpen(pADO); String imageFilePath; String saveDirPath = TPath::GetTempPath() + "VMS\\"; ForceDirectories(saveDirPath.c_str()); for( ; !pADO->Eof; pADO->Next()) { nRow = pGDC->AppendRecord(); String VMS_FORM_OBJ_ID = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString; String PICT_TYPE = pADO->FieldByName("PICT_TYPE")->AsString; String PICT_EXT = DbPictTypeToReal(PICT_TYPE); pGDC->Values[nRow][ColSYMB_NMBR->Index] = VMS_FORM_OBJ_ID; pGDC->Values[nRow][ColSYMB_NM->Index] = pADO->FieldByName("PICT_NM")->AsString; pGDC->Values[nRow][ColSYMB_DATA->Index] = pADO->FieldByName("PICT_DATA")->AsVariant; pGDC->Values[nRow][ColSYMB_FILE_EXT->Index] = PICT_EXT; pGDC->Values[nRow][ColSYMB_SIZE->Index] = pADO->FieldByName("PICT_DATA_SZ")->AsInteger; pGDC->Values[nRow][ColSYMB_WDTH->Index] = pADO->FieldByName("PICT_WDTH")->AsInteger; pGDC->Values[nRow][ColSYMB_HGHT->Index] = pADO->FieldByName("PICT_HGHT")->AsInteger; //pGDC->Values[nRow][ColUSE_YN->Index] = pADO->FieldByName("USE_YN")->AsString; TMemoryStream *pImgStream = new TMemoryStream(); pImgStream->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("PICT_DATA"), bmRead)); imageFilePath = saveDirPath + VMS_FORM_OBJ_ID + "." + PICT_EXT; pImgStream->SaveToFile(imageFilePath); SAFE_DELETE(pImgStream); pGDC->Values[nRow][ColImagePath->Index] = imageFilePath; } } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsSymbMngr::LoadImageSymbol", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TFrmVmsSymbMngr::LoadImageSymbol", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvList->EndUpdate(); TvList->ApplyBestFit(NULL, false, false); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ColSYMB_DATACustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { #if 0 int nRow = AViewInfo->GridRecord->RecordIndex; if (nRow < 0) return; try { Graphics::TBitmap *pBmp = (Graphics::TBitmap*)FListSymb->Items[nRow]; TRect rc; TRect rcOrg = AViewInfo->Bounds; int nH = ( (rcOrg.Bottom - rcOrg.Top) - pBmp->Height ) / 2; rc.Top = rcOrg.Top + nH+1; rc.Bottom = rcOrg.Bottom - nH+1; rc.Left = rcOrg.Left + 1; rc.Right = rc.Left + pBmp->Width; ACanvas->Canvas->StretchDraw(rc, pBmp); ADone = true; } catch(Exception &e) { } #endif } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::CbTypePropertiesChange(TObject *Sender) { if (CbType->Text.Pos(SBT_GENERAL)) { //if (LblDesc->Visible) LblDesc->Visible = false; } else { //if (LblDesc->Visible == false) LblDesc->Visible = true; } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::PnlMenuDblClick(TObject *Sender) { FIsUpdate = true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsMsgSymbMngr::DeleteVmsSymbLib(String VMS_FORM_OBJ_ID, bool ADelete) { String sQry; TADOQuery *pADO = NULL; if (ADelete) { sQry = "DELETE TB_VMS_FORM_OBJ_PICT \r\n" " WHERE VMS_FORM_OBJ_ID = :p01 \r\n"; } else { sQry = "UPDATE TB_VMS_FORM_OBJ_PICT \r\n" " SET CHNGR_ID = :p02, \r\n" " CHG_DT = SYSDATE \r\n" " WHERE VMS_FORM_OBJ_ID = :p01 \r\n"; } try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID; if (!ADelete) { pADO->Parameters->ParamByName("p02")->Value = g_AppCfg.OPER_ID; } pADO->ExecSQL(); } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsSymbMngr::DeleteVmsSymbLib", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsSymbMngr::DeleteVmsSymbLib", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsMsgSymbMngr::UpdateVmsSymbLib(String VMS_FORM_OBJ_ID, String PICT_NM) { String sQry; TADOQuery *pADO = NULL; sQry = "UPDATE TB_VMS_FORM_OBJ_PICT \r\n" " SET PICT_NM = :p02, \r\n" " CHNGR_ID = :p03, \r\n" " CHG_DT = SYSDATE \r\n" " WHERE VMS_FORM_OBJ_ID = :p01 \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID; pADO->Parameters->ParamByName("p02")->Value = PICT_NM; pADO->Parameters->ParamByName("p03")->Value = g_AppCfg.OPER_ID; pADO->ExecSQL(); } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsSymbMngr::UpdateVmsSymbLib", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsSymbMngr::UpdateVmsSymbLib", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsMsgSymbMngr::InsertVmsSymbLib(String VMS_FORM_OBJ_ID, String PICT_NM, String PICT_EXT, int PICT_DATA_SZ, int PICT_WDTH, int PICT_HGHT, String USE_YN) { String sQry; TADOQuery *pADO = NULL; sQry = "INSERT INTO TB_VMS_FORM_OBJ_PICT ( \r\n" " VMS_FORM_OBJ_ID, \r\n" " PICT_NM, \r\n" " PICT_WDTH, \r\n" " PICT_HGHT, \r\n" " PICT_DATA_SZ, \r\n" " PICT_DATA, \r\n" " PICT_TYPE, \r\n" " RGSTR_ID, \r\n" " REG_DT ) \r\n" " VALUES ( \r\n" " :p01, \r\n" " :p02, \r\n" " :p03, \r\n" " :p04, \r\n" " :p05, \r\n" " :p06, \r\n" " :p07, \r\n" " :p08, \r\n" " SYSDATE ) \r\n"; TMemoryStream *dataStream = new TMemoryStream(); try { dataStream->LoadFromFile(CURR_LOCAL_FILE_NM); try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID; pADO->Parameters->ParamByName("p02")->Value = PICT_NM; pADO->Parameters->ParamByName("p03")->Value = PICT_WDTH; pADO->Parameters->ParamByName("p04")->Value = PICT_HGHT; pADO->Parameters->ParamByName("p05")->Value = PICT_DATA_SZ; pADO->Parameters->ParamByName("p06")->LoadFromStream(dataStream, ftBlob); pADO->Parameters->ParamByName("p07")->Value = RealPictTypeToDb(PICT_EXT); pADO->Parameters->ParamByName("p08")->Value = g_AppCfg.OPER_ID; pADO->ExecSQL(); } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsSymbMngr::InsertVmsSymbLib", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsSymbMngr::InsertVmsSymbLib", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } SAFE_DELETE(dataStream); } return true; } //--------------------------------------------------------------------------- String __fastcall TFrmVmsMsgSymbMngr::GetNewVmsFormPictObjId() { String sQry; TADOQuery *pADO = NULL; String result = "SG-0000000"; sQry = "SELECT 'SG-' || LPAD(NVL(MAX(SUBSTR(VMS_FORM_OBJ_ID, -7)), '0000000') + 1, 7, '0') AS NEWID FROM TB_VMS_FORM_OBJ_PICT WHERE SUBSTR(VMS_FORM_OBJ_ID, 1,3) = 'SG-'\r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLOpen(pADO); pADO->Open(); result = pADO->FieldByName("NEWID")->AsString; } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsSymbMngr::GetNewVmsFormPictObjId", String(E.ClassName()), E.Message, sQry); return result; } catch(Exception &e) { DBERRORMSG("TFrmVmsSymbMngr::GetNewVmsFormPictObjId", String(e.ClassName()), e.Message, sQry); return result; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return result; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::MnuAddVmsSymbClick(TObject *Sender) { int START_NMBR, END_NMBR; TMenuItem *pMenu = (TMenuItem*)Sender; switch(pMenu->Tag) { case 1: CURR_SYMB_TYPE = SBT_GENERAL; START_NMBR = 1000; END_NMBR = 1999; break; // 일반 case 2: CURR_SYMB_TYPE = SBT_TRAFFIC; START_NMBR = 2000; END_NMBR = 2999; break; // 소통정보 case 3: CURR_SYMB_TYPE = SBT_ATMP; START_NMBR = 3000; END_NMBR = 3999; break; // 대기환경 case 4: CURR_SYMB_TYPE = SBT_WEATHER; START_NMBR = 4000; END_NMBR = 4999; break; // 기상정보 case 5: CURR_SYMB_TYPE = SBT_INCIDENT; START_NMBR = 5000; END_NMBR = 5999; break; // 돌발 case 6: CURR_SYMB_TYPE = SBT_VIDEO; START_NMBR = 6000; END_NMBR = 6999; break; // 동영상 case 7: CURR_SYMB_TYPE = SBT_TRAFBAK; START_NMBR = 7000; END_NMBR = 7999; break; // 소통정보배경 default: return; } String symbDefExt = ""; String symbFilter = ""; #if 0 switch(pMenu->Tag) { case 1: symbDefExt = "bmp"; symbFilter = "심벌 (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.ico)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.ico"; break; // 일반 case 2: symbDefExt = "bmp"; symbFilter = "소통정보 (*.bmp)|*.bmp"; break; // 소통정보 case 3: symbDefExt = "bmp"; symbFilter = "대기환경 (*.gif;*.png;*.jpg;*.jpeg;*.bmp)|*.gif;*.png;*.jpg;*.jpeg;*.bmp"; break; // 대기환경 case 4: symbDefExt = "bmp"; symbFilter = "기상정보 (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.avi)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.avi"; break; // 기상정보 case 5: symbDefExt = "bmp"; symbFilter = "돌발 (*.gif;*.png;*.jpg;*.jpeg;*.bmp)|*.gif;*.png;*.jpg;*.jpeg;*.bmp"; break; // 돌발 case 6: symbDefExt = "avi"; symbFilter = "동영상 (*.avi)|*.avi"; break; // 동영상 case 7: symbDefExt = "bmp"; symbFilter = "소통정보배경 (*.bmp)|*.bmp"; break; // 소통정보배경 default: return; } #else switch(pMenu->Tag) { case 1: symbDefExt = "bmp"; symbFilter = "심벌 (*.gif;*.bmp)|*.gif;*.bmp"; break; // 일반 case 2: symbDefExt = "bmp"; symbFilter = "소통정보 (*.bmp)|*.bmp"; break; // 소통정보 case 3: symbDefExt = "bmp"; symbFilter = "대기환경 (*.gif;*.bmp)|*.gif;*.bmp"; break; // 대기환경 case 4: symbDefExt = "bmp"; symbFilter = "기상정보 (*.gif;*.bmp)|*.gif;*.bmp"; break; // 기상정보 case 5: symbDefExt = "bmp"; symbFilter = "돌발 (*.gif;*.bmp)|*.gif;*.bmp"; break; // 돌발 case 6: symbDefExt = "avi"; symbFilter = "동영상 (*.avi;*.mpeg;*.mkv;*.mp4)|*.avi;*.mpeg;*.mkv;*.mp4"; break; // 동영상 case 7: symbDefExt = "bmp"; symbFilter = "소통정보배경 (*.bmp)|*.bmp"; break; // 소통정보배경 default: return; } #endif OpenBmp->DefaultExt = symbDefExt; OpenBmp->Filter = symbFilter; FormInit(); CURR_VMS_FORM_OBJ_ID = GetNewVmsFormPictObjId(); EdNmbr->Text = CURR_VMS_FORM_OBJ_ID; ChangeEditMode(2); FNewDb = true; if (OpenBmp->InitialDir == "") { OpenBmp->InitialDir = g_sAppDir; } OpenBmp->Title = FTitle; OpenBmp->FileName = ""; if (!OpenBmp->Execute()) { ChangeEditMode(1); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ChangeSymbPage(String ASymbType) { int itemIdx = -1; for (int ii = 0; ii < CbType->Properties->Items->Count; ii++) { String itemText = CbType->Properties->Items->Strings[ii]; if (itemText.Pos(ASymbType)) { itemIdx = ii; break; } } CbType->ItemIndex = itemIdx; if (ASymbType == SBT_TRAFFIC || ASymbType == SBT_ATMP || ASymbType == SBT_WEATHER || ASymbType == SBT_INCIDENT) { EdExpl->Properties->ReadOnly = true; } else EdExpl->Properties->ReadOnly = false; TcxTabSheet *pNewActive = NULL; String grpSymbCaption = "▶ 일반 심볼 이미지"; if (ASymbType == SBT_GENERAL) { pNewActive = TsSbt1; grpSymbCaption = "▶ 일반 심볼 이미지"; } else if (ASymbType == SBT_TRAFFIC) { pNewActive = TsSbt2; grpSymbCaption = "▶ 소통정보 심볼 이미지"; } else if (ASymbType == SBT_ATMP) { pNewActive = TsSbt3; grpSymbCaption = "▶ 대기환경 심볼 이미지"; } else if (ASymbType == SBT_WEATHER) { pNewActive = TsSbt4; grpSymbCaption = "▶ 기상정보 심볼 이미지"; } else if (ASymbType == SBT_INCIDENT) { pNewActive = TsSbt5; grpSymbCaption = "▶ 돌발 심볼 이미지"; } else if (ASymbType == SBT_VIDEO) { pNewActive = TsSbt6; grpSymbCaption = "▶ 동영상 심볼 이미지"; } else if (ASymbType == SBT_TRAFBAK) { pNewActive = TsSbt7; grpSymbCaption = "▶ 소통정보 배경 심볼 이미지"; } else return; TcxTabSheet *pCurActive = PgSymb->Properties->ActivePage; if (pNewActive != pCurActive) { PgSymb->Properties->ActivePage = pNewActive; GrpSymbBox->Caption = grpSymbCaption; } } //--------------------------------------------------------------------------- String __fastcall TFrmVmsMsgSymbMngr::GetSymbTypeDesc(String ASymbType) { if (ASymbType == SBT_GENERAL) { return "일반"; } else if (ASymbType == SBT_TRAFFIC) { return "소통정보"; } else if (ASymbType == SBT_ATMP) { return "대기환경"; } else if (ASymbType == SBT_WEATHER) { return "기상정보"; } else if (ASymbType == SBT_INCIDENT) { return "돌발"; } else if (ASymbType == SBT_VIDEO) { return "동영상"; } else if (ASymbType == SBT_TRAFBAK) { return "소통정보 배경"; } return "?-" + ASymbType; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FFPlayer1FileOpen(TObject *Sender, const __int64 ADuration, int AFrameWidth, int AFrameHeight, int &AScreenWidth, int &AScreenHeight) { #if 0 FPlayTime = (ADuration + 5000) / 1000000; FPlayTime++; FThumbNail = 0; FMakeThumbNail = true; #endif FDuration = ADuration; lblDuration->Caption = DurationToStr(ADuration); lblCurrentPTS->Caption = "N/A"; // setup track bar TrackBar->Frequency = 5; TrackBar->TickStyle = tsAuto; TrackBar->Max = TrackBar->Width; TrackBar->SelStart = 0; TrackBar->SelEnd = 0; TrackBar->SliderVisible = ADuration > 0; FTrackChanging = true; try { TrackBar->Position = 0; } __finally { FTrackChanging = false; } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FFPlayer1OpenFailed(TObject *Sender) { String sLastErrMsg = FFPlayer1->LastErrMsg; PnlPlayer->Caption = sLastErrMsg; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FFPlayer1Position(TObject *Sender, const __int64 APTS) { lblCurrentPTS->Caption = DurationToStr(APTS); if ((APTS >= 0) && (FDuration > 0)) { TrackBar->SelEnd = TrackBar->Max * APTS / FDuration; if (FTrackChanging == false && (IsMouseDown() == false || TrackBar->Focused() == false)) { FTrackChanging = true; try { TrackBar->Position = TrackBar->Max * APTS / FDuration; } __finally { FTrackChanging = false; } } if (FMakeThumbNail) { FThumbNail++; if (FThumbNail > 2) { //섬네일이미지 생성 FMakeThumbNail = false; } } } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::FFPlayer1State(TObject *Sender, TPlayState APlayState) { switch(APlayState) { case Ffbasecomponent::psPlay: case Ffbasecomponent::psResume: break; case Ffbasecomponent::psPause: case Ffbasecomponent::psStep: break; case Ffbasecomponent::psStop: if (FFPlayer1->ScreenHandle != NULL) { PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0); UpdateWindow(FFPlayer1->ScreenHandle); } break; case Ffbasecomponent::psEnd: { FFPlayer1->Stop(true); //FFPlayer1->Seek((__int64)0, TSeekFlags()<Seek(FDuration * TrackBar->Position / TrackBar->Max); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnPlayClick(TObject *Sender) { BtnPlay->Enabled = false; Application->ProcessMessages(); try { if (FFPlayer1->ScreenHandle != NULL) { FFPlayer1->Stop(true); PostMessage(FFPlayer1->ScreenHandle, CM_INVALIDATE, 0, 0); UpdateWindow(FFPlayer1->ScreenHandle); } FFPlayer1->AspectRatio = ChkFitScreen->Checked ? -1 : 0; FFPlayer1->TryOpen(CURR_LOCAL_FILE_NM, PnlPlayer->Handle); Application->ProcessMessages(); } catch(Exception &e) { } BtnStop->Enabled = true; BtnPause->Enabled = true; FPlayStream = true; ImgVideo->Visible = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnStopClick(TObject *Sender) { BtnStop->Enabled = false; BtnPause->Enabled = false; if (FFPlayer1->ScreenHandle != NULL) { FFPlayer1->Stop(true); } BtnPlay->Enabled = true; FPlayStream = false; ImgVideo->Visible = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnPauseClick(TObject *Sender) { try { if (FFPlayer1->ScreenHandle != NULL) { FFPlayer1->TogglePause(); } Application->ProcessMessages(); } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ChkFitScreenClick(TObject *Sender) { FFPlayer1->AspectRatio = ChkFitScreen->Checked ? -1 : 0; } //--------------------------------------------------------------------------- TImage* __fastcall TFrmVmsMsgSymbMngr::GetPreviewSymb(String ASymbType) { TImage *imagSymb = NULL; if (ASymbType == SBT_GENERAL) { imagSymb = ImgGeneral; } else if (ASymbType == SBT_TRAFFIC) { imagSymb = ImagTraffic; } else if (ASymbType == SBT_ATMP) { imagSymb = ImagAtmp; } else if (ASymbType == SBT_WEATHER) { imagSymb = ImagWeather; } else if (ASymbType == SBT_INCIDENT) { imagSymb = ImagIncident; } else if (ASymbType == SBT_VIDEO) { imagSymb = ImgVideo; } else if (ASymbType == SBT_TRAFBAK) { imagSymb = ImagTrafBack; } return imagSymb; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ImagTrafficMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (!FNewDb) return; ImageClear(ImagTraffic1); ImageClear(ImagTraffic2); ImageClear(ImagTraffic3); ImagTraffic1->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap); ImagTraffic2->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap); ImagTraffic3->Picture->Bitmap->Assign(ImagTraffic->Picture->Bitmap); TColor FOldColor = ImagTraffic->Picture->Bitmap->Canvas->Pixels[X][Y]; ImagTraffic1->Picture->Bitmap->Canvas->Brush->Color = clLime; ImagTraffic1->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface); ImagTraffic2->Picture->Bitmap->Canvas->Brush->Color = clYellow; ImagTraffic2->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface); ImagTraffic3->Picture->Bitmap->Canvas->Brush->Color = clRed; ImagTraffic3->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::ImageClear(TImage *AImage) { AImage->Picture->Bitmap->FreeImage(); AImage->Picture->Bitmap->ReleaseHandle(); AImage->Picture->Assign(NULL); AImage->Repaint(); AImage->Invalidate(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsMsgSymbMngr::BtnSubImageSelectClick(TObject *Sender) { #if 0 TcxButton *pBtn = (TcxButton*)Sender; FSelImag = NULL; switch(pBtn->Tag) { case 10: FSelImag = ImagAtmp1; break; case 11: FSelImag = ImagAtmp2; break; case 12: FSelImag = ImagAtmp3; break; case 13: FSelImag = ImagAtmp4; break; case 20: FSelImag = ImagWeather1; break; case 21: FSelImag = ImagWeather2; break; case 22: FSelImag = ImagWeather3; break; case 23: FSelImag = ImagWeather4; break; case 30: FSelImag = ImagIncident1; break; case 31: FSelImag = ImagIncident2; break; case 32: FSelImag = ImagIncident3; break; case 33: FSelImag = ImagIncident4; break; default: return; } OpenSubImag->DefaultExt = OpenBmp->DefaultExt; OpenSubImag->Filter = OpenBmp->Filter; OpenSubImag->InitialDir = OpenBmp->InitialDir; OpenSubImag->Title = FTitle; OpenSubImag->FileName = ""; OpenSubImag->Execute(); #endif } //--------------------------------------------------------------------------- int __fastcall TFrmVmsMsgSymbMngr::CheckFormObjectUseCount(String AFORM_OBJ_ID) { String sQry; TADOQuery *pADO = NULL; int nResult = 0; sQry = "SELECT COUNT(1) AS CNT \r\n" " FROM TB_VMS_FORM_VMS_FORM_OBJ \r\n" " WHERE VMS_FORM_OBJ_ID = :p01 \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", AFORM_OBJ_ID); ITSDb_SQLOpen(pADO); nResult = pADO->FieldByName("CNT")->AsInteger; } catch(EDatabaseError &E) { DBERRORMSG("CheckFormObjectUseCount", String(E.ClassName()), E.Message, sQry); return 1; } catch(Exception &e) { DBERRORMSG("CheckFormObjectUseCount", String(e.ClassName()), e.Message, sQry); return 1; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return nResult; } //---------------------------------------------------------------------------