请较MO空间统计为什么不能进行,付代码

楼主^#

更多发布于：2006-04-03 11:57

CMoMapLayer CObjectSearch::CreateShpFile(CString ;ShpFilePath, int ShpFileStyle,vector<lpMoFieldInfo> fieldDesc) { Logf("创建SHAPE文件:%s.....",ShpFilePath); CMoDataConnection conn; if (!conn.CreateDispatch(TEXT("MapObjects2.DataConnection"))) { Logf("失败!Error:%s\n",TEXT("创建连接失败")); return NULL; } CString strFileTitle( ShpFilePath ); int idx = 0; while ( idx != -1 ) { idx = strFileTitle.Find( "\\" ); strFileTitle = strFileTitle.Right( strFileTitle.GetLength() - idx - 1 ); } idx = ShpFilePath.Find( strFileTitle ); CString strFilePath( ShpFilePath.Left( idx ) ); conn.SetDatabase( strFilePath ); if (!conn.Connect()) { Logf("失败!Error:%s\n",TEXT("连接失败")); return NULL; } CMoTableDesc tDesc; if (!tDesc.CreateDispatch(TEXT("MapObjects2.TableDesc"))) { Logf("失败!Error:%s\n",TEXT("创建表失败")); return NULL; } tDesc.SetFieldCount(fieldDesc.size()); vector<lpMoFieldInfo>::const_iterator itor; int index = 0; for(itor = fieldDesc.begin();itor != fieldDesc.end();++itor) { if((*itor)->fieldType == moString) { tDesc.SetFieldType(index,moString); tDesc.SetFieldName(index, (*itor)->fieldName); tDesc.SetFieldLength(index, (*itor)->fieldLength); } else if((*itor)->fieldType == moLong) { tDesc.SetFieldType(index,moLong); tDesc.SetFieldName(index, (*itor)->fieldName); tDesc.SetFieldPrecision(index, (*itor)->fieldPrecision); } else if((*itor)->fieldType == moDouble) { tDesc.SetFieldType(index,moDouble); tDesc.SetFieldName(index,(*itor)->fieldName); tDesc.SetFieldPrecision(index,(*itor)->fieldPrecision); tDesc.SetFieldScale(index, (*itor)->fieldScale); } index++; }
 CMoGeoDataset Geoset; if (!Geoset.CreateDispatch(TEXT("MapObjects2.DataConnection"))) { Logf("失败!Error:%s\n",TEXT("创建记录集失败")); return NULL; } VARIANT v; ::VariantInit(;v); v.vt = VT_BOOL; v.boolVal = VARIANT_TRUE; Geoset = conn.AddGeoDataset(strFileTitle, ShpFileStyle, tDesc, v, v); ::VariantClear(;v); CMoMapLayer TempMapLayer; if (!TempMapLayer.CreateDispatch(TEXT("MapObjects2.MapLayer"))) { Logf("失败!Error:%s\n",TEXT("创建图层失败")); return NULL; }
 TempMapLayer.SetGeoDataset(Geoset); Logf("成功!\n");
 for(int i=0;i<fieldDesc.size();i++) { delete fieldDesc.at(i); } fieldDesc.clear();
 return TempMapLayer; }

static DWORD WINAPI CaculateLayerObjectProc(LPVOID param) { lpCaculateParam p = (lpCaculateParam)param; ASSERT(p != NULL); CMap1 *pMap = (CMap1*)p->pMap; if(pMap == NULL) return 0;
 CString path; path.Format("%s",p->sShpFilePath); //获得缓存图形 vector<lpCaculateBuffer>::const_iterator itor; vector<lpCpyInfo>::const_iterator itorCpyInfoBuffer; vector<lpCpyFieldInfo>::const_iterator itorCpyFieldBuffer;
 for( itor = p->buffer.begin(); itor != p->buffer.end(); ++itor ) { ::SendMessage(p->hCaculateWnd,PROGRESS_POS_SET_MSG,0,0); //创建目标图层并清空 CString bufferShpFile; bufferShpFile.Format("%s\\%s",path,(*itor)->layerName);
 CMoMapLayer BufferResultMapLayer(CObjectSearch::CreateShpFile(bufferShpFile,(*itor)->layerType,(*itor)->lyTableDesc)); CMoRecordset BufferResc = BufferResultMapLayer.GetRecords(); BufferResc.MoveFirst(); while(!BufferResc.GetEof()) { BufferResc.Delete(); BufferResc.MoveNext(); } //过滤图形数据 int pos = 0,index=1; long bufferSize = (*itor)->cpyInfoBuffer.size();
 ::SendMessage(p->hCaculateWnd,PROGRESS_POS_SET_MSG,pos,0); switch((*itor)->layerType) { case 21: { index = 1; for( itorCpyInfoBuffer = (*itor)->cpyInfoBuffer.begin(); itorCpyInfoBuffer != (*itor)->cpyInfoBuffer.end(); ++itorCpyInfoBuffer ) { BufferResc.AddNew(); for( itorCpyFieldBuffer = (*itorCpyInfoBuffer)->cpyFieldBuffer.begin(); itorCpyFieldBuffer != (*itorCpyInfoBuffer)->cpyFieldBuffer.end(); ++itorCpyFieldBuffer ) { CString sFieldName = (*itorCpyFieldBuffer)->fieldName; VARIANT vFieldValue = (*itorCpyFieldBuffer)->fieldValue; BufferResc.GetFields().Item(COleVariant(sFieldName)).SetValue(vFieldValue); } BufferResc.Update();
 pos = int(index * 100.0 / bufferSize); ::SendMessage(p->hCaculateWnd,PROGRESS_POS_SET_MSG,pos,0); index++; } break; } case 22: { index = 1; for( itorCpyInfoBuffer = (*itor)->cpyInfoBuffer.begin(); itorCpyInfoBuffer != (*itor)->cpyInfoBuffer.end(); ++itorCpyInfoBuffer ) { BufferResc.AddNew(); for( itorCpyFieldBuffer = (*itorCpyInfoBuffer)->cpyFieldBuffer.begin(); itorCpyFieldBuffer != (*itorCpyInfoBuffer)->cpyFieldBuffer.end(); ++itorCpyFieldBuffer ) { CString sFieldName = (*itorCpyFieldBuffer)->fieldName; VARIANT vFieldValue = (*itorCpyFieldBuffer)->fieldValue; BufferResc.GetFields().Item(CComVariant(sFieldName)).SetValue(vFieldValue); }
 BufferResc.Update();
 pos = int(index * 100.0 / bufferSize); ::SendMessage(p->hCaculateWnd,PROGRESS_POS_SET_MSG,pos,0); index++; }
 break; } case 23: { break; } }
 ::SendMessage(p->hCaculateWnd,PROGRESS_POS_SET_MSG,0,0); } Logf("统计区域对象完毕!....\n"); return 1; } 
//返回计算线程句柄 HANDLE CObjectSearch::StartCaculateObject(HWND hCaculateWnd,LPDISPATCH pPoly,CString tempPath,vector<CString> srLyArray) {
.........
HANDLE hThread = CreateThread(NULL,0,CaculateLayerObjectProc,pParam,0,;threadID);
.........
}

喜欢0 评分0

举报回复

fanxing_gis 路人甲注册日期2006-04-05 发帖数5 QQ 铜币120枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2006-04-06 18:01 <P>有没有ＶＢ代码？</P>
	举报回复(0) 喜欢(0) 评分

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

请较MO空间统计为什么不能进行,付代码

最新喜欢：