NIM004549 for No Product Found

Bug-ID-Nummer	NIM004549
Eingereicht	October 2, 2006
Zuletzt geändert	June 5, 2024
Gilt für	No Product Found
Gefunden in Version	9.2 RC
Programmsprache	VB6
Status	Will Not Be Addressed

Zusätzliche Informationen

No Public Explanation

Workaround

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.