DLL en NET para utilizar en VB6
Publicado por kryptic (40 intervenciones) el 15/10/2007 16:34:37
Que tal espero se encuentren todos bien.
Bueno mi problema es que necesito hacer una dll en NET que consume un Web Services
Imports System.Runtime.InteropServices
<Assembly: ClassInterface(ClassInterfaceType.None)>
Namespace Kryptic
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface ILuis
Function getEstados(ByVal pais as Integer) as String()
End Interface
Public Class Luis
Implements ILuis
Public Function getEstado(ByVal pais as Integer) as String() Implements ILuis.getEstados
Dim ws as Servidor.WebService = New Servidor.WebService
Dim respuesta as String()
Dim cont as Integer = 0
For Each as Servidor.CatCatalogosEntity In ws.getEstado(pais).respuestaMultiple
ReDim Preserve respuesta(cont)
respuesta(cont) = i.idGrupo.Value & "|" & i.texto2
cont += 1
Next
Return Respuesta
End Function
End Class
End Namespace
Despues esta dll la tengo que utilizar en VB6 para generar un RecordSet pero me muestra el siguiente error
Run-Time error '430':
Class does not support Automation or does not support expected interface
esto me lo marca en el siguiente codigo
Dim objLuis as Kryptic.Luis
Set objLuis = New Kryptic.Luis
Por su tiempo y su ayuda muchas gracias.
Bueno mi problema es que necesito hacer una dll en NET que consume un Web Services
Imports System.Runtime.InteropServices
<Assembly: ClassInterface(ClassInterfaceType.None)>
Namespace Kryptic
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface ILuis
Function getEstados(ByVal pais as Integer) as String()
End Interface
Public Class Luis
Implements ILuis
Public Function getEstado(ByVal pais as Integer) as String() Implements ILuis.getEstados
Dim ws as Servidor.WebService = New Servidor.WebService
Dim respuesta as String()
Dim cont as Integer = 0
For Each as Servidor.CatCatalogosEntity In ws.getEstado(pais).respuestaMultiple
ReDim Preserve respuesta(cont)
respuesta(cont) = i.idGrupo.Value & "|" & i.texto2
cont += 1
Next
Return Respuesta
End Function
End Class
End Namespace
Despues esta dll la tengo que utilizar en VB6 para generar un RecordSet pero me muestra el siguiente error
Run-Time error '430':
Class does not support Automation or does not support expected interface
esto me lo marca en el siguiente codigo
Dim objLuis as Kryptic.Luis
Set objLuis = New Kryptic.Luis
Por su tiempo y su ayuda muchas gracias.
Valora esta pregunta


0