mira el codigo que tengo es este
Option Explicit
Private m_pIMSReg As IMSUtil.RegParams
Private m_pWebFunc As IMSUtil.WebFuncs
Public Function Add()
'
' This function registers this map server application with the Web server.
'
If Not m_pWebFunc.RegisterServer(m_pIMSReg) Then
MsgBox "Could not register application with Web server"
End If
End Function
Public Function Remove()
'
' Unregister this application from the Web server.
'
m_pWebFunc.UNRegisterServer m_pIMSReg
End Function
Private Sub Class_Initialize()
'
' Set up appropriate properties.
'
Set m_pIMSReg = New IMSUtil.RegParams
With m_pIMSReg
.HostURL = "http://inf1wsxpp262/servlet/com.esri.esrimap.Esrimap"
.Machine = "172.16.23.21"
.MaxPending = 5
.Timeout = 40
.Retry = 5
.Port = 5062
.Name = "Tutorial"
End With
Set m_pWebFunc = New IMSUtil.WebFuncs
End Sub
Private Sub Class_Terminate()
'
' Tidy up objects created.
'
Set m_pIMSReg = Nothing
Set m_pWebFunc = Nothing
End Sub
En si la duda es que se basan de un dll para la utileria IMSUtil, como lo haria yo en delphi???
|