[原创]C++builder6开发Mo详细代码

楼主^#

更多发布于：2007-03-27 19:56

对处理数据要求不是很高，mo还是比较合适的。下面的代码是我用到的几个常用功能，其他没用到，就没去研究了，希望高手继续补充。 (gis帝国首发转载请保持完整。lhfde) 
1.创建新图层,打开图层 //创建新图层 double m_Lon,m_Lat; IMoDataConnectionPtr pMoCon; IMoTableDescPtr desc; IMoPointPtr point; ADOTable1->First();
 pMoCon=(IDispatch*)CreateOleObject("MapObjects2.DataConnection"); desc=(IDispatch*)CreateOleObject("MapObjects2.TableDesc"); pMoCon->Database=WideString(" c:\\gis\\shp\\beijinmap"); //设置图层目录 
if(pMoCon->Connect()) { //创建新图层,设置名称、类型及字段。 desc->set_FieldCount(6); desc->set_FieldType(0,moString); desc->set_FieldName(0,WideString("ID")); desc->set_FieldLength(0,5); desc->set_FieldType(1,moString); desc->set_FieldName(1,WideString("AID")); desc->set_FieldLength(1,10); desc->set_FieldType(2,moString); desc->set_FieldName(2,WideString("BID")); desc->set_FieldLength(2, 10); desc->set_FieldType(3,moString); desc->set_FieldName(3,WideString("CID")); desc->set_FieldLength(3, 3); desc->set_FieldType(4,moString); desc->set_FieldName(4,WideString("DID")); desc->set_FieldLength(4, 8); desc->set_FieldType(5,moString); desc->set_FieldName(5,WideString("FLAG")); 
 desc->set_FieldLength(5,3);
 //设置图层的记录集 IMoGeoDatasetPtr geoDataset; geoDataset=pMoCon->AddGeoDataset(WideString("水系层"),moShapeTypePoint,desc); layer=(IDispatch*)CreateOleObject("MapObjects2.MapLayer"); 
 layer->set_GeoDataset(geoDataset); IMoRecordsetPtr recs(layer->Records);
 point=(IDispatch*)CreateOleObject("MapObjects2.Point");
 for(int i=1;i<=60;i++) //写记录数 {
 recs->AddNew(); String ID=ADOTable1->FieldByName("ID")->AsString; ..... point->set_X(StrToFloat(ADOTable1->FieldByName("LONG")->AsString)); point->set_Y(StrToFloat(ADOTable1->FieldByName("LAT")->AsString)); recs->Fields->Item(TVariant("Shape"))->set_Value((TVariant)(IDispatch*)point); recs->Fields->Item(TVariant("ID"))->set_Value((TVariant)ID);
 recs->_Update(); ADOTable1->Next();
 } recs->StopEditing(); //-------------------------------------------------------------------- Map1->Layers->Add(layer); Map1->CenterAt( point->get_X(),point->get_Y()); 
 }
}
 
2.放大，缩小，全图，漫游
 if (ZoomInBtn->Down) { IMoRectanglePtr trackRect = Map1->TrackRectangle(); Map1->ControlInterface->Extent = trackRect; Map1->CenterAt(trackRect->Center->X,trackRect->Center->Y); Map2->ControlInterface->Extent=Map2->ControlInterface->Extent; } if (ZoomOutBtn->Down) { IMoRectanglePtr extRect = Map1->ControlInterface->Extent; extRect->ScaleRectangle(1.5); Map1->ControlInterface->Extent = extRect; Map2->ControlInterface->Extent=Map2->ControlInterface->Extent; } if (PanBtn->Down) { Map1->ControlInterface->Pan(); Map2->ControlInterface->Extent=Map2->ControlInterface->Extent; } if (FullExtentBtn->Down) { IMoRectanglePtr fullExt = Map1->FullExtent; Map1->ControlInterface->Extent = fullExt; Map2->ControlInterface->Extent=Map2->ControlInterface->Extent; } 
3.点选择
 IMoPointPtr pt,shape; IMoMapLayerPtr layer; 
 layer=(IDispatch*)CreateOleObject("MapObjects2.MapLayer"); layer=Map1->Layers->Item(TVariant(0));
 pt=Map1->ToMapPoint(X,Y); //mousedown获取的坐标 g_Select=layer->SearchByDistance(pt,0.0015,WideString(""));
 或 
 n_Select=layer->SearchExpression(WideString("ID ='"+value+"' AND NameID
 ='"+Namevalue+"'")); 
4.对图层rend。
 就是对图层上得symbol赋予自定义的颜色，字符等。
 IMoValueMapRendererPtr rd;
 IMoLabelRendererPtr label;
 IMoGroupRendererPtr layer_grouprend;
 IMoStringsPtr strings = (IDispatch*)CreateOleObject("MapObjects2.Strings"); rst->MoveFirst();
 //设置rend层,注意如果keyword值相同，将只取其中一个
 while (! bool(rst->EOF_)) { String strValue=rst->Fields->Item(TVariant(keyword))->ValueAsString; strings->Add(WideString(strValue)); rst->MoveNext(); j++; }
 rd->Field = WideString(keyword);//rend层和layer层对应的唯一属性 rd->SymbolType=moPointSymbol; rd->ValueCount = strings->Count;
 //倒入windowstruetype字体 IMoSymbolPtr rend_sym; TFont* stdFont; _di_IFontDisp olefont; stdFont = new TFont(); stdFont->Name = "ESRI Cartography"; GetOleFont(stdFont, olefont); delete stdFont; //对rend层中每个对象定义不同符号 for (int i = 0; i < strings->Count ; i ++) { rd->set_Value(i, strings->Item(TVariant(i))); rend_sym = rd->get_Symbol(i); rend_sym->Font = (IFontDisp**)(IDispatch*)olefont; rend_sym->Style =moTrueTypeMarker; rend_sym->Size = 16; rend_sym->CharacterIndex =78; rend_sym->Color = colorconst; rend_sym->Rotation=keyword; }
 layer->set_Renderer(rd); Map1->Refresh(); }
 
 IMoTextSymbolPtr label_sym; label_sym = label->get_Symbol(0); label_sym->Font= (IFontDisp**)(IDispatch*)olefont; label_sym->HorizontalAlignment= moAlignLeft; label_sym->VerticalAlignment= moAlignBottom; label_sym->Fitted=true; label_sym->Color=moDarkGray; label->Field=WideString("ID"); label->AllowDuplicates=False; 
 layer_grouprend =(IDispatch*)CreateOleObject("MapObjects2.GroupRenderer"); layer_grouprend->Add(rd); layer_grouprend->Add(label); layer->set_Renderer(layer_grouprend);
5.划线
 IMoLinePtr sectline; IMoPointsPtr sectpoints; IMoPointPtr pointA，pointB;
 sectline=(IDispatch*)CreateOleObject("MapObjects2.Line");
 pointA=(IDispatch*)CreateOleObject("MapObjects2.Point"); pointB=(IDispatch*)CreateOleObject("MapObjects2.Point"); 
 sectpoints=(IDispatch*)CreateOleObject("MapObjects2.Points"); 
 pointA->X=StrToFloat(ADOTable1->FieldByName("LONG")->AsString); pointA->Y=StrToFloat(ADOTable1->FieldByName("LAT")->AsString); sectpoints->Add(pointA); sectpoints->Add(pointB); sectline->Parts->Add(sectpoints); 
6.动态跟踪层
void __fastcall TForm1::MapAfterTrackingLayerDraw(TObject *Sender, OLE_HANDLE hDC) { IMoPointPtr mapPt; 
 IMoSymbolPtr sym; mapPt =Map->ToMapPoint(120,140); sym=(IDispatch*)CreateOleObject("MapObjects2.Symbol"); TFont* stdFont; _di_IFontDisp olefont; stdFont = new TFont(); stdFont->Name = "Wingdings"; GetOleFont(stdFont, olefont); delete stdFont; sym->Font = (IFontDisp**)(IDispatch*)olefont; sym->Color = moBlue; sym->Style= moTriangleMarker;//moTrueTypeMarker; Map->DrawShape((IDispatch*)mapPt,sym); 
} 
7.坐标系（现成例子）
#ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #include "MapObjects2_OCX.h" #include <ExtCtrls.hpp> #include <OleCtrls.hpp> #include <Dialogs.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TMap *Map1; TPanel *Panel1; TSplitter *Splitter3; TButton *Button1; TButton *Button2; TRadioButton *RadioButton1; TRadioButton *RadioButton2; TComboBox *ComboBox1; TOpenDialog *OpenDialog1; void __fastcall FormCreate(TObject *Sender); void __fastcall RadioButton1Click(TObject *Sender); void __fastcall RadioButton2Click(TObject *Sender); void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); AnsiString __fastcall ExtractFileNameNoExt(AnsiString fileName); int __fastcall stripProj(String theProjection); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif 
//---------------------------------------------------------------------------
#include <vcl.h> #pragma hdrstop
#include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "MapObjects2_OCX" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------------------------------------------------------
AnsiString __fastcall TForm1::ExtractFileNameNoExt(AnsiString fileName) { //TOD Add your source code here int pos = fileName.Pos("."); AnsiString strResult = fileName.SubString(1,pos -1); return strResult; }
void __fastcall TForm1::FormCreate(TObject *Sender) { IMoStringsPtr strGCS; strGCS = CreateOleObject("MapObjects2.Strings"); strGCS->PopulateWithGeographicCoordSys(); for(int i=0; i<strGCS->Count;i++) ComboBox1->Items->Add(AnsiString(strGCS->Item(Variant(i)))); ComboBox1->ItemIndex = 0; } //---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender) { ComboBox1->Clear(); IMoStringsPtr strGCS; strGCS = CreateOleObject("MapObjects2.Strings"); strGCS->PopulateWithGeographicCoordSys(); for(int i=0; i<strGCS->Count;i++) ComboBox1->Items->Add(AnsiString(strGCS->Item(Variant(i)))); ComboBox1->ItemIndex = 0; } //---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender) { ComboBox1->Clear(); IMoStringsPtr strPCS; strPCS = CreateOleObject("MapObjects2.Strings"); strPCS->PopulateWithProjectedCoordSys(); for(int i=0; i<strPCS->Count;i++) ComboBox1->Items->Add(AnsiString(strPCS->Item(Variant(i)))); ComboBox1->ItemIndex = 0; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { if(RadioButton1->Checked) { IMoGeoCoordSysPtr gs=(IDispatch*)CreateOleObject("MapObjects2.GeoCoordSys"); gs->Type = stripProj(ComboBox1->Text); Map1->CoordinateSystem=OleVariant((IDispatch*)gs);
 } else { IMoProjCoordSysPtr ps=(IDispatch*)CreateOleObject("MapObjects2.ProjCoordSys"); ps->Type =stripProj(ComboBox1->Text); Map1->CoordinateSystem=OleVariant((IDispatch*)ps); } }
void __fastcall TForm1::Button1Click(TObject *Sender) { if(OpenDialog1->Execute()) { IMoMapLayerPtr layer=(IDispatch*) CreateOleObject("MapObjects2.MapLayer"); IMoDataConnectionPtr dc; dc=(IDispatch*)CreateOleObject("MapObjects2.DataConnection"); AnsiString name = ExtractFileDir(OpenDialog1->FileName); dc->Database=WideString(name).Detach();
 if(!bool(dc->Connect())) { MessageBox(NULL,"wrong","connect wrong !",MB_OK); return; } name =ExtractFileName(OpenDialog1->FileName); name =ExtractFileNameNoExt(name); layer->GeoDataset=dc->FindGeoDataset(WideString(name).Detach()); IMoSymbolPtr sym=layer->Symbol; sym->Color =moRed; Map1->Layers->Add(layer); } } 
int __fastcall TForm1::stripProj(String theProjection) { //TOD Add your source code here int openA,openB; openA= theProjection.Pos("["); openB=theProjection.Pos("]"); String str=theProjection.SubString(openA+1,openB-openA-1); return StrToInt(str); } 
8.鹰眼（和第二步关联）
Map2->Layers->Add(bts_layer); 
void __fastcall TMainFrame::Map2AfterLayerDraw(TObject *Sender, short index, VARIANT_BOOL canceled, OLE_HANDLE hDC) {
 IMoSymbolPtr sym=(IDispatch*)CreateOleObject("MapObjects2.Symbol"); sym->OutlineColor=moRed; sym->Outline=true; sym->SymbolType=moFillSymbol; sym->Style=moTransparentFill; Map2->DrawShape(Map1->ControlInterface->Extent,sym); }

9,shp文件修改

<TABLE height="85%" width="95%" align=center border=0>

<TR>
<TD vAlign=top width=* height="100%">
 IMoRecordsetPtr a_Select ；
 a_Select->Edit(); a_Select->Fields->Item(TVariant("Name"))->set_Value((TVariant)"1"); a_Select->_Update(); a_Select->StopEditing();</TD></TR></TABLE>

[此贴子已经被作者于2007-4-3 21:57:02编辑过]

喜欢0 评分0

举报回复

雪山飞鸟路人甲注册日期2005-11-24 发帖数25 QQ 铜币202枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2007-03-30 19:21 很好，支持，谢谢，我已经收录了，呵呵。
	举报回复(0) 喜欢(0) 评分

whmwxhanshan123 路人甲注册日期2006-06-17 发帖数3108 QQ 铜币6445枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-03-31 20:14 <img src="images/post/smile/dvbbs/em04.gif" />
	举报回复(0) 喜欢(0) 评分

水草路人甲注册日期2007-03-05 发帖数1 QQ 铜币105枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2007-04-02 20:59 <P>高手～～～～～～～～～～</P> <P>感谢</P><img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

zsloyes 路人甲注册日期2006-11-07 发帖数2 QQ 铜币113枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2008-06-11 23:30 谢谢,收藏
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

[原创]C++builder6开发Mo详细代码

最新喜欢：