FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Carga DLL y Visual Basic
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 |
#2
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#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??? |
#4
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
Gracias voy a hacer la prueba, después te comento
|
|
|
|