PDA

Ver la Versión Completa : Carga DLL y Visual Basic


torito
21-05-2004, 18:10:03
otra vez yo dando lata, pues resulta que en una de mis mudanzas de Visual Basic(VB) a Delphi me encontre con algo raro, en VB se tiene un codigo mediante el cual los objetos se conectan a una dll y asi se realizan sus operaciones, mi problema es que no tengo ni la minima idea de como llamar ese dll y aprovechar sus utilerias en Delphi. ¿alguien pudiera auxiliarme??
Muchas Gracias

delphi.com.ar
21-05-2004, 18:18:40
La verdad que no fuiste muy claro en tu explicación. Pero si tienes el código en VB de como se utiliza la DLL, fácilmente puedes migrarlo a Delphi.

Saludos!

torito
21-05-2004, 18:33:02
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???

delphi.com.ar
21-05-2004, 18:38:47
IMSUtil es una librería ActiveX (por lo que he visto "MapObjects IMS"), seguramente está seleccionado en las referencias del proyecto. Puedes hacerlo de varias formas, una de ellas es importando esa librería desde el menú "Project \ Import Type Library"

Saludos!

torito
21-05-2004, 19:32:31
Gracias voy a hacer la prueba, después te comento