ufrmmain.pas

a voice guide client ,it is the second part of voice guide center

unit uFrmMain;

interface

uses
  Windows, Messages, Clipbrd, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, ImgList, dxDockControl,
  dxDockPanel, dxBar, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, tbGisIdTCPClient, cxContainer,
  cxListView, ExtCtrls, GisViewer, GisDefs, GisViewerWnd, ActnList,
  GisTargetCommander, GisControlHawkEye, GisControlScale, GisMapManager,
  uFramMap, dxsbar, ComCtrls, uPubFun, StdCtrls, TbListView, jpeg,
  IdAntiFreezeBase, IdAntiFreeze, cxEdit, cxProgressBar, IdCoder,
  IdCoder3to4, IdCoderMIME, IniFiles, uMileageStat,
  GpsNetCommCtrl, dxBarExtItems, GisObjQry,
  uFramGisQry, ShellAPI, JudgeGpsState, dxStatusBar, RzButton,
  GisLayerVector, uCgmDlgs, uFrmCustomerParkingSetup,
  ufrmPetroZPMain,uFrmFastCall,uFrm_Th_CameraPic,
  uPetroBusinessMonitorClient, StrUtils, uFrmSplash,uFrmSetOil, ufrmPetroQFMain,
  uGPSClientActiveCarListView, uGPSClientTargetMapWin, uGPSClientTargetDisplay,
  uGPSClientVehicleStatusString, ufrmGISClientMain,
  ufrmGPSANAMain, ufrmGPSOILMain, TbLogFile, ufrmDistanceCalcMain, uBaseDBDataModule,
  ufrmMSCMain, ufrmGasLevelInfoMain, uGPSClientTrackDistance, uFrmReplaySetStopSect,
  uGPSClientLanguage, uBaseDBDefs, uGPSClientCarInfoListDisplay,
  VirtualTrees, uGPSClientVirtualTreeView, VTHeaderPopup, QStrings,
  GisControlGeoListview, uGPSClientVehicleInfoUtils, uGPSClientProcessOperation,
  uGPSClientProcessTrack, uGPSClientProcessUtils, uGISClientManager;

const
  WM_LinkTcp    = WM_USER+ 100;
  WM_ShowGpsLoc = WM_USER+ 101;


type
  TMemoData = record
    MemoStr : string;
  end;

  PMemoData = ^TMemoData;

  TfrmMain = class(TForm)
    dxBarManager1: TdxBarManager;
    dxDockingManager1: TdxDockingManager;
    ilMain: TImageList;
    dxStatusBar1: TdxStatusBar;
    dxBarSubItemFile: TdxBarSubItem;
    dxBarSubItemMap: TdxBarSubItem;
    dxBarSubItemView: TdxBarSubItem;
    dxBarSubItemHelp: TdxBarSubItem;
    dxBarBtnAddWin: TdxBarButton;
    dxBarBtnDelWin: TdxBarButton;
    dxBarBtnSysSett: TdxBarButton;
    dxBarBtnNetSett: TdxBarButton;
    dxBarBtnLogOff: TdxBarButton;
    dxBarBtnClose: TdxBarButton;
    dxBarBtnZoom: TdxBarButton;
    dxBarBtnPan: TdxBarButton;
    dxBarBtnAllMap: TdxBarButton;
    dxBarBtnRuler: TdxBarButton;
    dxBarBtnArea: TdxBarButton;
    dxBarBtnRoute: TdxBarButton;
    dxBarBtnFind: TdxBarButton;
    dxBarBtnPrint: TdxBarButton;
    ActionList1: TActionList;
    actFileClose: TAction;
    actFileNetSett: TAction;
    TargetCommander1: TTargetCommander;
    actFileAddWin: TAction;
    dsHost: TdxDockSite;
    dxLayoutDockSite3: TdxLayoutDockSite;
    dpStartPage: TdxDockPanel;
    dpCarList: TdxDockPanel;
    dpHawkEye: TdxDockPanel;
    dxTabContainerDockActive: TdxTabContainerDockSite;
    dpActiveCars: TdxDockPanel;
    dpReverMsg: TdxDockPanel;
    lvMessage: TListView;
    dpWatch: TdxDockPanel;
    dpMapbox: TdxDockPanel;
    GIS_ControlHawkEye1: TGIS_ControlHawkEye;
    actCtrlStopAll: TAction;
    actMapZoom: TAction;
    actMapPan: TAction;
    actMapViewAllLyr: TAction;
    actMapRuler: TAction;
    actMapArea: TAction;
    actMapRouter: TAction;
    actMapQry: TAction;
    actMapPrint: TAction;
    actFileSysSett: TAction;
    pmFastCall: TdxBarPopupMenu;
    dxStatusBar1Container4: TdxStatusBarContainerControl;
    pbFlux: TcxProgressBar;
    Timer1: TTimer;
    dxBarBtnCallOne: TdxBarButton;
    dxBarBtnCallMore: TdxBarButton;
    dxBarBtnCallStop: TdxBarButton;
    dxBarBtnSelAll: TdxBarButton;
    dxBarBtnSelNo: TdxBarButton;
    dxBarBtnSelAllNo: TdxBarButton;
    dxBarBtnSel: TdxBarButton;
    actCallOne: TAction;
    actCallMore: TAction;
    actCallStop: TAction;
    actSelAll: TAction;
    actSelOppose: TAction;
    actSelAllNo: TAction;
    actSelQry: TAction;
    //cbMapChanger: TdxBarCombo;
    dxBarCombo1: TdxBarCombo;
    actFileNetSend: TAction;
    dxBarBtnSendNetCmd: TdxBarButton;
    dxBarBtnCmdSelAll: TdxBarButton;
    dxBarBtnCmdSelNo: TdxBarButton;
    dxBarBtnCmdSelAllNo: TdxBarButton;
    dxBarBtnCmdQry: TdxBarButton;
    IdAntiFreeze1: TIdAntiFreeze;
    pmActiveCtrl: TdxBarPopupMenu;
    dxLayoutDockSite5: TdxLayoutDockSite;
    dxVertContainerDockSite1: TdxVertContainerDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxBarBtnStopCtrl: TdxBarButton;
    dxBarBtnStopAllCtrl: TdxBarButton;
    dxBarBtnActiveTargetClear: TdxBarButton;
    dxBarBtnTrackShowPt: TdxBarButton;
    dxBarBtnTrackShowLine: TdxBarButton;
    dxBarBtnTrackShowAll: TdxBarButton;
    actCtrlStop: TAction;
    actCtrlTrackClear: TAction;
    actCtrlTrackShowAll: TAction;
    actCtrlTrackShowPt: TAction;
    actCtrlTrackShowLine: TAction;
    actCtrlClearActiveTarget: TAction;
    dxBarBtnTrackClear: TdxBarButton;
    dxBarBtnTrackShowAllNone: TdxBarButton;
    actCtrlTrackShowNone: TAction;
    dxBarLargeBtnMapZoom: TdxBarLargeButton;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeBtnMapAllLyr: TdxBarLargeButton;
    dxBarLargeBtnMapRuler: TdxBarLargeButton;
    dxBarLargeBtnMapArea: TdxBarLargeButton;
    dxBarLargeBtnNetCmd: TdxBarLargeButton;
    dxBarLargeBtnMapSearch: TdxBarLargeButton;
    dxBarLargeBtnMapPrint: TdxBarLargeButton;
    dxBarLargeBtnSysSett: TdxBarLargeButton;
    dxBarBtnMapSelCar: TdxBarButton;
    actMapSelCar: TAction;
    actViewIconBig: TAction;
    actViewIconSmall: TAction;
    dxBarBtnIconBig: TdxBarButton;
    dxBarBtnIconSmall: TdxBarButton;
    actViewIconNone: TAction;
    actViewMapQry: TAction;
    actViewCarList: TAction;
    actViewEagleEye: TAction;
    actViewActiveCarList: TAction;
    dxBarBtnIconNone: TdxBarButton;
    dxBarLargeBtnAreaSelCar: TdxBarLargeButton;
    actFileAreaSelCar: TAction;
    actFileReplay: TAction;
    dxBarBtnReplay: TdxBarButton;
    dxBarLargeBtnReplay: TdxBarLargeButton;
    actReplayToFirst: TAction;
    actReplayToBack: TAction;
    actReplayDoStart: TAction;
    actReplayDoPause: TAction;
    actReplayDoStop: TAction;
    actReplayToFore: TAction;
    actReplayToEnd: TAction;
    dxBarBtnReplayToFirst: TdxBarButton;
    dxBarBtnReplayToBack: TdxBarButton;
    dxBarBtnReplayDoStart: TdxBarButton;
    dxBarBtnReplayDoPause: TdxBarButton;
    dxBarBtnReplayDoStop: TdxBarButton;
    dxBarBtnReplayToFore: TdxBarButton;
    dxBarBtnReplayToEnd: TdxBarButton;
    dxBarReplayProgress: TdxBarProgressItem;
    dxBarSpinEdit1: TdxBarSpinEdit;
    dpReplay: TdxDockPanel;
    dxBarBtnEm: TdxBarButton;
    actFunEm: TAction;
    dxBarLargeBtnEm: TdxBarLargeButton;
    pmMsg: TdxBarPopupMenu;
    dxBarBtnMsgMarkReaded: TdxBarButton;
    dxBarBtnMsgMarkUnRead: TdxBarButton;
    dxBarBtnMsgCopy: TdxBarButton;
    actMsgMarkReaded: TAction;
    actMsgMarkUnRead: TAction;
    actMsgCopy: TAction;
    actCtrlCopy: TAction;
    dxBarBtnCtrlCopy: TdxBarButton;
    actFastCopy: TAction;
    dxBarBtnFastCopy: TdxBarButton;
    dxBarBtnSendCopy: TdxBarButton;
    dxBarBtnViewMapQry: TdxBarButton;
    dxBarBtnViewCarList: TdxBarButton;
    dxBarBtnViewHawkEye: TdxBarButton;
    dxBarBtnViewActiveCarList: TdxBarButton;
    actMsgDel: TAction;
    pmListViewSel: TdxBarPopupMenu;
    actListViewSelAll: TAction;
    actListViewSelNo: TAction;
    actListViewSelAllNo: TAction;
    actListViewSelQry: TAction;
    dxBarBtnLvSelAll: TdxBarButton;
    dxBarBtnLvSelNo: TdxBarButton;
    dxBarBtnLvSelAllNo: TdxBarButton;
    dxBarBtnLvSelQry: TdxBarButton;
    dxBarBtnActiveCtrlSel: TdxBarButton;
    dxBarBtnMsgDel: TdxBarButton;
    dxBarBtnMsgSel: TdxBarButton;
    il24: TImageList;
    actMapAutoChg: TAction;
    dxBarLargeBtnAutoChgMap: TdxBarLargeButton;
    dxBarBtnMapAutoChgMap: TdxBarButton;
    dxBarBtnFastReplay: TdxBarButton;
    dxBarBtnFastAddCarInfo: TdxBarButton;
    actFileAddCar: TAction;
    dxBarBtnActiveShowCarInfo: TdxBarButton;
    actFunShowCarInfo: TAction;
    actReplayCtrlTrackAll: TAction;
    actReplayCtrlTrackPt: TAction;
    actReplayCtrlTrackLine: TAction;
    actReplayCtrlTrackNone: TAction;
    actReplayCtrlTrackClear: TAction;
    actReplayCtrlCopy: TAction;
    actReplayCtrlActiveClear: TAction;
    pmReplayTargetCtrl: TdxBarPopupMenu;
    dxBarBtnReplayCtrlActiveClear: TdxBarButton;
    dxBarBtnReplayCtrlTrackAll: TdxBarButton;
    dxBarBtnReplayCtrlTrackPt: TdxBarButton;
    dxBarBtnReplayCtrlTrackLine: TdxBarButton;
    dxBarBtnReplayCtrlTrackNone: TdxBarButton;
    dxBarBtnReplayCtrlTrackClear: TdxBarButton;
    dxBarBtnReplayCtrlCopy: TdxBarButton;
    dxBarBtnReplayCtrlTrackCarInfo: TdxBarButton;
    actMapQryKeyWord: TAction;
    actMapQryCircle: TAction;
    actMapQryRect: TAction;
    actMapQryPloy: TAction;
    dxBarBtnMapQryKeyword: TdxBarButton;
    dxBarBtnMapQryCircle: TdxBarButton;
    dxBarBtnMapQryRect: TdxBarButton;
    dxBarBtnMapQryPoly: TdxBarButton;
    dxLayoutDockSite2: TdxLayoutDockSite;
    actFileGpsStat: TAction;
    dxBarBtnGpsStat: TdxBarButton;
    actMapQryRouter: TAction;
    dxBarBtnMapQryRouter: TdxBarButton;
    actHDGL: TAction;
    actHDCX: TAction;
    actDataIO: TAction;
    actFileQryStayLong: TAction;
    dxBarBtnFileQryStayLong: TdxBarButton;
    dxBarBtnFileTaxiStat: TdxBarButton;
    actFileTaxiStat: TAction;
    actFileTaxiStatChart: TAction;
    dxBarBtnFileTaxiStatChart: TdxBarButton;
    actReplayPrePoint: TAction;
    actReplayBackPoint: TAction;
    dxBarBtnReplayPerPt: TdxBarButton;
    dxBarBtnReplayBackPt: TdxBarButton;
    actMapLayrCtrl: TAction;
    dxBarLargeBtnMapLyrCtrl: TdxBarLargeButton;
    dxBarBtnMapLyrCtrl: TdxBarButton;
    actFunShowMsg: TAction;
    dxBarBtnMarkRead: TdxBarButton;
    dxBarBtnDelMsg: TdxBarButton;
    dxBarLargeBtnShowMsg: TdxBarLargeButton;
    dxBarBtnFunMsg: TdxBarButton;
    dxBarBtnFileAlarmQry: TdxBarButton;
    actFileAlarmQry: TAction;
    actFilePriceBaseData: TAction;
    dxBarBtnPriceBaseData: TdxBarButton;
    actFileLaterAlarmSet: TAction;
    dxBarBtnLaterAlarmSet: TdxBarButton;
    dxStatusBar1Container7: TdxStatusBarContainerControl;
    RzBtSound: TRzToolButton;
    ImSound: TImageList;
    dxBarSITaxi: TdxBarSubItem;
    actTaxiWork: TAction;
    actTaxiWorkLook: TAction;
    actTaxiLawsuit: TAction;
    actTaxiLoseWareRec: TAction;
    actTaxiWorkRpt: TAction;
    dxBarBtnTaxiWork: TdxBarButton;
    dxBarBtnTaxiLook: TdxBarButton;
    dxBarBtnTaxiLawsuit: TdxBarButton;
    dxBarBtnLoseWareRec: TdxBarButton;
    actTaxiRportLost: TAction;
    dxBarBtnReportLost: TdxBarButton;
    dxBarBtnTaxiReport: TdxBarButton;
    actTaxiLostQry: TAction;
    dxBarBtnLostQry: TdxBarButton;
    actCustomerFindSystemInfo: TAction;
    dxBarBtnFindCmdInfo: TdxBarButton;
    dxBarSubItem1: TdxBarSubItem;
    dxBarBtnRestAlert: TdxBarButton;
    actCustomerRestAlert: TAction;
    tmAlert: TTimer;
    actCustomerInOutAlert: TAction;
    dxBarBtnInOutAlert: TdxBarButton;
    actMapSelectOil: TAction;
    dxBarButton1: TdxBarButton;
    actSTGoods: TAction;
    dxBarButton2: TdxBarButton;
    dxBarBtnMapEditNew: TdxBarButton;
    dxBarBtnMapEditSelect: TdxBarButton;
    dxBarBtnMapEditUndo: TdxBarButton;
    dxBarBtnMapEditRedo: TdxBarButton;
    dxBarBtnMapEditDel: TdxBarButton;
    dxBarBtnMapEditEnd: TdxBarButton;
    dxBarBtnMapEditSave: TdxBarButton;
    dxBarBtnMapGeoSelect: TdxBarButton;
    dxBarBtnMapEditSymb: TdxBarButton;
    actCustomerParking: TAction;
    dxBarButton3: TdxBarButton;
    framGisQry1: TframGisQry;
    dxBarBtnSendMsg: TdxBarButton;
    actSendCarMsg: TAction;
    dxBarButton4: TdxBarButton;
    actPetro: TAction;
    dxBarButton5: TdxBarButton;
    actFileAbout: TAction;
    dxBarButton6: TdxBarButton;
    actPetroZP: TAction;
    dxBarButton7: TdxBarButton;
    actViewArrangeWin: TAction;
    dxBarButton8: TdxBarButton;
    actViewFullScreen: TAction;
    actViewWindow: TAction;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    actCtrlFastCall: TAction;
    dxBarButton11: TdxBarButton;
    GpsClient: TtbGisIdTCPClient;
    dxBarBtnSetOil: TdxBarButton;
    actFileSetOil: TAction;
    actFileMileage: TAction;
    dxBarFastMileage: TdxBarButton;
    dxBarMileage: TdxBarButton;
    actPetroQF: TAction;
    dxBarButton12: TdxBarButton;
    actGPSANA: TAction;
    dxBarButton13: TdxBarButton;
    actMapVehicleQuery: TAction;
    dxBarButton14: TdxBarButton;
    actReplaySpeedChart: TAction;
    btnReplaySpeedChart: TdxBarButton;
    tmCheckLink: TTimer;
    actFileDistanceCalc: TAction;
    dxBarButton15: TdxBarButton;
    actResetGPSDistance: TAction;
    actFileMSC: TAction;
    dxBarButton16: TdxBarButton;
    actFileGasLevelInfo: TAction;
    dxBarButton18: TdxBarButton;
    actCallOneOld: TAction;
    dxBarButton17: TdxBarButton;
    actGPSOIL: TAction;
    dxBarButton19: TdxBarButton;
    dxBarButton20: TdxBarButton;
    vtActiveVehicle: TVirtualStringTree;
    vtCarinfoTree: TVirtualStringTree;
    actOrderTree: TAction;
    dxBarButton21: TdxBarButton;
    actOrderList: TAction;
    dxBarButton22: TdxBarButton;
    actCtrlSelectHasData: TAction;
    dxBarButton23: TdxBarButton;
    actFileRefreshVehicleData: TAction;
    dxBarButton24: TdxBarButton;
    vtReplayCars: TVirtualStringTree;
    vtMemo: TVirtualStringTree;