NIM004549 for No Product Found

漏洞 ID 编号	NIM004549
已提交	October 2, 2006
上次修改时间	June 5, 2024
适用范围	No Product Found
找到的版本	9.2 RC
编程语言	VB6
状态	Will Not Be Addressed

附加信息

No Public Explanation

解决办法

To implement IGeoDataset, put the code below into clsLogoLayer.cls:Implements IGeoDatasetPrivate Property Get IGeoDataset_Extent() As esriGeometry.IEnvelope If Not ILayer_Valid Then Set m_pExtent = Nothing ElseIf m_pExtent Is Nothing Then Dim pEnv As esriGeometry.IEnvelope Set pEnv = New esriGeometry.Envelope With pEnv Set .SpatialReference = IGeoDataset_SpatialReference .XMin = ILayer_AreaOfInterest.XMin .YMin = ILayer_AreaOfInterest.YMin .XMax = ILayer_AreaOfInterest.XMax .YMax = ILayer_AreaOfInterest.YMax End With Set m_pExtent = pEnv End If If m_pExtent Is Nothing Then Exit Property Set IGeoDataset_Extent = m_pExtentEnd PropertyPrivate Property Get IGeoDataset_SpatialReference() As esriGeometry.ISpatialReference If m_pDataSpatialRef Is Nothing Then Dim pSRefFact As ISpatialReferenceFactory2 Set pSRefFact = New SpatialReferenceEnvironment Set m_pDataSpatialRef = pSRefFact.CreateProjectedCoordinateSystem(esriSRProjCS_World_Robinson) End If Set IGeoDataset_SpatialReference = m_pDataSpatialRefEnd PropertyMake the .dll and create a new logo layer, and create a new WMS service. It can be connected this time.