代码名称:mif转换tab(Delphi+VB)


论坛地址: 下载地址1

下载要求:论坛注册用户,论坛金钱30购买-关于论坛金钱说明?

作者:shappy1978

开发环境:Delphi、VB + MapInfo Professional

代码介绍:

论坛上的mif2tab很多人问过,大多数人含含糊糊的回答,给出解决例子的只有一个,而且还是外国人作的,用mapx4(3?)做的,其中某些语法上跟5有点不同的,所以在我机上连例子中的stats.mif都不能转换,而且作者也提出,某些类型的图层并没有转换(如Text等),所以只是一个小例子,并不能实际操作.很多人提到过转换的方法有两个:1 用mapinfo或者嵌入的方式转,这个方法必须手动选文件,所以批量转换很麻烦. 2 用mapx控件转,必须自己写读取mif和mid的函数. 方法2网上找到的例子没有完善的,而且旧的例子由于语法改变造成不能再使用,其次,mif文件的格式也是在变化的(有关mif格式参照这个[pdf]
点击浏览该文件),光是里面设置坐标系的格式就有5,6种,论坛例子只是读取第一种,而我手上有的地图刚好不是第一种,所以读取mif的方法确实比较麻烦,而且一般控件升级或者mif格式再次改动,程序就必须重写.方法一由于嵌入mapinfo对象,所以不需设计文件格式,不过必须想方法处理其中手动操作的部分,而我就采用了模拟的方法,触发inport事件,再选着import file对话框,填入文件名,按打开,同样处理保存框. 里面设计寻找窗口,回调和文件历遍几个方法,初学可以看一下.
另外一个vb的例子很简单,嵌入mapinfo对象,加入一个按钮触发import.