模拟人工操作Micaps1.0的C++类源代码

通过应用Windows的消息传递机制，在应用程序中模拟Micaps系统的人工操作，以实现文件的检索、图像的显隐、缩放甚至勾画等值线、标天气符号、显示指定站点的时序图、TlogP图等交互工作，使得Micaps的二次开发产品及预报工具能够与Micaps系统本身更加紧密结合，更有效地发挥Micaps的预报操作平台功能。

 

---

CMicaps.cpp

---

0001  //***************************************************************************
0002  //      功能：与Micaps系统的交互访问
0003  //    文件名：CMicaps.cpp
0004  //    头文件：CMicaps.h
0005  //  相关文件：SMicaps.hpp
0006  //           FStrings.p        - 字符串处理
0007  //           SFloatPoint.hpp   - Point类的浮点版
0008  //           CCoordinate.h     - 地图坐标处理
0009  //           CDiamond19.h      - Micaps 初始化参数文件
0010  //    编写者：刘泽军
0011  //  开始日期：2001-08-04
0012  //  更新日期：2002-05-04
0013  //      备注：
0014  //***************************************************************************
0015 
0016  //===========================================================================
0017  //  程序名：CMicaps.cpp
0018  //    功能：
0019  //程序设计：广西壮族自治区柳州地区气象台 刘泽军
0020  //   EMail：BJ0773@gmail.com
0021  //===========================================================================
0022  //  本文件：CMicaps.cpp
0023  //  头文件：CMicaps.h
0024  //         SMicaps.hpp
0025  //开发平台：Microsoft Windows 2000 + Borland C++Builder 5.0
0026  //辅助工具：Microsoft Spy++ 6.0, Borland WorkShop 4.5
0027  //相关文章：《应用程序与Micaps系统的交互访问》 2001-10-19已投给《气象》，未获录用。
0028  //开始日期：2001-08-04
0029  //更新日期：2001-11-26
0030  //===========================================================================
0031  //开发历程：
0032  //          2001-08-04 启动、关闭Micaps
0033  //          2001-08-05 访问Micaps菜单项 - 打开
0034  //          2001-08-07 访问显示设置窗口
0035  //          2001-08-08 访问图形检索窗口、其它的Micaps菜单项
0036  //          2001-08-27 在Micaps主窗口 显示 工具窗口 指定的符号(Lambert投影下)
0037  //          2001-09-06 打开多个文件
0038  //          2001-09-17 完善Micaps菜单访问(因键盘方式访问Micaps菜单在Win98不正常)
0039  //                     WM_SYSCOMMAND+SC_KEYMENU => WM_COMMAND+MenuID
0040  //          2001-10-13 在Lambert投影方式下的 经纬度 => Micaps主窗口坐标
0041  //          2001-10-15 完成《应用程序与Micaps系统的交互访问》
0042  //          2001-11-12 相互独立的函数 => CMicaps 类
0043  //          2001-11-22 根据预定义的操作记录文件来控制Micaps
0044  //===========================================================================
0045  #include <vcl.h>
0046  #include <clipbrd.hpp>
0047  #pragma hdrstop
0048 
0049  #include  "CMicaps.h"
0050  //---------------------------------------------------------------------------
0051  #include <FileCtrl.hpp>
0052  #include  "../Common/CDiamondList.h"
0053  //---------------------------------------------------------------------------
0054  #pragma  package ( smart_init )
0055  //---------------------------------------------------------------------------
0056  CMicaps::~CMicaps ( void )
0057  //功能：析构函数
0058  {
0059  //    if( FOwnerExecute )//若Micaps是由应用程序本身运行则关闭Micaps。
0060  //        Close();
0061  }
0062  //---------------------------------------------------------------------------
0063  CMicaps::CMicaps ( void )
0064  //功能：结构函数
0065  {
0066       FOwnerExecute =  false ;
0067       Enabled = Setup ( "C://Micaps" ) ;
0068       if (  Enabled  )
0069           SetMicapsParameter ( FMicapsParameter ) ;
0070       FCurrentOpenFileName =  "" ;
0071  }
0072  //---------------------------------------------------------------------------
0073  CMicaps::CMicaps ( AnsiString FMicapsPath )
0074  //功能：结构函数
0075  //参数：
0076  //FMicapsPath - Micaps的安装目录(如：C:/Micaps)
0077  {
0078       FOwnerExecute =  false ;
0079       Enabled = Setup ( FMicapsPath ) ;
0080       if (  Enabled  )
0081           SetMicapsParameter ( FMicapsParameter ) ;
0082       FCurrentOpenFileName =  "" ;
0083  }
0084  //---------------------------------------------------------------------------
0085  CMicaps::CMicaps ( AnsiString FMicapsPath, AnsiString FMicapsParam )
0086  //功能：结构函数
0087  //参数：
0088  //FMicapsPath  - Micaps的安装目录(如：C:/Micaps)
0089  //FMicapsParam - 运行Micaps的参数文件(diamond 19)
0090  {
0091       FOwnerExecute =  false ;
0092       Enabled = Setup ( FMicapsPath ) ;
0093       if (  Enabled && FileExists ( FMicapsParam ) )
0094           {
0095           FMicapsParameter = FMicapsParam;
0096           SetMicapsParameter ( FMicapsParameter ) ;
0097           }
0098  }
0099  //---------------------------------------------------------------------------
0100  HWND CMicaps::FindMicapsWindow ( void )
0101  //功能：查找Micaps主窗口
0102  {
0103       return ( FindWindow ( "MainClass" , "气象信息综合分析处理系统(MICAPS)" )) ;
0104  }
0105  //---------------------------------------------------------------------------
0106  bool CMicaps::Setup ( AnsiString FMicapsPath )
0107  //功能：设置本机的Micaps安装目录
0108  //参数：
0109  //FMicapsPath   - 本机的Micaps安装目录 缺省为 C:/Micaps
0110  {
0111       bool    FEnabled        =  false ;
0112       FCoordinateEnabled      =  false ;
0113       FMicapsDirectory        = FMicapsPath.Trim () ;
0114       if (  FMicapsDirectory [ FMicapsDirectory.Length ()]  !=  '//'  )
0115           FMicapsDirectory    = FMicapsDirectory +  "//" ;
0116       FMicapsExecuteFile      = FMicapsDirectory +  "Code//Micaps.exe" ;
0117       FMicapsParameter        = FMicapsDirectory +  "Code//Para1.dat" ;
0118       if (  !FileExists ( FMicapsExecuteFile ) )
0119           {
0120           if (  SelectDirectory ( "请选择 Micaps 的安装目录！(例如：C://Micaps)" ,  "我的电脑" ,FMicapsDirectory ) )
0121               FEnabled = Setup ( FMicapsDirectory ) ;
0122           else
0123               FEnabled =  false ;
0124           }
0125       else
0126           FEnabled =  true ;
0127       return ( FEnabled ) ;
0128  }
0129  //---------------------------------------------------------------------------
0130  AnsiString CMicaps::GetMicapsDirectory ( void )
0131  //功能：返回Micaps安装目录
0132  {
0133       return (  FMicapsDirectory  ) ;
0134  }
0135  //---------------------------------------------------------------------------
0136  AnsiString CMicaps::GetMicapsParameter ( void )
0137  //功能：返回Micaps启动参数
0138  {
0139       return (  FMicapsParameter  ) ;
0140  }
0141  //---------------------------------------------------------------------------
0142  bool CMicaps::SetMicapsParameter ( AnsiString FMicapsParam )
0143  //功能：设置Micaps启动参数
0144  {
0145       bool    FMessage =  false ;
0146       FParameterCorrect    =  false ;
0147 
0148       if (  FileExists ( FMicapsParam ) )
0149           {
0150           FMicapsParameter = FMicapsParam;
0151           CDiamond19 *d19 =  new  CDiamond19 ( FMicapsParam ) ;
0152           FParameterCorrect    = d19->Enabled;
0153           if (  d19->Enabled  )
0154               {
0155               FStartData = d19->GetStartData () ;
0156               RECT lpRect;
0157               if (  IsMicapsRunning () )
0158                   MicapsClientRect (  &lpRect  ) ;
0159               else
0160                   lpRect = Rect ( 0 , 0 ,Screen->Width -  8 ,Screen->Height -  46 ) ;
0161               FCoordinate =  new  CCoordinate (
0162                   1 , //Lambert
0163                   d19->GetCenterLongitudeLatitude () , //TFloatPoint(100,35),
0164                   TFloatPoint ( lpRect.right/ 2 ,lpRect.bottom/ 2 + 2 ) ,
0165                   d19->GetZoom () ) ;       //缩放系数
0166               FCoordinateEnabled =  true ;
0167               FMessage ==  true ;
0168               }
0169           delete d19;
0170           }
0171       return (  FMessage  ) ;
0172  }
0173  //---------------------------------------------------------------------------
0174  bool CMicaps::IsMicapsRunning ( void )
0175  //功能：判断Micaps是否运行
0176  {
0177       return (  FindMicapsWindow ()  != NULL  ) ;
0178  }
0179  //---------------------------------------------------------------------------
0180  bool CMicaps::MenuFromId ( int  FMicapsMenuId )
0181  //功能：执行ID号为FMicapsMenuId的Micaps菜单
0182  //参数：
0183  //FMicapsMenuId - 指定的Micaps菜单ID号
0184  {
0185       HWND    hWndMicaps = FindMicapsWindow () ;
0186       bool    FMessage =  false ;
0187       if (  hWndMicaps != NULL  )
0188           {
0189           FMessage = PostMessage ( hWndMicaps,WM_COMMAND,MAKELONG ( FMicapsMenuId, 0 ) ,NULL ) ;
0190  //        FMessage = SendMessage(hWndMicaps,WM_COMMAND,MAKELONG(FMicapsMenuId,0),NULL);
0191           Sleep ( 132 ) ;
0192           }
0193       return ( FMessage ) ;
0194  }
0195  //---------------------------------------------------------------------------
0196  bool CMicaps::Execute ( bool FExecuteType ) //private member function
0197  //功能：运行Micaps
0198  //参数：
0199  //FExecuteType: 运行方式
0200  //              true 强制运行并返回运行结果
0201  //              false 若Micaps已运行则返回true，否则返回运行结果
0202  {
0203       if (  FExecuteType  ) //强制运行方式
0204           {
0205           Close () ;
0206           Sleep ( 1032 ) ;
0207           }
0208       bool    FMessage = IsMicapsRunning () ;
0209       if (  !FMessage  ) //Micaps未运行
0210           {
0211           FMessage =  ( int ) ShellExecute (
0212                           Application->Handle,
0213                           "open" ,
0214                           FMicapsExecuteFile.c_str () ,
0215                           FMicapsParameter.c_str () ,
0216                           ExtractFilePath ( FMicapsExecuteFile ) .c_str () ,
0217                           SW_SHOWNORMAL  )
0218                       >  32 ;
0219           FOwnerExecute =  true ;
0220           SetMicapsParameter ( FMicapsParameter ) ;
0221           }
0222       else
0223           {
0224           HWND    hWndMicaps = FindMicapsWindow () ;
0225           if (  hWndMicaps != NULL  )
0226               {
0227               ShowWindow ( hWndMicaps,SW_SHOWNORMAL ) ; //显示Micaps主窗口
0228               SetForegroundWindow ( hWndMicaps ) ;  //设置Micaps为当前活动窗口
0229               }
0230           }
0231       return ( FMessage ) ;
0232  }
0233  //---------------------------------------------------------------------------
0234  bool CMicaps::Execute ( void )
0235  //功能：运行Micaps(非强制方式)
0236  {
0237       return (  Execute ( false ) ) ; //非强制方式运行Micaps
0238  }
0239  //---------------------------------------------------------------------------
0240  bool CMicaps::Execute ( AnsiString FMicapsParam )
0241  //功能：带参数运行Micaps(非强制方式)
0242  //参数：
0243  //FMicapsParam - 指向一个文件名(diamond 19)，该文件包含Micaps的启动设置
0244  {
0245       if (  !IsMicapsRunning ()  && FileExists ( FMicapsParam.Trim ()) )
0246           FMicapsParameter = FMicapsParam.Trim () ;
0247       return (  Execute ( false ) ) ;
0248  }
0249  //---------------------------------------------------------------------------
0250  bool CMicaps::ForceExecute ( void )
0251  //功能：运行Micaps(强制方式)
0252  {
0253       return (  Execute ( true ) ) ; //非运行Micaps
0254  }
0255  //---------------------------------------------------------------------------
0256  bool CMicaps::ForceExecute ( AnsiString FMicapsParam )
0257  //功能：带参数运行Micaps(强制方式)
0258  //参数：
0259  //FMicapsParam - 指向一个文件名(diamond 19)，该文件包含Micaps的启动设置
0260  {
0261       if (  FileExists ( FMicapsParam.Trim ()) )
0262           FMicapsParameter = FMicapsParam.Trim () ;
0263       return (  Execute ( true ) ) ;
0264  }
0265  //---------------------------------------------------------------------------
0266  bool CMicaps::Close ( void ) //关闭 Micaps
0267  {
0268       bool    FMessage =  false ;
0269  try  {
0270       HWND    hWndMicaps = FindMicapsWindow () ;
0271       if (  hWndMicaps != NULL  )
0272           {
0273           FMessage = PostMessage (  hWndMicaps, WM_CLOSE,  0 ,  0  ) ;
0274           HWND hWndMicapsClose = NULL;
0275           int      iSleepCount =  0 ;
0276           while (  hWndMicapsClose == NULL && iSleepCount <  12  )
0277               {
0278               Sleep ( 132 ) ; //延时
0279               hWndMicapsClose = FindWindow ( "#32770" , "退出Micaps" ) ;
0280               iSleepCount ++;
0281               }
0282           if ( (  FParameterCorrect && FStartData.WindowClose ==  1  )
0283               || hWndMicapsClose != NULL  )
0284               {
0285               SendDlgItemMessage (
0286                   hWndMicapsClose, MICAPS_DLG_CLOSE_OKBUTTON, BM_CLICK,  0 ,  0 ) ;
0287               FMessage =  true ;
0288               }
0289           FOwnerExecute =  false ;
0290           }
0291       return ( FMessage ) ;
0292       }
0293  catch ( ... )
0294       {
0295       return ( FMessage ) ;
0296       }
0297  }
0298  //---------------------------------------------------------------------------
0299  bool CMicaps::OpenFile ( AnsiString FOpenFileName )
0300  //功能：打开文件
0301  //参数：
0302  //FOpenFileName     - 要打开的文件名
0303  {
0304       bool    FMessage =  false ;
0305  try  {
0306       if (  FOpenFileName.Pos ( "*" )  || FOpenFileName.Pos ( "?" ) )
0307           FOpenFileName = SearchFile ( FOpenFileName,FSM_NEW ) ; //搜索最新文件
0308       if (  !FileExists ( FOpenFileName )  || !IsMicapsRunning () )
0309           return ( FMessage ) ; //指定文件不存在 或 Micaps未运行
0310       HWND    hWndMicaps = FindMicapsWindow () ;
0311       int      iSleepCount =  0 ;
0312       HWND    hWndMicapsOpenFile = NULL;
0313       if (  hWndMicaps != NULL
0314  //      && ShowWindow(hWndMicaps,SW_SHOWNORMAL)//显示Micaps主窗口
0315  //      && SetForegroundWindow(hWndMicaps) //设置Micaps为当前活动窗口
0316           )
0317           {
0318           MenuFromId ( MICAPS_MENU_FILE ) ;
0319           while (  hWndMicapsOpenFile == NULL && iSleepCount <  12  )
0320               { //找 打开新文件 窗口
0321               Sleep ( 512 ) ;
0322               hWndMicapsOpenFile = FindWindow (  "#32770" ,  "打开新文件"  ) ;
0323               iSleepCount++;
0324               }
0325           if ( hWndMicapsOpenFile!=NULL ) // && GetParent(hWndMicapsOpenFile) == hWndMicaps )
0326               {
0327               //清除 文件编辑框 文本
0328               SendDlgItemMessage (  hWndMicapsOpenFile, MICAPS_DLG_OPEN_EDITCTRL, WM_CLEAR,  0 ,  0 ) ;
0329               FCurrentOpenFileName = FOpenFileName;
0330               //将文件名放入剪切板
0331               Clipboard () ->SetTextBuf ( FOpenFileName.c_str ()) ;
0332               //从剪切板粘贴文本
0333               SendDlgItemMessage (  hWndMicapsOpenFile, MICAPS_DLG_OPEN_EDITCTRL, WM_PASTE,  0 ,  0 ) ;
0334  //            Application->MainForm->Caption = FOpenFileName;
0335 
0336               //按 打开新文件 窗口的 确定 按钮
0337               SendDlgItemMessage (  hWndMicapsOpenFile, MICAPS_DLG_OPEN_OKBUTTON, BM_CLICK,  0 ,  0 ) ;
0338               FMessage =  true ;
0339               }
0340  //判断 打开新文件 窗口是否仍未关闭
0341           iSleepCount =  0 ;
0342           hWndMicapsOpenFile = NULL;
0343           while (  hWndMicapsOpenFile == NULL && iSleepCount <  6  )
0344               { //找 打开新文件 窗口
0345               Sleep ( 132 ) ;
0346               hWndMicapsOpenFile = FindWindow (  "#32770" ,  "打开新文件"  ) ;
0347               iSleepCount++;
0348               }
0349           if (  hWndMicapsOpenFile != NULL  )
0350               { //按 打开新文件 窗口的 取消 按钮
0351               SendDlgItemMessage (  hWndMicapsOpenFile, MICAPS_DLG_OPEN_CANCELBUTTON, BM_CLICK,  0 ,  0 ) ;
0352               FMessage =  true ;
0353               }
0354           }
0355       return ( FMessage ) ;
0356       }
0357  catch ( ... )
0358       {
0359       return ( FMessage ) ;
0360       }
0361  }
0362  //---------------------------------------------------------------------------
0363  bool CMicaps::OpenFiles ( AnsiString FFiles )
0364  //功能：打开多个文件
0365  //参数：
0366  //FFiles - 包括多个指定要打开的文件名，以 ; 或 | 号分隔
0367  {
0368       return (  OpenFiles ( FFiles, ";" , "|" ) ) ;
0369  }
0370  //---------------------------------------------------------------------------
0371  bool CMicaps::OpenFiles ( AnsiString FFiles, AnsiString FAndStr, AnsiString FOrStr )
0372  //功能：在Micaps中打开多个文件
0373  //参数：
0374  //FFiles  - 包括多个指定要打开的文件名，以 FAdnStr 或 ForStr 指定的符号分隔
0375  //FAndStr - 表示 和 的符号
0376  //FOrStr  - 表示 或 的符号
0377  {
0378  //缺省 FAndStr - ;
0379  //缺省 FOrStr  - |
0380  //间隔号(;) - 所有文件均打开
0381  //例: a,b,c 打开文件a及b及c
0382  //间隔号(|) - 打开第一个存在的文件
0383  //例: a|b|c 若a存在则打开a并返回,否则若b存在则打开b并返回...
0384       TStringList *StringList =  new  TStringList () ;
0385       TStringList *ChildStringList =  new  TStringList () ;
0386       ExtractString ( FFiles,FAndStr,false,StringList ) ;
0387 
0388  //2002-01-30
0389  //   修改 CMicaps 类中有关 Micaps 文件的打开方式，根据记录文件 Code/File.lst，
0390  //   当需要打开的文件已被 Micaps 打开时，程序只是将该文件设为“显示”状态，而不是
0391  //   重新打开，否则将打开该文件；其他不需要显示的文件则从“显示设置”窗口中删除掉。
0392       for ( int  i= 0 ;i<StringList->Count;i++  )
0393           {
0394           if (  StringList->Strings [ i ] .Pos ( FOrStr )  >  0  )
0395               {
0396               ExtractString ( StringList->Strings [ i ] ,FOrStr,false,ChildStringList ) ;
0397               for ( int  j= 0 ;j<ChildStringList->Count;j++  )
0398                   if (  ChildStringList->Strings [ j ] .Pos ( "*" )
0399                       || ChildStringList->Strings [ j ] .Pos ( "?" ) )
0400                       ChildStringList->Strings [ j ]  =
0401                           SearchFile ( ChildStringList->Strings [ j ] ,FSM_NEW ) ; //搜索最新文件
0402               for ( int  j= 0 ;j<ChildStringList->Count;j++  )
0403                   if (  FileExists ( ChildStringList->Strings [ j ]) )
0404                       {
0405                       StringList->Strings [ i ]  = ChildStringList->Strings [ j ] ;
0406                       j = ChildStringList->Count;
0407                       }
0408               }
0409           else if (  StringList->Strings [ i ] .Pos ( "*" )
0410               ||   StringList->Strings [ i ] .Pos ( "?" ) )
0411               {
0412               StringList->Strings [ i ]  =
0413                   SearchFile ( StringList->Strings [ i ] ,FSM_NEW ) ; //搜索最新文件
0414               }
0415           }
0416       for ( int  i=StringList->Count- 1 ;i>= 0 ;i--  )
0417           if (  StringList->Strings [ i ] .Trim ()  ==  ""
0418               || !FileExists ( StringList->Strings [ i ] .Trim ()) )
0419               StringList->Delete ( i ) ;
0420       TMicapsOpenFileList *mofl =  new  TMicapsOpenFileList (
0421           GetMicapsDirectory () + "Code//File.LST"  ) ;
0422       if (  mofl->Enabled  )
0423           {
0424           bool    *bFile =  new  bool [ mofl->GetCount () + 1 ] ;
0425           mofl->CurrentOpened ( StringList,bFile ) ;
0426           for (  int  i= 0 ;i<mofl->GetCount () ;i++  )
0427               bFile [ i ]  = !bFile [ i ] ;
0428           Status ( bFile,mofl->GetCount () ,MICAPS_FILE_STATUS_MOVE ) ; //让Micaps删除所有不需要打开的文件
0429           Status ( - 1 ,MICAPS_FILE_STATUS_VIEW ) ; //让Micaps显示所有已打开的文件
0430           delete bFile;
0431           }
0432       else
0433           Status ( - 1 ,MICAPS_FILE_STATUS_MOVE ) ; //让Micaps删除所有已打开的文件
0434       delete mofl;
0435 
0436  //打开文件
0437       for ( int  i= 0 ;i<StringList->Count;i++  )
0438           if (  StringList->Strings [ i ] .Trim ()  !=  ""  )
0439               OpenFile ( StringList->Strings [ i ] .Trim ()) ;
0440 
0441       delete ChildStringList;
0442       delete StringList;
0443       return ( true ) ;
0444  }
0445  //---------------------------------------------------------------------------
0446  bool CMicaps::SaveToFile ( AnsiString FSaveFileName )
0447  //功能：保存文件
0448  //参数：
0449  //FSaveFileName     - 要保存的文件名
0450  {
0451       bool    FMessage =  false ;
0452       if (  !IsMicapsRunning () )     return ( false ) ;
0453       AnsiString  TempFSaveFileName =  "C://TempSave.LZJ" ;
0454  try  {
0455       if (  FileExists ( TempFSaveFileName ) )
0456           DeleteFile ( TempFSaveFileName.c_str ()) ;
0457       HWND hWndMicaps = FindMicapsWindow () ;
0458       if (  hWndMicaps == NULL  )     return ( false ) ;
0459       FMessage = Explore ( 3 ) ;
0460       if (  !FMessage  )  return ( FMessage ) ;
0461       int  iSleepCount =  0 ;
0462       HWND hWndMicapsSaveFile = NULL;
0463       while (  hWndMicapsSaveFile == NULL && iSleepCount <  12  )
0464           {
0465           Sleep ( 132 ) ;
0466           hWndMicapsSaveFile = FindWindow (  "#32770" ,  "保存文件"  ) ;
0467           iSleepCount++;
0468           }
0469       if (  hWndMicapsSaveFile != NULL
0470           && GetParent ( hWndMicapsSaveFile )  == FindWindow ( "OperateClass" , "工具" ) )
0471           {
0472           Clipboard () ->SetTextBuf ( TempFSaveFileName.c_str ()) ;
0473           SendDlgItemMessage (
0474               hWndMicapsSaveFile,
0475               MICAPS_DLG_SAVE_EDITCTRL,
0476               WM_CLEAR,
0477               0 ,  0 ) ;
0478           SendDlgItemMessage (
0479               hWndMicapsSaveFile,
0480               MICAPS_DLG_SAVE_EDITCTRL,
0481               WM_PASTE,
0482               0 ,  0 ) ;
0483           SendDlgItemMessage (
0484               hWndMicapsSaveFile,
0485               MICAPS_DLG_SAVE_OKBUTTON,
0486               BM_CLICK,
0487               0 ,  0  ) ;
0488           FMessage =  true ;
0489           }
0490       if (  FileExists ( TempFSaveFileName ) )
0491           {
0492           FMessage = CopyFile (
0493               TempFSaveFileName.c_str () ,
0494               FSaveFileName.c_str () ,
0495               false ) ;
0496           DeleteFile ( TempFSaveFileName.c_str ()) ;
0497           }
0498       else
0499           FMessage =  false ;
0500       return ( FMessage ) ;
0501       }
0502  catch ( ... )
0503       {
0504       return ( FMessage ) ;
0505       }
0506  }
0507  //---------------------------------------------------------------------------
0508  bool CMicaps::Status ( int  FFileIndex,  int  FFileStatus )
0509  //功能：设置Micaps文件状态
0510  //参数：
0511  //FFileIndex    - 文件序号 -2, -1, 0, 1, 2 ... -2 为所有项 -1 为除0项外
0512  //FFileStatus   - 状态 {MICAPS_FILE_STATUS_VIEW，MICAPS_FILE_STATUS_HIDE， MICAPS_FILE_STATUS_MODIFY， MICAPS_FILE_STATUS_EDIT， MICAPS_FILE_STATUS_MOVE}
0513  {
0514       if (  FFileIndex < - 2  )    FFileIndex == - 2 ;
0515       bool    FMessage =  false ;
0516  try  {
0517       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0518       HWND    hWndMicaps = FindMicapsWindow () ;
0519       if (  hWndMicaps == NULL  )     return ( FMessage ) ; //无法定位Micaps窗口
0520       DialogOption ( true ) ;
0521       HWND    hWndMicapsFileStatus = NULL; //Micaps的显示设置对话框
0522       int      iSleepCount =  0 ;
0523       if (  hWndMicaps != NULL
0524           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0525           && SetForegroundWindow ( hWndMicaps )
0526           )
0527           {
0528           iSleepCount =  0 ;
0529           while (  hWndMicapsFileStatus == NULL && iSleepCount <  12  )
0530               {
0531               Sleep ( 132 ) ;
0532               hWndMicapsFileStatus = FindWindow (  "#32770" ,  "显示设置"  ) ;
0533               iSleepCount++;
0534               }
0535           int  FItemCount =  0 ;
0536           if (     hWndMicapsFileStatus!=NULL
0537               && ShowWindow ( hWndMicapsFileStatus,SW_SHOWNORMAL ) //显示Micaps主窗口
0538               && SetForegroundWindow ( hWndMicapsFileStatus )  //设置Micaps为当前活动窗口
0539               && GetDlgItem ( hWndMicapsFileStatus, FFileStatus )  != NULL //有状态按钮
0540               &&  ( FItemCount = SendDlgItemMessage (
0541                       hWndMicapsFileStatus,
0542                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0543                       LB_GETCOUNT,  0 ,  0 ))  >  0
0544               )
0545               {
0546               SendDlgItemMessage ( //不选所有项
0547                   hWndMicapsFileStatus,
0548                   MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0549                   LB_SELITEMRANGE,
0550                   false,
0551                   MAKELONG ( 0 ,FItemCount- 1 )) ;
0552               switch (  FFileIndex  )
0553                   {
0554                   case  - 2 : //设置所有项
0555                       SendDlgItemMessage (
0556                           hWndMicapsFileStatus,
0557                           MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0558                           LB_SELITEMRANGE,
0559                           true,
0560                           MAKELONG ( 0 ,FItemCount- 1 )) ;
0561                       break ;
0562                   case  - 1 : //设置非0项
0563                       if (  FItemCount >  1  )
0564                           SendDlgItemMessage ( //选定项目
0565                               hWndMicapsFileStatus,
0566                               MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0567                               LB_SELITEMRANGE,
0568                               true,
0569                               MAKELONG ( 1 ,FItemCount- 1 )) ;
0570                       break ;
0571                   default :
0572                       if (  FFileIndex < FItemCount  ) //设置指定项
0573                           SendDlgItemMessage (
0574                               hWndMicapsFileStatus,
0575                               MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0576                               LB_SETSEL,
0577                               true,
0578                               FFileIndex ) ;
0579                       break ;
0580                   } //siwtch
0581               if (  SendDlgItemMessage ( //已选择有项目
0582                       hWndMicapsFileStatus,
0583                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0584                       LB_GETSELCOUNT,
0585                       0 ,
0586                       0 )  >  0  )
0587                   { //单击 显示设置 窗口的指定按钮
0588                   SendDlgItemMessage (
0589                       hWndMicapsFileStatus,
0590                       FFileStatus,
0591                       BM_CLICK,
0592                       0 ,
0593                       0 ) ;
0594                   FMessage =  true ;
0595                   }
0596               } //if hWndMicapsFileStatus!=NULL
0597           } //if hWndMicaps != NULL
0598       return ( FMessage ) ;
0599       }
0600  catch ( ... )
0601       {
0602       return ( FMessage ) ;
0603       }
0604  }
0605  //---------------------------------------------------------------------------
0606  bool CMicaps::Status ( int  FFileFirst,  int  FFileLast,  int  FFileStatus )
0607  //功能：设置Micaps文件状态
0608  //参数：
0609  //FFileFirst    - 始文件序号
0610  //FFileLast     - 止文件序号
0611  //FFileStatus   - 状态 {MICAPS_FILE_STATUS_VIEW，MICAPS_FILE_STATUS_HIDE， MICAPS_FILE_STATUS_MODIFY， MICAPS_FILE_STATUS_EDIT， MICAPS_FILE_STATUS_MOVE}
0612  //                若 FFileFirst < 0 或 FFileLast < 0 则仅设置状态
0613  {
0614       bool    FMessage =  false ;
0615  try  {
0616       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0617       HWND    hWndMicaps = FindMicapsWindow () ;
0618       if (  hWndMicaps == NULL  )     return ( FMessage ) ; //无法定位Micaps窗口
0619       DialogOption ( true ) ;
0620       HWND    hWndMicapsFileStatus = NULL; //Micaps的显示设置对话框
0621       int      iSleepCount =  0 ;
0622       if (  hWndMicaps != NULL
0623           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0624           && SetForegroundWindow ( hWndMicaps )
0625           )
0626           {
0627           iSleepCount =  0 ;
0628           while (  hWndMicapsFileStatus == NULL && iSleepCount <  12  )
0629               {
0630               Sleep ( 132 ) ;
0631               hWndMicapsFileStatus = FindWindow (  "#32770" ,  "显示设置"  ) ;
0632               iSleepCount++;
0633               }
0634           int  FItemCount =  0 ;
0635           if ( hWndMicapsFileStatus!=NULL
0636               && ShowWindow ( hWndMicapsFileStatus,SW_SHOWNORMAL ) //显示Micaps主窗口
0637               && SetForegroundWindow ( hWndMicapsFileStatus )  //设置Micaps为当前活动窗口
0638               && GetDlgItem ( hWndMicapsFileStatus, FFileStatus )  != NULL //有状态按钮
0639               &&  ( FItemCount = SendDlgItemMessage (
0640                       hWndMicapsFileStatus,
0641                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0642                       LB_GETCOUNT,  0 ,  0 ))  >  0
0643               )
0644               {
0645               if (  FFileFirst <  0  || FFileLast <  0  )
0646                   { //仅设置文件状态
0647                   if (  SendDlgItemMessage (
0648                           hWndMicapsFileStatus,
0649                           MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0650                           LB_GETSELCOUNT,
0651                           0 ,
0652                           0 )  >  0  ) //已选择有项目
0653                       {
0654                       SendDlgItemMessage (
0655                           hWndMicapsFileStatus,
0656                           FFileStatus,
0657                           BM_CLICK,
0658                           0 ,
0659                           0 ) ;
0660                       FMessage =  true ;
0661                       }
0662                   } //if 0 0
0663               else if (  FFileFirst ==  9999  && FFileLast ==  9999  ) //所有项均不选
0664                   {
0665                   SendDlgItemMessage (
0666                       hWndMicapsFileStatus,
0667                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0668                       LB_SELITEMRANGE,
0669                       false,
0670                       MAKELONG ( 0 ,FItemCount- 1 )) ;
0671                   } //else if 9999 9999
0672               else
0673                   { //选择项目
0674                   if (  FFileFirst > FItemCount -  1  )
0675                       FFileFirst = FItemCount -  1 ;
0676                   if (  FFileLast  > FItemCount -  1  )
0677                       FFileLast  = FItemCount -  1 ;
0678                   if (  FFileFirst > FFileLast  )
0679                       {
0680                       FItemCount = FFileFirst;
0681                       FFileFirst = FFileLast;
0682                       FFileLast  = FItemCount;
0683                       }
0684                   SendDlgItemMessage ( //选择指定项
0685                       hWndMicapsFileStatus,
0686                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0687                       LB_SELITEMRANGE,
0688                       true,
0689                       MAKELONG ( FFileFirst,FFileLast )) ;
0690                   if (  SendDlgItemMessage (
0691                           hWndMicapsFileStatus,
0692                           MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0693                           LB_GETSELCOUNT,
0694                           0 ,
0695                           0 )  >  0  ) //已选择有项目
0696                       { //设置文件状态
0697                       SendDlgItemMessage (
0698                           hWndMicapsFileStatus,
0699                           FFileStatus,
0700                           BM_CLICK,
0701                           0 ,
0702                           0 ) ;
0703                       FMessage =  true ;
0704                       }
0705                   } //else
0706               } //if(hWndMicapsFileStatus!=NULL
0707           } //if( hWndMicaps != NULL
0708       return ( FMessage ) ;
0709       }
0710  catch ( ... )
0711       {
0712       return ( FMessage ) ;
0713       }
0714  }
0715  //---------------------------------------------------------------------------
0716  bool CMicaps::Status ( bool FFile [] ,  int  FFileCount,  int  FFileStatus )
0717  //功能：设置Micaps指定项目的文件状态
0718  //参数：
0719  //FFile[]       - 待选值(true为选择,false为不选)
0720  //FFileCount    - 总数
0721  //FFileStatus   - 状态 {MICAPS_FILE_STATUS_VIEW，MICAPS_FILE_STATUS_HIDE， MICAPS_FILE_STATUS_MODIFY， MICAPS_FILE_STATUS_EDIT， MICAPS_FILE_STATUS_MOVE}
0722  //                若 FFileFirst < 0 或 FFileLast < 0 则仅设置状态
0723  {
0724       bool    FMessage =  false ;
0725  try  {
0726       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0727       HWND    hWndMicaps = FindMicapsWindow () ;
0728       if (  hWndMicaps == NULL  )     return ( FMessage ) ; //无法定位Micaps窗口
0729       DialogOption ( true ) ;
0730       HWND    hWndMicapsFileStatus = NULL; //Micaps的显示设置对话框
0731       int      iSleepCount =  0 ;
0732       if (  hWndMicaps != NULL
0733           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0734           && SetForegroundWindow ( hWndMicaps )
0735           )
0736           {
0737           iSleepCount =  0 ;
0738           while (  hWndMicapsFileStatus == NULL && iSleepCount <  12  )
0739               {
0740               Sleep ( 132 ) ;
0741               hWndMicapsFileStatus = FindWindow (  "#32770" ,  "显示设置"  ) ;
0742               iSleepCount++;
0743               }
0744           int  FItemCount =  0 ;
0745           if (  hWndMicapsFileStatus != NULL
0746               && ShowWindow ( hWndMicapsFileStatus,SW_SHOWNORMAL ) //显示Micaps主窗口
0747               && SetForegroundWindow ( hWndMicapsFileStatus )  //设置Micaps为当前活动窗口
0748               && GetDlgItem ( hWndMicapsFileStatus, FFileStatus )  != NULL //有状态按钮
0749               &&  ( FItemCount = SendDlgItemMessage (
0750                       hWndMicapsFileStatus,
0751                       MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0752                       LB_GETCOUNT,  0 ,  0 ))  >  0
0753               )
0754               {
0755               SendDlgItemMessage ( //取消所有项目的选择状态
0756                   hWndMicapsFileStatus,
0757                   MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0758                   LB_SELITEMRANGE,
0759                   false,
0760                   MAKELONG ( 0 ,FItemCount- 1 )) ;
0761               for (  int  i= 0 ;i<FItemCount;i++  )
0762                   if (  i<FFileCount  )
0763                       SendDlgItemMessage ( //选择指定项
0764                           hWndMicapsFileStatus,
0765                           MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0766                           LB_SETSEL,
0767                           FFile [ i ] ,
0768                           i ) ;
0769               if (  SendDlgItemMessage (
0770                   hWndMicapsFileStatus,
0771                   MICAPS_DLG_VIEWOPTION_LISTBOXCTRL,
0772                   LB_GETSELCOUNT,
0773                   0 ,
0774                   0 )  >  0  ) //已选择有项目
0775                   { //设置文件状态
0776                   SendDlgItemMessage (
0777                       hWndMicapsFileStatus,
0778                       FFileStatus,
0779                       BM_CLICK,
0780                       0 ,
0781                       0 ) ;
0782                   FMessage =  true ;
0783                   }
0784               } //if(hWndMicapsFileStatus!=NULL
0785           } //if( hWndMicaps != NULL
0786       return ( FMessage ) ;
0787       }
0788  catch ( ... )
0789       {
0790       return ( FMessage ) ;
0791       }
0792  }
0793  //---------------------------------------------------------------------------
0794  bool CMicaps::Explore ( int  FTools )
0795  //功能：按下图形检索窗口的第FTools个按钮
0796  //参数：
0797  //FTools   - 按钮序号 自上而下 由0开始
0798  {
0799       bool    FMessage =  false ;
0800       TPoint  FToolsPoint = OperateTools ( FTools ) ;
0801  try  {
0802       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0803       HWND    hWndMicaps = FindMicapsWindow () ;
0804       HWND    hWndMicapsTools; //检索窗口
0805       if (  hWndMicaps != NULL
0806           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0807           && SetForegroundWindow ( hWndMicaps )
0808           )
0809           {
0810           hWndMicapsTools = FindWindow ( "OperateClass" , "工具" ) ;
0811           FMessage = hWndMicapsTools != NULL
0812               && PostMessage (  hWndMicapsTools, WM_LBUTTONDOWN, MK_LBUTTON,  MAKELONG ( FToolsPoint.x,FToolsPoint.y ) )
0813               && PostMessage (  hWndMicapsTools, WM_LBUTTONUP,   MK_LBUTTON,  MAKELONG ( FToolsPoint.x,FToolsPoint.y ) ) ;
0814           }
0815       return ( FMessage ) ;
0816       }
0817  catch ( ... )
0818       {
0819       return ( FMessage ) ;
0820       }
0821  }
0822  //---------------------------------------------------------------------------
0823  bool CMicaps::ZoomStatus ( void )
0824  //功能：设置Micaps窗口为缩放状态
0825  {
0826       return (  Explore ( 11 ) ) ;
0827  }
0828  //---------------------------------------------------------------------------
0829  bool CMicaps::Zoom ( bool FZoom )
0830  //功能：缩放
0831  //参数：
0832  //FZoom     - 缩放标志  {true(放大), false(缩小)}
0833  {
0834       RECT    lpRect;
0835       HWND    hWndMicaps = FindMicapsWindow () ;
0836       int      x, y;
0837       if (  GetWindowRect (  hWndMicaps, &lpRect  ) )
0838           {
0839           x =  (  lpRect.left + lpRect.right  )  /  2 ;
0840           y =  (  lpRect.top  + lpRect.bottom  )  /  2 ;
0841           }
0842       return ( Zoom ( FZoom,Point ( x,y ))) ;
0843  }
0844  //---------------------------------------------------------------------------
0845  bool CMicaps::Zoom ( bool FZoom, TPoint FPlace )
0846  //功能：缩放
0847  //参数：
0848  //FZoom     - 缩放标志  {true(放大), false(缩小)}
0849  //FPoint    - 窗口位置
0850  {
0851       bool    FMessage =  false ;
0852  try  {
0853       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0854       HWND    hWndMicaps = FindMicapsWindow () ;
0855       if (  hWndMicaps != NULL
0856           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0857           && SetForegroundWindow ( hWndMicaps )
0858           )
0859           {
0860           if (  FZoom  )  ZoomStatus () ; //放大时需要将Micaps的缩放按钮设为按下状态
0861           if (  FZoom  )
0862               FMessage = PostMessage (  hWndMicaps, WM_LBUTTONDBLCLK, MK_LBUTTON,  MAKELONG ( FPlace.x,FPlace.y ) ) ;
0863           else
0864               FMessage = PostMessage (  hWndMicaps, WM_RBUTTONDBLCLK, MK_RBUTTON,  MAKELONG ( FPlace.x,FPlace.y ) ) ;
0865           }
0866       return ( FMessage ) ;
0867       }
0868  catch ( ... )
0869       {
0870       return ( FMessage ) ;
0871       }
0872  }
0873  //---------------------------------------------------------------------------
0874  bool CMicaps::Revert ( void )
0875  //功能：还原
0876  {
0877       return (  Explore ( 1 ) ) ;
0878  }
0879  //---------------------------------------------------------------------------
0880  bool CMicaps::LongitudeLatitude ( void )
0881  //功能：经纬度隐现
0882  {
0883       return (  Explore ( 0 ) ) ;
0884  }
0885  //---------------------------------------------------------------------------
0886  bool CMicaps::Print ( void )
0887  //功能：打印Micaps主窗口
0888  {
0889       return (  Explore ( 2 ) ) ;
0890  }
0891  //---------------------------------------------------------------------------
0892  bool CMicaps::Background ( int  FBackgroundType )
0893  //功能：设置Micaps背景图类型
0894  //参数：
0895  //FBackgroundType   - 类型 {
0896  //    MICAPS_BACKGROUNG_TYPE_BBQ,
0897  //    MICAPS_BACKGROUNG_TYPE_LAMBERT,
0898  //    MICAPS_BACKGROUNG_TYPE_MECATOR,
0899  //    MICAPS_BACKGROUNG_TYPE_LINEAR}
0900  {
0901       AnsiString  FBackFileName = FMicapsDirectory;
0902       switch (  FBackgroundType  )
0903           {
0904           case  MICAPS_BACKGROUNG_TYPE_BBQ:
0905               FBackFileName = FMicapsDirectory +  "Code//BBQMAPXY.dat" ;
0906               break ;
0907           case  MICAPS_BACKGROUNG_TYPE_LAMBERT:
0908               FBackFileName = FMicapsDirectory +  "Code//LAMBERTM.dat" ;
0909               break ;
0910           case  MICAPS_BACKGROUNG_TYPE_MECATOR:
0911               FBackFileName = FMicapsDirectory +  "Code//MECATORM.dat" ;
0912               break ;
0913           case  MICAPS_BACKGROUNG_TYPE_LINEAR:
0914               FBackFileName = FMicapsDirectory +  "Code//LINEARMA.dat" ;
0915               break ;
0916           default :
0917               FBackFileName = FMicapsDirectory +  "Code//BBQMAPXY.dat" ;
0918               break ;
0919           }
0920       return (  FileExists ( FBackFileName )  && OpenFile ( FBackFileName ) ) ;
0921  }
0922  //---------------------------------------------------------------------------
0923  bool CMicaps::Palette ( int  FPaletteIndex )
0924  //功能：调置Micaps调色板
0925  //参数：
0926  //FPaletteIndex - 调色板索引值 0～16 缺省为 0
0927  {
0928       bool    FMessage = IsMicapsRunning () ;
0929       if (  !FMessage  )  return ( FMessage ) ;
0930       AnsiString  FPaletteFile;
0931       FPaletteFile = FMicapsDirectory +  "ColorMap//ColorMap."  + FormatFloat ( "000" ,FPaletteIndex ) ;
0932       return (  FileExists ( FPaletteFile )  && OpenFile ( FPaletteFile ) ) ;
0933  }
0934  //---------------------------------------------------------------------------
0935  bool CMicaps::PrevTime ( void )
0936  //功能：前翻
0937  {
0938       return ( MenuFromId ( MICAPS_MENU_PREVTIME )) ;
0939  }
0940  //---------------------------------------------------------------------------
0941  bool CMicaps::NextTime ( void )
0942  //功能：后翻
0943  {
0944       return ( MenuFromId ( MICAPS_MENU_NEXTTIME )) ;
0945  }
0946  //---------------------------------------------------------------------------
0947  bool CMicaps::Animate ( void )
0948  //功能：动画
0949  {
0950       return ( MenuFromId ( MICAPS_MENU_ANIMATE )) ;
0951  }
0952  //---------------------------------------------------------------------------
0953  bool CMicaps::Tools ( int  FColIndex,  int  FRowIndex )
0954  //功能：针对图形检索窗口的操作
0955  //参数：
0956  //FColIndex - 列数
0957  //FRowIndex - 行数
0958  {
0959       return ( Tools ( EditTools ( FColIndex,FRowIndex ))) ;
0960  }
0961  //---------------------------------------------------------------------------
0962  bool CMicaps::Tools ( TPoint FEditPoint )
0963  //功能：针对工具窗口的操作
0964  //参数说明：
0965  //FEditPoint   - 位置
0966  {
0967       bool    FMessage =  false ;
0968  try  {
0969       if (  !IsMicapsRunning () )     return ( FMessage ) ; //Micaps未运行
0970       HWND    hWndMicaps = FindMicapsWindow () ;
0971       HWND    hWndMicapsEditTools = NULL; //工具窗口
0972       if (  hWndMicaps != NULL
0973           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
0974           && SetForegroundWindow ( hWndMicaps )
0975           )
0976           {
0977           MenuFromId ( MICAPS_MENU_EDITTOOL ) ;
0978           hWndMicapsEditTools = FindWindow ( "EditClass" , "工具" ) ;
0979           if (  hWndMicapsEditTools != NULL  )
0980               {
0981               FMessage =
0982                   PostMessage (  hWndMicapsEditTools, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG ( FEditPoint.x,FEditPoint.y ) )
0983                && PostMessage (  hWndMicapsEditTools, WM_LBUTTONUP,   MK_LBUTTON, MAKELONG ( FEditPoint.x,FEditPoint.y ) ) ;
0984               }
0985           }
0986       return ( FMessage ) ;
0987       }
0988  catch ( ... )
0989       {
0990       return ( FMessage ) ;
0991       }
0992  }
0993  //---------------------------------------------------------------------------
0994  bool CMicaps::Transparency ( void )
0995  //功能：清透明板
0996  {
0997       return (  MenuFromId ( MICAPS_MENU_TRANSPARENCY )) ;
0998  }
0999  //---------------------------------------------------------------------------
1000  bool CMicaps::DialogTools ( bool FEditToolsDlg )
1001  //功能：隐现工具对话框
1002  //参数：
1003  //FEditToolsDlg - 隐现标志 (true 为显示，false 为消隐)
1004  {
1005       bool    FMessage =  false ;
1006  try  {
1007       if (  IsMicapsRunning () )
1008           {
1009           if (  FEditToolsDlg  )
1010               FMessage = MenuFromId ( MICAPS_MENU_EDITTOOL ) ;
1011           else
1012               {
1013               HWND    hWndMicapsEditTools = FindWindow ( "EditClass" , "工具" ) ;
1014               if (  hWndMicapsEditTools != NULL  )
1015                   FMessage = PostMessage (  hWndMicapsEditTools, WM_CLOSE,  0 ,  0  ) ;
1016               }
1017           }
1018       return ( FMessage ) ;
1019       }
1020  catch ( ... )
1021       {
1022       return ( FMessage ) ;
1023       }
1024  }
1025  //---------------------------------------------------------------------------
1026  bool CMicaps::DialogOption ( bool FViewOptionDlg )
1027  //功能：隐现显示设置对话框
1028  //参数：
1029  //FViewOptionDlg - 隐现标志 (true 为显示，false 为消隐)
1030  {
1031       bool    FMessage =  false ;
1032  try  {
1033       if (  IsMicapsRunning () )
1034           {
1035           if (  FViewOptionDlg  )
1036               FMessage = MenuFromId ( MICAPS_MENU_VIEWOPTION ) ;
1037           else
1038               {
1039               HWND    hWndMicapsViewOption = FindWindow (  "#32770" ,  "显示设置"  ) ;
1040               if (  hWndMicapsViewOption != NULL  )
1041                   FMessage = PostMessage (  hWndMicapsViewOption, WM_CLOSE,  0 ,  0  ) ;
1042               }
1043           }
1044       return ( FMessage ) ;
1045       }
1046  catch ( ... )
1047       {
1048       return ( FMessage ) ;
1049       }
1050  }
1051  //---------------------------------------------------------------------------
1052  bool CMicaps::PointEvent ( POINTEVENT *FPointEvent,  int  FPointCount )
1053  //功能：在指定的窗口位置按下指定的鼠标键
1054  //参数：
1055  //FPointEvent - 包含鼠标操作信息(窗口)的结构地址 &FPointEvent
1056  //FPointCount - FPointEvent[]的总数
1057  {
1058       bool    FMessage =  false ;
1059       HWND    hWndMicaps = FindMicapsWindow () ;
1060       if (  hWndMicaps == NULL  )     return ( false ) ;
1061  try  {
1062       for (  int  i= 0 ;i<FPointCount;i++  )
1063           {
1064           PostMessage (
1065               hWndMicaps,
1066               FPointEvent [ i ] .Event ? WM_LBUTTONDOWN : WM_RBUTTONDOWN,
1067               FPointEvent [ i ] .Event ? MK_LBUTTON : MK_RBUTTON,
1068               MAKELONG ( FPointEvent [ i ] .Place.x,FPointEvent [ i ] .Place.y ) ) ;
1069           PostMessage (
1070               hWndMicaps,
1071               FPointEvent [ i ] .Event ? WM_LBUTTONUP : WM_RBUTTONUP,
1072               FPointEvent [ i ] .Event ? MK_LBUTTON : MK_RBUTTON,
1073               MAKELONG ( FPointEvent [ i ] .Place.x,FPointEvent [ i ] .Place.y ) ) ;
1074           }
1075       FMessage =  true ;
1076       return ( FMessage ) ;
1077       }
1078  catch ( ... )
1079       {
1080       return ( FMessage ) ;
1081       }
1082  }
1083  //---------------------------------------------------------------------------
1084  bool CMicaps::PointEvent ( FLOATPOINTEVENT *FFloatPointEvent,  int  FFloatPointCount )
1085  //功能：在指定的经纬度按下指定的鼠标键
1086  //参数：
1087  //FPointEvent - 包含鼠标操作信息(经纬度)的结构地址 &FPointEvent
1088  //FPointCount - FPointEvent[]的总数
1089  {
1090       bool    FMessage =  false ;
1091       HWND    hWndMicaps = FindMicapsWindow () ;
1092       if (  hWndMicaps == NULL || !FCoordinateEnabled  )     return ( false ) ;
1093  try  {
1094       TPoint pp;
1095  //    CCoordinate
1096       for (  int  i= 0 ;i<FFloatPointCount;i++  )
1097           {
1098           pp = FCoordinate->WindowPlace ( FFloatPointEvent [ i ] .Place ) ;
1099           PostMessage (
1100               hWndMicaps,
1101               FFloatPointEvent [ i ] .Event ? WM_LBUTTONDOWN : WM_RBUTTONDOWN,
1102               FFloatPointEvent [ i ] .Event ? MK_LBUTTON : MK_RBUTTON,
1103               MAKELONG ( pp.x,pp.y ) ) ;
1104           PostMessage (
1105               hWndMicaps,
1106               FFloatPointEvent [ i ] .Event ? WM_LBUTTONUP : WM_RBUTTONUP,
1107               FFloatPointEvent [ i ] .Event ? MK_LBUTTON : MK_RBUTTON,
1108               MAKELONG ( pp.x,pp.y ) ) ;
1109           }
1110       FMessage =  true ;
1111       return ( FMessage ) ;
1112       }
1113  catch ( ... )
1114       {
1115       return ( FMessage ) ;
1116       }
1117  }
1118  //---------------------------------------------------------------------------
1119  bool CMicaps::PointEvent ( OBJECTEVENT *FObjectEvent,  int  FObjectEventCount )
1120  //功能：在指定的窗口位置按下指定的鼠标键
1121  //功能：
1122  //参数：
1123  //FObjectEvent      - 包含鼠标操作信息(键、事件、经、纬度)的结构地址
1124  //FObjectEventCount - FObjectEvent 的数据长度
1125  {
1126       bool    FMessage =  false ;
1127       UINT    FButton, FEvent;
1128       RECT lpRect;
1129       TPoint pp;
1130       HWND    hWndMicaps = FindMicapsWindow () ;
1131       if (  hWndMicaps == NULL || !FCoordinateEnabled  )     return ( false ) ;
1132  try  {
1133       for (  int  i= 0 ;i<FObjectEventCount;i++  )
1134           {
1135           pp = FCoordinate->WindowPlace ( FObjectEvent [ i ] .Longitude,FObjectEvent [ i ] .Latitude ) ;
1136  //鼠标键
1137           if (  FObjectEvent [ i ] .Button ==  0  )
1138               FButton = MK_LBUTTON;
1139           else
1140               FButton = MK_RBUTTON;
1141  //事件
1142           if (  FObjectEvent [ i ] .Event  ==  0  )
1143               FEvent  = FObjectEvent [ i ] .Button ==  0  ? WM_LBUTTONDOWN   : WM_RBUTTONDOWN;
1144           else if (  FObjectEvent [ i ] .Event  ==  1  )
1145               FEvent  = FObjectEvent [ i ] .Button ==  0  ? WM_LBUTTONUP     : WM_RBUTTONUP;
1146           else if (  FObjectEvent [ i ] .Event  ==  3  )
1147               FEvent  = FObjectEvent [ i ] .Button ==  0  ? WM_LBUTTONDBLCLK : WM_RBUTTONDBLCLK;
1148           else  FEvent = FObjectEvent [ i ] .Event;
1149           switch (  FObjectEvent [ i ] .Event  )
1150               {
1151               case  MICAPS_CONTROL_CLICK: //单击事件包含按下和弹起两个事件
1152                   PostMessage (
1153                       hWndMicaps,
1154                       FObjectEvent [ i ] .Event ? WM_LBUTTONDOWN : WM_RBUTTONDOWN,
1155                       FObjectEvent [ i ] .Button ? MK_LBUTTON : MK_RBUTTON,
1156                       MAKELONG ( pp.x,pp.y ) ) ;
1157                   PostMessage (
1158                       hWndMicaps,
1159                       FObjectEvent [ i ] .Event ? WM_LBUTTONDOWN : WM_RBUTTONDOWN,
1160                       FObjectEvent [ i ] .Button ? MK_LBUTTON : MK_RBUTTON,
1161                       MAKELONG ( pp.x,pp.y ) ) ;
1162                   break ;
1163               default :
1164                   PostMessage (
1165                       hWndMicaps,
1166                       FEvent,
1167                       FButton,
1168                       MAKELONG ( pp.x,pp.y ) ) ;
1169                   break ;
1170               }
1171           }
1172       FMessage =  true ;
1173       return ( FMessage ) ;
1174       }
1175  catch ( ... )
1176       {
1177       return ( FMessage ) ;
1178       }
1179  }
1180  //---------------------------------------------------------------------------
1181  bool CMicaps::MicapsClientRect ( LPRECT lpRect )
1182  //功能：获得Micaps窗口区域
1183  //参数：
1184  //lpRect - 指向Micaps窗口区域的RECT结构的指针
1185  {
1186       HWND    hWndMicaps = FindMicapsWindow () ;
1187       bool    bMessage = ::GetClientRect (  hWndMicaps, lpRect  ) ;
1188       return ( bMessage ) ;
1189  }
1190  //---------------------------------------------------------------------------
1191  bool CMicaps::MicapsWindowRect ( LPRECT lpRect )
1192  //功能：获得Micaps窗口区域
1193  //参数：
1194  //lpRect - 指向Micaps窗口区域的RECT结构的指针
1195  {
1196       HWND    hWndMicaps = FindMicapsWindow () ;
1197       bool    bMessage = ::GetWindowRect (  hWndMicaps, lpRect  ) ;
1198       return ( bMessage ) ;
1199  }
1200  //---------------------------------------------------------------------------
1201  bool CMicaps::OperateFromFile ( AnsiString FOperateFile )
1202  //功能：根据预定义的操作记录文件来执行Micaps操作
1203  //功能：
1204  //参数：
1205  //FOperateFile - 文件名
1206  {
1207       bool FMessage =  false ;
1208       if (  !FileExists ( FOperateFile ) )   return ( FMessage ) ;
1209       Sleep ( 1032 ) ;
1210       MICAPSEVENT me;
1211       OBJECTEVENT *oe;
1212  try  {
1213       oe =  new  OBJECTEVENT [ 12 ] ;
1214       int  iFileHandle = FileOpen ( FOperateFile,fmOpenRead ) ;
1215       int  iFileRead   = - 1 ;
1216       char     Symbol [ 33 ] ;
1217       if (  iFileHandle != - 1  )
1218           {
1219           iFileRead = FileRead ( iFileHandle, ( LPSTR ) Symbol, 32 ) ; //First
1220           Symbol [ 32 ]  =  '/0' ;
1221           }
1222       if (  iFileHandle != - 1  && AnsiString ( Symbol )  ==  "MicapsControl-LiuZeJun-CBuilder5"  )
1223           {
1224           iFileRead = FileRead ( iFileHandle, ( LPSTR ) &me,sizeof ( MICAPSEVENT )) ; //First
1225           while (   iFileRead == sizeof ( MICAPSEVENT )
1226                   && me.Object != MICAPS_OBJECT_NULL
1227                   && me.Count >  0 )
1228               {
1229               oe =  new  OBJECTEVENT [ me.Count ] ;
1230               for (  int  i= 0 ;i<me.Count;i++  )
1231                   iFileRead = FileRead ( iFileHandle, ( LPSTR ) &oe [ i ] , sizeof ( OBJECTEVENT )) ;
1232 
1233               FMessage = Operate ( me, oe ) ;
1234               iFileRead = FileRead ( iFileHandle, ( LPSTR ) &me,sizeof ( MICAPSEVENT )) ; //Next
1235               }
1236           FileClose ( iFileHandle ) ;
1237           iFileHandle = - 1 ;
1238           delete oe;
1239           }
1240       if (  iFileHandle != - 1  )
1241           FileClose ( iFileHandle ) ;
1242       return ( FMessage ) ;
1243       }
1244  catch ( ... )
1245       {
1246       return ( FMessage ) ;
1247       }
1248  }
1249  //---------------------------------------------------------------------------
1250  bool CMicaps::Operate ( MICAPSEVENT FMicapsEvent, OBJECTEVENT *FObjectEvent )
1251  //功能：执行Micaps操作
1252  //参数：
1253  //FMicapsEvent - 包含要操纵的Micaps对象及次数的数据结构
1254  //FObjectEvent - 包含鼠标操作信息(键、事件、经、纬度)的结构地址
1255  {
1256       bool    FMessage =  false ;
1257       switch (  FMicapsEvent.Object  )
1258           {
1259           case  MICAPS_OBJECT_NULL:
1260               break ;
1261           case  MICAPS_OBJECT_MICAPS: //Micaps主窗口
1262               Revert () ; //还原
1263               FMessage = PointEvent ( FObjectEvent,FMicapsEvent.Count ) ;
1264               break ;
1265           case  MICAPS_OBJECT_MENU: //Micaps主菜单
1266               for (  int  i= 0 ;i<FMicapsEvent.Count;i++  )
1267                   FMessage = MenuFromId ( FObjectEvent [ i ] .Event ) ;
1268               break ;
1269           case  MICAPS_OBJECT_TOOLS: //Micaps工具窗口
1270               for (  int  i= 0 ;i<FMicapsEvent.Count;i++  )
1271                   {
1272                   if (  FObjectEvent [ i ] .Longitude == - 1  || FObjectEvent [ i ] .Latitude == - 1  )
1273                       FMessage = DialogTools ( false ) ;
1274                   else if (  FObjectEvent [ i ] .Longitude == - 2  || FObjectEvent [ i ] .Latitude == - 2  )
1275                       FMessage = DialogTools ( true ) ;
1276                   else
1277                       FMessage = Tools (
1278                           FObjectEvent [ i ] .Longitude,
1279                           FObjectEvent [ i ] .Latitude ) ;
1280                   }
1281               break ;
1282           case  MICAPS_OBJECT_EXPLORE: //Micaps检索窗口
1283               for (  int  i= 0 ;i<FMicapsEvent.Count;i++  )
1284                   FMessage = Explore ( FObjectEvent [ i ] .Latitude ) ;
1285               break ;
1286           case  MICAPS_OBJECT_OPTION: //Micaps显示设置窗口
1287               for (  int  i= 0 ;i<FMicapsEvent.Count;i++  )
1288                   {
1289                   if (  FObjectEvent [ i ] .Longitude == - 3  || FObjectEvent [ i ] .Latitude == - 3  )
1290                       FMessage = DialogOption ( false ) ;
1291                   else if (  FObjectEvent [ i ] .Longitude == - 4  || FObjectEvent [ i ] .Latitude == - 4  )
1292                       FMessage = DialogOption ( true ) ;
1293                   else
1294                       FMessage = Status (
1295                           FObjectEvent [ i ] .Longitude, //First Item Index
1296                           FObjectEvent [ i ] .Latitude, //Last Item Index
1297                           FObjectEvent [ i ] .Event ) ;
1298                   }
1299               break ;
1300           default :
1301               break ;
1302           }
1303       return ( FMessage ) ;
1304  }
1305  //---------------------------------------------------------------------------
1306  AnsiString CMicaps::GetOpenFileName ( void )
1307  //功能：返回当前Micaps打开的文件名
1308  {
1309       return ( FCurrentOpenFileName ) ;
1310  }
1311  //---------------------------------------------------------------------------
1312  bool CMicaps::SetParentWindow ( HWND hNewParentWindow )
1313  {
1314       if (  hNewParentWindow != NULL  )
1315           return (  SetParent (  FindMicapsWindow () , hNewParentWindow  )  != NULL  ) ;
1316       else
1317           return (  false  ) ;
1318  }
1319  //---------------------------------------------------------------------------
1320  bool CMicaps::SetChildWindow ( HWND hNewChildWindow )
1321  {
1322       if (  hNewChildWindow != NULL  )
1323           return (  SetParent (  hNewChildWindow, FindMicapsWindow () )  != NULL  ) ;
1324       else
1325           return (  false  ) ;
1326  }
1327  //---------------------------------------------------------------------------
1328  bool CMicaps::Show ( void )
1329  {
1330       HWND    hWndMicaps = FindMicapsWindow () ;
1331       return (  hWndMicaps != NULL
1332           && ShowWindow ( hWndMicaps,SW_SHOWNORMAL )
1333           && SetForegroundWindow ( hWndMicaps ) ) ;
1334  }
1335  //---------------------------------------------------------------------------
1336  bool CMicaps::SaveMicapsImage ( AnsiString ImageFileName )
1337  //功能：以Bitmap位图方式保存Micaps主窗口的图像信息 - 用于气象信息网站建设所需
1338  //
1339  //ImageFileName - 目标文件名
1340  //
1341  {
1342       HWND    hWndMicaps = FindMicapsWindow () ;
1343       if (  hWndMicaps == NULL  )     return ( false ) ;
1344       HWND    hWndMicapsTools = FindWindow ( "OperateClass" , "工具" ) ;
1345       if (  hWndMicapsTools == NULL  )    return ( false ) ;
1346       TRect   mrect;
1347       bool    move =
1348                       GetWindowRect ( hWndMicapsTools,&mrect )
1349                   &&  MoveWindow ( hWndMicapsTools,
1350                           -mrect.Right- 1 ,mrect.Top,-mrect.Right- 1 +mrect.Width () ,mrect.Height () ,true ) ;
1351       bool    ok =  false ;
1352 
1353       if (      hWndMicaps != NULL //主窗口
1354           &&  hWndMicapsTools != NULL //数据检索窗口
1355           &&  GetDC ( hWndMicaps )  != NULL //主窗口设备描述表
1356           &&  ShowWindow ( hWndMicaps,SW_SHOWNORMAL ) //显示主窗口
1357           &&  SetForegroundWindow ( hWndMicaps ) //将主窗口设置为前端显示
1358           &&  DialogTools ( false ) //隐藏工具窗口
1359           &&  DialogOption ( false ) ) //隐藏显示设置窗口
1360           {
1361           HDC dc = GetDC ( hWndMicaps ) ;
1362           TRect    rect;
1363           Graphics::TBitmap   *bitmap =  new  Graphics::TBitmap () ;
1364           MicapsClientRect ( &rect ) ;
1365           bitmap->Width = rect.Width () ;
1366           bitmap->Height = rect.Height () ;
1367           UpdateWindow ( hWndMicaps ) ;
1368           bool ok1 = BitBlt (
1369               ( HDC ) bitmap->Canvas->Handle,     // handle to destination device context
1370               0 ,                               // x-coordinate of destination rectangle's upper-left corner
1371               0 ,                               // y-coordinate of destination rectangle's upper-left corner
1372               rect.Width () ,                    // width of destination rectangle
1373               rect.Height () ,                   // height of destination rectangle
1374               dc,                              // handle to source device context
1375               0 ,                               // x-coordinate of source rectangle's upper-left corner
1376               0 ,                               // y-coordinate of source rectangle's upper-left corner
1377               SRCCOPY                          // raster operation code
1378               ) ;
1379           if (  ok1  )
1380               {
1381               bitmap->SaveToFile ( ImageFileName ) ;
1382               ok = ok1 && FileExists ( ImageFileName ) ;
1383               }
1384           delete bitmap;
1385           }
1386       if (  move  )
1387           MoveWindow ( hWndMicapsTools,mrect.Left,mrect.Top,mrect.Width () ,mrect.Height () ,true ) ;
1388       return ( ok ) ;
1389  }
1390  //---------------------------------------------------------------------------