Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Carga DLL y Visual Basic (https://www.clubdelphi.com/foros/showthread.php?t=10532)

torito 21-05-2004 18:10:03

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

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


La franja horaria es GMT +2. Ahora son las 06:09:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi