1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "AppGlobalF.h"
- #include "ITSLangTransF.h"
- #pragma hdrstop
- #include "VMSM430MF.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 "dxGDIPlusClasses"
- #pragma link "FFBaseComponent"
- #pragma link "FFBasePlay"
- #pragma link "FFPlay"
- #pragma link "FFDecode"
- #pragma link "IdAntiFreeze"
- #pragma link "IdAntiFreezeBase"
- #pragma link "IdBaseComponent"
- #pragma link "IdComponent"
- #pragma link "IdExplicitTLSClientServerBase"
- #pragma link "IdFTP"
- #pragma link "IdTCPClient"
- #pragma link "IdTCPConnection"
- #pragma link "cxCalc"
- #pragma resource "*.dfm"
- #define LICENSE_KEY "FSXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX"
- TVMSM430M *VMSM430M = NULL;
- //---------------------------------------------------------------------------
- __fastcall TVMSM430M::TVMSM430M(TComponent* Owner)
- : TForm(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- ITSSkin_Load(this);
- PnlVmsList->Visible = false;
- cxSplitter2->Visible = false;
- PnlSymbol->Align = alClient;
- CMM_LoadForm(g_sFormsDir, this);
- FUpdate= false;
- FTitle = Caption;//"VMS 심볼이미지 관리";
- //FRAMEVmsList1->Column02->Visible = false;
- FRAMEVmsList1->PnlTop->Visible = true;
- FRAMEVmsList1->PnlBottom->Visible = false;
- FRAMEVmsList1->ColumnSel->Visible = true;
- m_pGDC = FRAMEVmsList1->TvList->DataController;
- FListSymb = new TList;
- EditMode = 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;
- //BtnSaveImgFile->Caption = "Save as image file";
- //BtnSaveImgFile->Hint = "Save as image file";
- FTrackBar[0] = TrackBar1;
- FLblDuration[0] = lblDuration1;
- FLblCurrPTS[0] = lblCurrentPTS1;
- FFPlayer[0] = FFPlayer1;
- FDispArea[0] = PnlPlayer;
- for (int ii = 0; ii < MAX_PLAYER; ii++)
- {
- FDispArea[ii]->Tag = ii;
- FDispArea[ii]->ParentColor = false;
- FDispArea[ii]->Color = clBlack;
- FDispArea[ii]->Caption = "";
- FDispArea[ii]->Refresh();
- }
- FThumbNail = 0;
- FMakeThumbNail = false;
- FFDecoder1->SetLicenseKey(LICENSE_KEY);
- String sAVILibDir = g_sAppDir + "LibAV";
- for (int ii = 0; ii < MAX_PLAYER; ii++)
- {
- FFPlayer[ii]->SetLicenseKey(LICENSE_KEY);
- FFPlayer[ii]->DisableFPUExceptions();
- if (!FFPlayer[ii]->LoadAVLib(sAVILibDir))
- {
- if (g_AppCfg.sLang != "kr") Application->MessageBox(L"Stream display library load failed.", L"Stream display fail", MB_OK|MB_ICONERROR|MB_APPLMODAL);
- else Application->MessageBox(L"영상표출 라이브러리를 로드하지 못하였습니다.", L"영상표출 오류", MB_OK|MB_ICONERROR|MB_APPLMODAL);
- }
- }
- FPlayStream = false;
- FSymbFmtLists.Push("avi", new TSymbFmt("avi", "avi"));
- FSymbFmtLists.Push("mpge", new TSymbFmt("mpeg", "mpeg"));
- FSymbFmtLists.Push("mpg", new TSymbFmt("mpg", "mpg"));
- FSymbFmtLists.Push("mkv", new TSymbFmt("mkv", "mkv"));
- FSymbFmtLists.Push("mp4", new TSymbFmt("mp4", "mp4"));
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::CommClose()
- {
- try
- {
- ClearSymbloList();
- SAFE_DELETE(FListSymb);
- CMM_SaveForm(g_sFormsDir, this);
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FormShow(TObject *Sender)
- {
- Refresh();
- FormInit();
- ChangeEditMode(1);
- TmrShow->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FormInit()
- {
- EdNmbr->Text = "";
- EdExpl->Text = "";
- EdImageFileName->Text = "";
- ImgPreView->Picture->Bitmap->FreeImage();
- ImgPreView->Picture->Bitmap = NULL;
- FNewDb = false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::TmrShowTimer(TObject *Sender)
- {
- TmrShow->Enabled = false;
- FRAMEVmsList1->UpdateList();
- LoadImageSymbol();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnCloseClick(TObject *Sender)
- {
- Close();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FormClose(TObject *Sender, TCloseAction &Action)
- {
- CommClose();
- VMSM430M = NULL;
- Action = caFree;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FormCloseQuery(TObject *Sender, bool &CanClose)
- {
- if (FUpdate)
- {
- POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
- }
- FRAMEVmsList1->OnCloseQuery(CanClose);
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::DisplayInfo()
- {
- FormInit();
- int nRow = TvList->DataController->FocusedRecordIndex;
- if( nRow <= -1 )
- return;
- TcxGridDataController *pDc = TvList->DataController;
- nRow = pDc->FocusedRecordIndex;
- if (nRow < FListSymb->Count)
- {
- Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[nRow];
- try
- {
- ImgPreView->Picture->Bitmap->Assign(bitmap);
- }
- catch(...)
- {
- ImgPreView->Picture->Bitmap->Assign(ImgTemp->Picture->Bitmap);
- }
- }
- EdNmbr->Text = VarToStr(pDc->Values[nRow][ColLink1->Index]);
- EdExpl->Text = VarToStr(pDc->Values[nRow][ColLink3->Index]);
- EdVmsCd->Text = VarToStr(pDc->Values[nRow][ColLink4->Index]);
- EdFileName->Text = VarToStr(pDc->Values[nRow][ColLink5->Index]);
- String fileExt = VarToStr(pDc->Values[nRow][ColLink6->Index]);
- SeSize->Value = VarToStr(pDc->Values[nRow][ColSize->Index]).ToIntDef(0);
- //PlayerFile[0] = g_sVideoDir + EdFileName->Text;
- PlayerFile[0] = g_sVideoDir + EdNmbr->Text + "." + fileExt;
- ChangeEditMode(3);
- BtnPlay->Enabled = true;
- BtnStop->Enabled = false;
- BtnPause->Enabled = false;
- EdFileName->Properties->ReadOnly = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnEditClick(TObject *Sender)
- {
- if (BtnEdit->Caption == FrmLang->lblEdit->Caption)//"편집")
- {
- ChangeEditMode(0);
- FNewDb = false;
- }
- else
- {
- String sId = EdNmbr->Text;
- ChangeEditMode(1);
- if (CMM_FindGridData(TvList->DataController, sId, ColLink1->Index) >= 0)
- {
- CMM_SetGridRow(CxList, TvList, sId, ColLink1->Index);
- DisplayInfo();
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::ChangeEditMode(int AEdit)
- {
- if (FPlayStream) BtnStopClick(NULL);
- bool bEnabled = false;
- EdFileName->Properties->ReadOnly = true;
- switch(AEdit)
- {
- case 0: //편집버튼클릭
- {
- BtnEdit->Enabled = true;
- BtnInsert->Enabled = false;
- BtnDelete->Enabled = false;
- BtnSave->Enabled = true;
- BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
- BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소";
- EditMode = true;
- EdImageFileName->Enabled = false;
- }
- break;
- case 1: //편집[취소]버튼클릭
- {
- FormInit(); //화면을 모두 지운다.
- BtnEdit->Enabled = false;
- BtnInsert->Enabled = true;
- BtnDelete->Enabled = false;
- BtnSave->Enabled = false;
- BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
- BtnEdit->Hint = FrmLang->lblEdit->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 = FrmLang->lblCancel->Caption;//"취소";
- BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소";
- EditMode = true;
- EdImageFileName->Enabled = true;
- //EdFileName->Properties->ReadOnly = false;
- }
- break;
- case 3: //수정모드
- {
- BtnEdit->Enabled = true;
- BtnInsert->Enabled = true;
- BtnDelete->Enabled = true;
- BtnSave->Enabled = false;
- BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
- BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집";
- bEnabled = true;
- EditMode = false;
- EdImageFileName->Enabled = false;
- }
- break;
- }
- BtnDownload->Enabled = false;
- BtnSaveImgFile->Enabled = false;
- if (ImgPreView->Picture->Bitmap != NULL)
- {
- if (ImgPreView->Picture->Bitmap->Height != 0)
- {
- BtnSaveImgFile->Enabled = true;
- BtnDownload->Enabled = true;
- }
- }
- if (AEdit == 0 || AEdit == 2)
- {
- GrpList->Enabled = false;
- PnlCmd->Enabled = true;
- }
- else
- {
- GrpList->Enabled = true;
- PnlCmd->Enabled = false;
- }
- //PnlEdit->Enabled = EditMode;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM430M::UpdateVmsImage(String ANmbr, String AExpl)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "UPDATE TB_VMS_SYMB_LIB \r\n"
- " SET SYMB_EXPL = :p02, \r\n"
- " UPDT_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') \r\n"
- " WHERE SYMBLIB_NMBR = :p01 \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", ANmbr);
- ITSDb_SQLBind(pADO, "p02", AExpl);
- pADO->ExecSQL();
- return true;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM430M::UpdateVmsImage", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM430M::UpdateVmsImage", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::DeleteFtpFile(AnsiString AFileName)
- {
- TStringList *sList = new TStringList;
- IdFtp->List(sList, "", false);
- for (int ii = 0; ii < sList->Count; ii++)
- {
- if (sList->Strings[ii] == AFileName)
- {
- IdFtp->Delete(AFileName);
- break;
- }
- }
- delete sList;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM430M::UploadFtpServer()
- {
- String sOrgFile = EdImageFileName->Text;
- String sDstFile = EdNmbr->Text + "." + FFileExt;
- if (g_AppCfg.vmsFtp.SERVER == "") return false;
- IdFtp->Host = g_AppCfg.vmsFtp.SERVER;
- IdFtp->Port = g_AppCfg.vmsFtp.PORT;
- IdFtp->Username = g_AppCfg.vmsFtp.USER;
- IdFtp->Password = g_AppCfg.vmsFtp.PSWD;
- IdFtp->Passive = g_AppCfg.vmsFtp.PASSIVE;
- String sErrMsg;
- bool bConnect = false;
- try
- {
- try
- {
- IdFtp->Connect();
- //IdFtp->ChangeDir("VIDEO");
- IdFtp->IOHandler->DefStringEncoding = TIdTextEncoding::UTF8;//IndyTextEncoding(949);
- bConnect = true;
- IdFtp->TransferType = ftBinary;
- IdFtp->Put(sOrgFile, sDstFile, false/*append_flag*/);
- }
- catch (EIdSocketError &exSock)
- {
- sErrMsg = exSock.Message;
- sErrMsg = StringReplace(sErrMsg, "\r\n", " ", TReplaceFlags() << rfReplaceAll);
- Application->MessageBox(sErrMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- catch (Exception &e)
- {
- sErrMsg = e.Message;
- sErrMsg = StringReplace(sErrMsg, "\r\n", " ", TReplaceFlags() << rfReplaceAll);
- Application->MessageBox(sErrMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return false;
- }
- }
- __finally
- {
- if (bConnect && IdFtp->Connected())
- {
- IdFtp->Abort();
- IdFtp->Quit();
- IdFtp->Disconnect();
- }
- }
- String strmFileName = g_sVideoDir + sDstFile;
- if (!FileExists(strmFileName))
- {
- ::CopyFile(sOrgFile.c_str(), strmFileName.c_str(), false);
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM430M::InsertVmsImage(String ANmbr, String AExpl, String AFileName, String ATypeCd)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- String SYMB_FILE_NM = EdFileName->Text.Trim();
- sQry = "INSERT INTO TB_VMS_SYMB_LIB(SYMBLIB_NMBR, RGST_DT, SYMB_EXPL, IMAG_DATA, SYMB_FILE_NM, SYMB_TYPE, IMAG_SIZE, PLAY_TM, UPDT_DT, DEL_YN, SYMB_IMAG_TYPE) \r\n"
- " VALUES(:p01, :p02, :p03, :p04, :p05, :p06, :p07, :p08, :p09, 'N', :p10 ) \r\n";
- TMemoryStream *dataStream = new TMemoryStream();
- //TMemoryStream *videoStream = new TMemoryStream();
- try
- {
- try
- {
- ImgPreView->Picture->Bitmap->SaveToStream(dataStream);
- //videoStream->LoadFromFile(EdImageFileName->Text);//, ftBlob);
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", ANmbr);
- ITSDb_SQLBind(pADO, "p02", Now().FormatString("yyyymmddhhnnss"));
- ITSDb_SQLBind(pADO, "p03", AExpl);
- pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob);
- ITSDb_SQLBind(pADO, "p05", SYMB_FILE_NM);
- ITSDb_SQLBind(pADO, "p06", ATypeCd);
- ITSDb_SQLBind(pADO, "p07", FFileSize);
- ITSDb_SQLBind(pADO, "p08", FPlayTime);
- ITSDb_SQLBind(pADO, "p09", Now().FormatString("yyyymmddhhnnss"));
- ITSDb_SQLBind(pADO, "p10", FFileExt);
- pADO->ExecSQL();
- #if 0
- sQry = "UPDATE TB_VMS_SYMB_LIB \r\n"
- " SET AVI_DATA = :p02 \r\n"
- " WHERE SYMBLIB_NMBR = :p01 \r\n";
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", ANmbr);
- pADO->Parameters->ParamByName("p02")->LoadFromFile(EdImageFileName->Text, ftBlob);
- //pADO->Parameters->ParamByName("p02")->LoadFromStream(videoStream, ftBlob);
- pADO->ExecSQL();
- #endif
- return true;
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM430M::InsertVmsImage", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM430M::InsertVmsImage", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- if (dataStream) delete dataStream;
- dataStream = NULL;
- //if (videoStream) delete videoStream;
- //videoStream = NULL;
- }
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnSaveClick(TObject *Sender)
- {
- if (FPlayStream) BtnStopClick(NULL);
- if (EdNmbr->Text.IsEmpty())
- {
- Application->MessageBox(lblImage1->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지 번호를 입력하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- if (EdFileName->Text.Trim().IsEmpty())
- {
- Application->MessageBox(lblImage21->Caption.c_str(),//L"VMS 이미지정보 저장\r\n동영상 파일명을 입력하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- #if 0
- String sCurExt = ExtractFileExt(EdFileName->Text.Trim());
- String sNewExt = ExtractFileExt(EdImageFileName->Text.Trim());
- if (sCurExt.UpperCase() != sNewExt.UpperCase())
- {
- Application->MessageBox(lblImage22->Caption.c_str(),//L"VMS 이미지정보 저장\r\n동영상 파일명을 입력하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- #endif
- if (EdExpl->Text.Trim().IsEmpty())
- {
- Application->MessageBox(lblImage2->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지 설명을 입력하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- bool bResult = false;
- String sNmbr = EdNmbr->Text;
- String sExpl = EdExpl->Text.Trim();
- if (!FNewDb)
- {
- bResult = UpdateVmsImage(sNmbr, sExpl);
- }
- else
- {
- if (EdImageFileName->Text.Trim().IsEmpty() || EdFileName->Text.Trim().IsEmpty())
- {
- Application->MessageBox(lblImage3->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지를 선택하셔야 합니다.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- #if 1
- if (IsUsedVideoFileName(EdFileName->Text.Trim()))
- {
- Application->MessageBox(lblSameFile->Caption.c_str(),//L"동일한 파일명이 존재합니다.\r\n파일명을 변경 한 후 다시 저장하십시요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- #endif
- // VMS FTP 전송
- if (UploadFtpServer() == false)
- {
- Application->MessageBox(lblFtpServer->Caption.c_str(),//L"VMS 통신서버로 파일을 전송할 수 없습니다.\r\n환경설정 파일에서 FTP 정보를 확인하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- bResult = InsertVmsImage(sNmbr, sExpl, "", "SBT3");
- }
- if (bResult)
- {
- Application->MessageBox(lblText1->Caption.c_str(),//L"VMS 이미지정보 저장\r\nVMS 이미지정보를 저장 하였습니다.",
- FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- FUpdate = true;
- LoadImageSymbol();
- CMM_SetGridRow(CxList, TvList, sNmbr, ColLink1->Index);
- DisplayInfo();
- CComm_VmsImageSymbolUpdate(); // VMS서버로 이미지가 업데이트 되었음을 알린다.
- POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnInsertClick(TObject *Sender)
- {
- FormInit();
- //신규아이디를 얻어와서 화면을 초기화한다.
- int nNmbr;
- if (!FrmLang->GetNextVmsImgeId(nNmbr, 5000, 5999))
- {
- Application->MessageBox(lblImage4->Caption.c_str(),//L"새로운 VMS 이미지정보를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- EdNmbr->Text = String(nNmbr);
- ChangeEditMode(2);
- FNewDb = true;
- EdImageFileNameClick((TObject *)EdImageFileName);
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnDeleteClick(TObject *Sender)
- {
- int nIdx = TvList->DataController->FocusedRecordIndex;
- if (nIdx < 0) return;
- String sId = EdNmbr->Text;
- if (sId.IsEmpty())
- {
- Application->MessageBox(lblImage6->Caption.c_str(),//L"삭제할 VMS 이미지를 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- if (FrmLang->CheckImageUseCount(sId) > 0)
- {
- Application->MessageBox(FrmLang->lblImage5->Caption.c_str(),//L"삭제할 이미지가 VMS 폼에서 사용되고 있습니다.\r\n먼저 해당 폼에서 삭제해주시기 바랍니다.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- String sMsg;
- sMsg = lblImage7->Caption + ": " + sId;//"VMS이미지번호: " + sId;
- sMsg+= "\r\n" + lblImage8->Caption;//"선택하신 VMS 이미지 정보를 삭제하시겠습니까?";
- if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
- if (FrmLang->DelVmsImage(sId, false))
- {
- FUpdate = true;
- Application->MessageBox(lblImage9->Caption.c_str(),//L"VMS 이미지정보삭제\r\nVMS 이미지정보를 삭제 하였습니다.",
- FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- FormInit();
- ChangeEditMode(1);
- LoadImageSymbol();
- POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnSaveImgFileClick(TObject *Sender)
- {
- SaveDialog->Title = FTitle;
- SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
- SaveDialog->Filter = "동영상 파일 (*.avi;*.mpeg;*.mpg;*.mkv;*.mp4)|*.avi;*.mpeg;*.mpg;*.mkv;*.mp4";
- SaveDialog->FileName = EdFileName->Text;
- if (SaveDialog->Execute())
- {
- try {
- String sFileName = SaveDialog->FileName;
- int iRet = sFileName.Pos(".bmp");
- if (iRet == 0)
- {
- sFileName = SaveDialog->FileName + ".bmp";
- }
- ImgPreView->Picture->SaveToFile(sFileName);
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::EdImageFileNameClick(TObject *Sender)
- {
- OpenBmp->Title = FTitle;
- OpenBmp->FileName = "";
- OpenBmp->Execute();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::OpenBmpCanClose(TObject *Sender, bool &CanClose)
- {
- String CURR_LOCAL_FILE_NM = OpenBmp->FileName;
- String sFilePath = ExtractFilePath(CURR_LOCAL_FILE_NM);
- String sFileExt = ExtractFileExt(CURR_LOCAL_FILE_NM);
- OpenBmp->InitialDir = sFilePath;
- sFileExt = StringReplace(sFileExt, ".", "", TReplaceFlags() << rfReplaceAll);
- sFileExt = sFileExt.LowerCase();
- TSymbFmt *symbFmt = FSymbFmtLists.Find(sFileExt);
- if (symbFmt == NULL) {
- Application->MessageBox(L"VMS 동영상으로 지원하지 않는 형식입니다.\r\n지원형식(avi, mpeg, mpg, mkv, mp4)", L"동영상 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
- BtnInsertClick((TObject*)BtnInsert);
- return;
- }
- //42360832 ==> 42MB
- //1073741824 ==> 953GB
- if (!FFDecoder1->LoadFile(CURR_LOCAL_FILE_NM))
- {
- Application->MessageBox(lblImage12->Caption.c_str(),//L"동영상 파일을 읽어 오는데 실패하였습니다.",
- lblImage1->Caption.c_str(),//L"VMS 동영상 선택",
- MB_OK|MB_ICONWARNING|MB_APPLMODAL);
- return;
- }
- int CURR_PICT_WDTH;
- int CURR_PICT_HGHT;
- int CURR_PICT_DATA_SZ = 0;
- if (FFDecoder1->Decode())
- {
- __int64 FDuration = 0;
- try {
- FDuration = FFDecoder1->VideoStreamInfos[0].DurationScaled;
- //FDuration = FFDecoder1->FileStreamInfo.Duration;
- } catch(Exception &e) {
- ShowMessage(e.Message);
- }
- FPlayTime = (FDuration + 5000) / 1000000;
- FPlayTime++;
- FFDecoder1->CopyToBitmap(ImgTemp->Picture->Bitmap);
- ImgPreView->Picture->Bitmap->Width = ImgPreView->Width;
- ImgPreView->Picture->Bitmap->Height = ImgPreView->Height;
- APP_ImageClear(ImgPreView->Canvas, 0, 0, ImgPreView->Width, ImgPreView->Height, clBlack);
- SetStretchBltMode(ImgPreView->Canvas->Handle, MAXSTRETCHBLTMODE);//HALFTONE);//MAXSTRETCHBLTMODE)//STRETCH_HALFTONE;
- ImgPreView->Canvas->CopyRect(Classes::Rect(0, 0, ImgPreView->Width, ImgPreView->Height),
- ImgTemp->Picture->Bitmap->Canvas,
- Classes::Rect(0, 0, ImgTemp->Picture->Bitmap->Width, ImgTemp->Picture->Bitmap->Height));
- CURR_PICT_WDTH = ImgTemp->Picture->Bitmap->Width;
- CURR_PICT_HGHT = ImgTemp->Picture->Bitmap->Height;
- CURR_PICT_DATA_SZ = FFDecoder1->FileSize;
- SeSize->Value = CURR_PICT_DATA_SZ;
- SeWidth->Value = CURR_PICT_WDTH;
- SeHeight->Value = CURR_PICT_HGHT;
- }
- FFDecoder1->CloseFile();
- try
- {
- FFileSize = CURR_PICT_DATA_SZ;//ITSUtil_GetFileSize(CURR_LOCAL_FILE_NM);
- if (FFileSize <= 0)
- {
- Application->MessageBox(L"이미지 파일을 읽어 오는데 실패하였습니다.(파일 사이즈 오류)",
- lblImage1->Caption.c_str(),//L"VMS 이미지 선택",
- MB_OK|MB_ICONWARNING|MB_APPLMODAL);
- BtnInsertClick((TObject*)BtnInsert);
- return;
- }
- EdImageFileName->Text = CURR_LOCAL_FILE_NM;
- PlayerFile[0] = CURR_LOCAL_FILE_NM;
- BtnPlay->Enabled = true;
- BtnStop->Enabled = false;
- BtnPause->Enabled = false;
- //FVideoStream
- FFileName = ExtractFileName(CURR_LOCAL_FILE_NM);
- EdExpl->Text = FFileName;
- FFileExt = sFileExt;
- EdFileName->Text = FFileName;
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::ClearSymbloList()
- {
- for(int ii = 0; ii < FListSymb->Count; ii++)
- {
- Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
- delete bitmap;
- }
- FListSymb->Clear();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::LoadImageSymbol()
- {
- FormInit();
- CMM_ClearGridTableView(TvList);
- ClearSymbloList();
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT SYMBLIB_NMBR, IMAG_SIZE, \r\n"
- " IMAG_DATA, SYMB_IMAG_TYPE, \r\n"
- " SYMB_EXPL, SYMB_FILE_NM, SYMB_TYPE, \r\n"
- " AVI_DATA \r\n"
- " FROM TB_VMS_SYMB_LIB \r\n"
- " WHERE SYMBLIB_NMBR BETWEEN 5000 AND 5999 \r\n"
- " AND SYMB_TYPE = 'SBT3' \r\n"
- " AND DEL_YN = 'N' \r\n"
- " ORDER BY SYMBLIB_NMBR \r\n";
- ForceDirectories(g_sVideoDir.c_str());
- 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);
- for( ; !pADO->Eof; pADO->Next())
- {
- nRow = pGDC->AppendRecord();
- pGDC->Values[nRow][ColLink1->Index] = pADO->FieldByName("SYMBLIB_NMBR")->AsString;
- pGDC->Values[nRow][ColLink2->Index] = pADO->FieldByName("IMAG_DATA")->AsVariant;
- pGDC->Values[nRow][ColLink3->Index] = pADO->FieldByName("SYMB_EXPL")->AsString;
- pGDC->Values[nRow][ColLink4->Index] = pADO->FieldByName("SYMB_TYPE")->AsString;
- pGDC->Values[nRow][ColLink5->Index] = pADO->FieldByName("SYMB_FILE_NM")->AsString;
- pGDC->Values[nRow][ColLink6->Index] = pADO->FieldByName("SYMB_IMAG_TYPE")->AsString;
- pGDC->Values[nRow][ColSize->Index] = pADO->FieldByName("IMAG_SIZE")->AsInteger;
- #if 0
- String strmFileName = g_sVideoDir + pADO->FieldByName("SYMB_FILE_NM")->AsString;
- if (!FileExists(strmFileName))
- {
- TMemoryStream *Stream1 = (TMemoryStream *)pADO->CreateBlobStream(pADO->FieldByName("AVI_DATA"), bmRead);
- Stream1->SaveToFile(strmFileName);
- SAFE_DELETE(Stream1);
- }
- #endif
- Graphics::TBitmap *bitmap = new Graphics::TBitmap;
- try
- {
- bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("IMAG_DATA"), bmRead));
- }
- catch(...)
- {
- bitmap->Assign(ImgTemp->Picture->Bitmap);
- }
- FListSymb->Add(bitmap);
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM430M::LoadImageSymbol", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM430M::LoadImageSymbol", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- TvList->EndUpdate();
- }
- }
- //---------------------------------------------------------------------------
- bool __fastcall TVMSM430M::IsUsedVideoFileName(String AFileName)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT COUNT(1) AS CNT \r\n"
- " FROM TB_VMS_SYMB_LIB \r\n"
- " WHERE SYMB_TYPE = 'SBT3' \r\n"
- " AND SYMB_FILE_NM = :p01 \r\n";
- int nExist = 1;
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", AFileName);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next())
- {
- nExist = pADO->FieldByName("CNT")->AsInteger;
- }
- }
- catch(EDatabaseError &E)
- {
- DBERRORMSG("TVMSM430M::IsUsedVideoFileName", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- DBERRORMSG("TVMSM430M::IsUsedVideoFileName", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return nExist == 0 ? false : true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
- TMouseButton AButton, TShiftState AShift,
- bool &AHandled)
- {
- if (!ACellViewInfo) return;
- DisplayInfo();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnDownloadClick(TObject *Sender)
- {
- if (EdNmbr->Text.IsEmpty())
- {
- Application->MessageBox(lblText2->Caption.c_str(),//L"VMS 이미지 제어기 다운로드\r\n이미지를 선택 하세요.",
- FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
- return;
- }
- int nSelects = CMM_GetCheckCount(FRAMEVmsList1->TvList, FRAMEVmsList1->ColumnSel->Index);
- if (0 == nSelects)
- {
- Application->MessageBox(lblText3->Caption.c_str(),//L"VMS 이미지 제어기 다운로드\r\n다운로드할 VMS 제어기를 선택 하세요.",
- FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL);
- return;
- }
- String sNmbr = EdNmbr->Text;
- String sMsg;
- sMsg = lblImage7->Caption + ": " + sNmbr;//"VMS이미지번호: " + sNmbr;
- sMsg+= "\r\n" + lblText4->Caption;//"선택하신 VMS 이미지 정보를 선택한 VMS 제어기로 다운로드 하시겠습니까?";
- if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
- String sUserId = g_pLOGIN->sUserId;
- String sRgstDt = Now().FormatString("yyyymmddhhnnss");
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "INSERT INTO TB_VMS_DOWNLOAD ( \r\n"
- " RGST_DT, \r\n"
- " VMS_CTLR_NMBR, \r\n"
- " FILETYPE, \r\n"
- " FILEID, \r\n"
- " USER_ID) \r\n"
- " VALUES ( \r\n"
- " :p01, \r\n"
- " :p02, \r\n"
- " :p03, \r\n"
- " :p04, \r\n"
- " :p05 ) \r\n";
- try
- {
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = ITSDb_GetConnection();
- ITSDb_SQLText(pADO, sQry);
- ITSDb_GetConnection()->BeginTrans();
- int nRowCnt = FRAMEVmsList1->TvList->ViewData->RecordCount;
- for (int ii = 0; ii < nRowCnt; ii++)
- {
- TcxCustomGridRow* ARow = FRAMEVmsList1->TvList->ViewData->Rows[ii];
- if (((bool)ARow->Values[FRAMEVmsList1->ColumnSel->Index]))
- {
- String sVmsNmbr = VarToStr(ARow->Values[FRAMEVmsList1->Column01->Index]);
- ITSDb_SQLBind(pADO, "p01", sRgstDt);
- ITSDb_SQLBind(pADO, "p02", sVmsNmbr);
- ITSDb_SQLBind(pADO, "p03", "1");
- ITSDb_SQLBind(pADO, "p04", sNmbr);
- ITSDb_SQLBind(pADO, "p05", sUserId);
- ITSDb_SQLExec(pADO);
- }
- }
- ITSDb_GetConnection()->CommitTrans();
- }
- catch(EDatabaseError &E)
- {
- ITSDb_GetConnection()->RollbackTrans();
- DBERRORMSG("TVMSM430M::BtnDownloadClick", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- ITSDb_GetConnection()->RollbackTrans();
- DBERRORMSG("TVMSM430M::BtnDownloadClick", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- #if 0
- sMsg = "VMS 이미지 제어기 다운로드\r\n"
- "VMS 이미지를 제어기로 다운로드 요청하였습니다.\r\n"
- "VMS 제어기 통신상태에 따라 다운로드가 원활하게 진행되지 않을 수 있습니다.";
- #else
- sMsg = lblText5->Caption;
- #endif
- Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
- //FRAMEVmsList1->BtnAllSelectClick((TObject*)FRAMEVmsList1->BtnAllClear);
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
- TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
- bool ANewItemRecordFocusingChanged)
- {
- if (!AFocusedRecord) return;
- DisplayInfo();
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnPlayClick(TObject *Sender)
- {
- BtnPlay->Enabled = false;
- for (int ii = 0; ii < MAX_PLAYER; ii++)
- {
- Application->ProcessMessages();
- try
- {
- if (PlayerFile[ii] == "")
- {
- if (!FileExists(PlayerFile[ii])) {
- String errMsg = "VMS 동영상파일을 찾을 수 없습니다.\r\n";
- errMsg += PlayerFile[ii];
- Application->MessageBox(errMsg.c_str(), L"동영상 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
- continue;
- }
- if (FFPlayer[ii]->ScreenHandle != NULL)
- {
- FFPlayer[ii]->Stop(true);
- PostMessage(FFPlayer[ii]->ScreenHandle, CM_INVALIDATE, 0, 0);
- UpdateWindow(FFPlayer[ii]->ScreenHandle);
- }
- continue;
- }
- FFPlayer[ii]->AspectRatio = ChkFullScreen->Checked ? -1 : 0;
- FFPlayer[ii]->TryOpen(PlayerFile[ii], FDispArea[ii]->Handle);
- Application->ProcessMessages();
- }
- catch(Exception &e)
- {
- }
- }
- BtnStop->Enabled = true;
- BtnPause->Enabled = true;
- FPlayStream = true;
- ImgPreView->Visible = false;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnStopClick(TObject *Sender)
- {
- BtnStop->Enabled = false;
- BtnPause->Enabled = false;
- try
- {
- for (int ii = 0; ii < MAX_PLAYER; ii++)
- {
- try
- {
- if (FFPlayer[ii]->ScreenHandle != NULL)
- {
- FFPlayer[ii]->Stop(true);
- }
- Application->ProcessMessages();
- }
- catch(Exception &e)
- {
- }
- }
- } catch(...) {}
- BtnPlay->Enabled = true;
- FPlayStream = false;
- ImgPreView->Visible = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::BtnPauseClick(TObject *Sender)
- {
- try
- {
- for (int ii = 0; ii < MAX_PLAYER; ii++)
- {
- try
- {
- if (FFPlayer[ii]->ScreenHandle != NULL)
- {
- FFPlayer[ii]->TogglePause();
- }
- Application->ProcessMessages();
- }
- catch(Exception &e)
- {
- }
- }
- } catch(...) {}
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::ChkFullScreenClick(TObject *Sender)
- {
- FFPlayer1->AspectRatio = ChkFullScreen->Checked ? -1 : 0;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::TrackBar1Change(TObject *Sender)
- {
- int nTag = dynamic_cast<TComponent *>(Sender)->Tag;
- switch(nTag)
- {
- case 0:
- case 1:
- case 2:
- break;
- default: return;
- }
- if (!FTrackChanging[nTag] && !IsMouseDown())
- {
- FFPlayer[nTag]->Seek(FDuration[nTag] * FTrackBar[nTag]->Position / FTrackBar[nTag]->Max);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FFPlayer1FileOpen(TObject *Sender, const __int64 ADuration, int AFrameWidth, int AFrameHeight,
- int &AScreenWidth, int &AScreenHeight)
- {
- int nTag = dynamic_cast<TComponent *>(Sender)->Tag;
- switch(nTag)
- {
- case 0:
- case 1:
- case 2:
- break;
- default: return;
- }
- #if 0
- FPlayTime = (ADuration + 5000) / 1000000;
- FPlayTime++;
- FThumbNail = 0;
- FMakeThumbNail = true;
- #endif
- FDuration[nTag] = ADuration;
- FLblDuration[nTag]->Caption = DurationToStr(ADuration);
- FLblCurrPTS[nTag]->Caption = "N/A";
- // setup track bar
- FTrackBar[nTag]->Frequency = 5;
- FTrackBar[nTag]->TickStyle = tsAuto;
- FTrackBar[nTag]->Max = FTrackBar[nTag]->Width;
- FTrackBar[nTag]->SelStart = 0;
- FTrackBar[nTag]->SelEnd = 0;
- FTrackBar[nTag]->SliderVisible = ADuration > 0;
- FTrackChanging[nTag] = true;
- try
- {
- FTrackBar[nTag]->Position = 0;
- }
- __finally
- {
- FTrackChanging[nTag]= false;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FFPlayer1OpenFailed(TObject *Sender)
- {
- int nTag = dynamic_cast<TComponent *>(Sender)->Tag;
- switch(nTag)
- {
- case 0:
- case 1:
- case 2:
- break;
- default: return;
- }
- String sLastErrMsg = FFPlayer[nTag]->LastErrMsg;
- FDispArea[nTag]->Caption = sLastErrMsg;
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FFPlayer1Position(TObject *Sender, const __int64 APTS)
- {
- int nTag = dynamic_cast<TComponent *>(Sender)->Tag;
- switch(nTag)
- {
- case 0:
- case 1:
- case 2:
- break;
- default: return;
- }
- FLblCurrPTS[nTag]->Caption = DurationToStr(APTS);
- if ((APTS >= 0) && (FDuration[nTag] > 0))
- {
- FTrackBar[nTag]->SelEnd = FTrackBar[nTag]->Max * APTS / FDuration[nTag];
- if (FTrackChanging[nTag] == false && (IsMouseDown() == false || FTrackBar[nTag]->Focused() == false))
- {
- FTrackChanging[nTag] = true;
- try
- {
- FTrackBar[nTag]->Position = FTrackBar[nTag]->Max * APTS / FDuration[nTag];
- }
- __finally
- {
- FTrackChanging[nTag] = false;
- }
- }
- if (FMakeThumbNail)
- {
- FThumbNail++;
- if (FThumbNail > 2)
- {
- //섬네일이미지 생성
- FMakeThumbNail = false;
- }
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TVMSM430M::FFPlayer1State(TObject *Sender, TPlayState APlayState)
- {
- int nTag = dynamic_cast<TComponent *>(Sender)->Tag;
- switch(nTag)
- {
- case 0:
- case 1:
- case 2:
- break;
- default: return;
- }
- switch(APlayState)
- {
- case Ffbasecomponent::psPlay:
- case Ffbasecomponent::psResume:
- break;
- case Ffbasecomponent::psPause:
- case Ffbasecomponent::psStep:
- break;
- case Ffbasecomponent::psStop:
- if (FFPlayer[nTag]->ScreenHandle != NULL)
- {
- PostMessage(FFPlayer[nTag]->ScreenHandle, CM_INVALIDATE, 0, 0);
- UpdateWindow(FFPlayer[nTag]->ScreenHandle);
- }
- break;
- case Ffbasecomponent::psEnd:
- {
- FFPlayer[nTag]->Stop(true);
- //FFPlayer[nTag]->Seek((__int64)0, TSeekFlags()<<sfBackward);
- }
- break;
- }
- }
- //---------------------------------------------------------------------------
|