Gracias, José Ramón.
Me estoy temiendo que es exactamente el mismo caso. Haré pruebas como dices
y ya comentaré el resultado.
Saludos
Jose Alfonso Suarez Moreno
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=
4700e051@ozsrv2.ozlan.local...]
4700e051@ozsrv2.ozlan.local...[/email]
> José Alfonso:
>
> Yo tengo un archivo que es una DLL que compré como si fuera un ActiveX
> pero que no tiene extensión OCX sino como he dicho antes es una DLL, le
> hice la misma pregunta a José F. Gimenez y después de enviarle el fichero
> me dijo que no era exactamente tal activeX en realidad y que podía abrirlo
> con ToleAuto y llamar a cada instrucción dentro del fichero haciendo una
> variable tipo DATA así lo hice y la cosa funcionó, no digo que tu caso sea
> el mismo pero por si acaso hay te dejo lo que yo hice.
>
> Cree dos variables Data:
>
> DATA oLic
> DATA oPos
>
> Luego en el FormInitialize
>
> ** Instanciamos Licencia
> ::oLic := TOleAuto():New("GPSToolsXP.License")
> ::oLic:LicenseKey := "********************"
>
> ** El nombre entre comillas de la primera linea es el nombre de la DLL en
> este caso "GPSToolsXP" y después del punto la llamada a la función dentro
> de la DLL a la cual en la segunda linea le paso con la instrucción que
> corresponde el número de licencia.
>
> Posteriormente si quiero utilizar otras funciones que están dentro de la
> DLL hago lo mismo utilizando la otra DATA
>
> ** Instanciamos Posicion
> ::oPos := TOleAuto():New("GpsToolsXP.Position")
>
> luego cuando quiero pasarle a oPos otra instrucción para que me devuelva
> su valor haré así:
>
> ** Datos del sistema del 1
> ::oPos:Datum := Val(SubStr(::oDBCBSistema1:GetText(),1,2))
> *
> ** Datos para la coordenada del 1
> ::oPos:SetLatitudeDMS(::oLa_Grados:Value,::oLa_Minutos:Value , ;
> ::oLa_Segundos:Value,SubStr(::oLa_Hemisf:GetText(),1,1))
> ::oPos:SetLongitudeDMS(::oLo_Grados:Value,::oLo_Minutos:Valu e,;
> ::oLo_Segundos:Value,SubStr(::oLo_Hemisf:GetText(),1,1))
> *
> ******* Resultados *************
> *
> ** Datos del sistema del 2
> ::oPos:Grid := Val(SubStr(::oDBCBSistema2:GetText(),1,2))
> *
>
> ::oCoordX:Value := ::oPos:Easting
> ::oCoordY:Value := ::oPos:Northing
> ::oCBZona2:nIndex := Val(SubStr(::oPos:Zone,1,2))
>
> Esto lo utilizo para la conversión de coordenadas Geográficas a UTM y
> viceversa.
>
> Quizás todo esto no te sirva de nada pero por si acaso ya te digo que me
> lo vendieron como un archivo ActiveX pero tenía extensión DLL y por
> supuesto hay que registrarlo como lo has hecho tú.
>
>
>
> José Alfonso Suárez Moreno escribió:
>> Hola,
>>
>> Me envían una DLL que teoricamente incluye un ActiveX.
>>
>> Registro la DLL con regsvr32, pero no me sale en la lista de controles de
>> Xailer.
>>
>> ¿Alguna idea de por que pasa esto?
>>
>> Saludos
>>
>> Jose A. Suárez