![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
||||
|
||||
|
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??? |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|