Crear Dll en .net y utilizarla en vb6

[Chirola08]

Hola buenos días, quería consultarle a ver si alguien me puede ayudar. Tengo hecha una dll en .net y la quiero llamar desde VB6.
Tengo este ejemplo:
Código #C.NET
namespace net2COMCS
{
public class SaludoCS
{
public string Saludar()
{
return "Hola desde .NET (#C)";
}
}
}
Código VB6

Código VB:

Private sub cmdSaludoCS_Click()
    dim oCS As net2COM_1CS.SaludocS
    set oCS = New net2COM_1CS.SaludoCS
    Me.Text1.Text = oCS.Saludar
end sub
 

Yo implemento lo mismo, nada más que la funcion mia en .net se llama enviar correo y le paso unos parametros, y en vb6 en vez de un textbox la recibo en una variable de tipo string.

Desde VB6 llamo de esta forma a la funcion de .net, esta claro que ya agregue la referencia de .net en vb6.

Código VB:

Dim mailok As String
    Dim MailCS As correossl.Correo
    Set MailCS = New correossl.Correo
    mailok = MailCS.EnviarCorreoGmail(SSLTo, SSLFrom, "ejemplo", SSLSubject, SSLBody, "", SSLPassword, SSLPort)
 

Alguno me puede ayudar, que me puede estar faltando, el error que me da el visual es "ActiveX component can't create object" en la linea donde se hace el set.
Gracias.
Saludos.

[Drako_18]

Buenas compañero,

A simple vista, lo único que puedo decirte es que el espacio de nombre de creación es "net2COMCS" y el que estás usando es "net2COM_1CS"...
Eso en .Net petaría fijo... Imagino que en VB6.0 igual...


Un saludo!!!

[Chirola08]

Lo que vos me decís es correcto, lo que yo digo es supongamos que yo tengo la dll en .NET:

Código C#:

using System.Linq;
using System.Text;
using System.Net;
using System.Net.Mail;
using System.Net.Mime;
using System.Runtime.InteropServices;
 
[assembly: ClassInterface(ClassInterfaceType.AutoDual)]
 
namespace correossl
{
    [ProgId("correossl.correoSsl")]
    public class CorreoSsl
    {
        public interface ICorreoSSL {
            string EnviarCorreoGmail(string destinatario, string remitente, string nombre, string asunto, string cuerpo, string attach, string password, int puerto);
        }
 
        public string EnviarCorreoGmail(string destinatario, string remitente, string nombre, string asunto, string cuerpo, string attach, string password, int puerto)
        {
            try
            {
                
                System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage();
                msg.To.Add(destinatario);
                msg.From = new MailAddress(remitente, nombre, System.Text.Encoding.UTF8);
                msg.Subject = asunto;
                msg.SubjectEncoding = System.Text.Encoding.UTF8;
                msg.Body = cuerpo;
                msg.Attachments.Add(new Attachment(attach));
                msg.BodyEncoding = System.Text.Encoding.UTF8;
                msg.IsBodyHtml = false;
                SmtpClient client = new SmtpClient();
                client.Credentials = new System.Net.NetworkCredential(remitente, password);
                client.Port = 587;
                client.Host = "smtp.gmail.com";
                client.EnableSsl = true;
                client.Send(msg);
                return "Enviado";
 
            }
            catch (System.Net.Mail.SmtpException ex)
            {
                return ex.Message;
            }
        }
    }
}
 

Mi problema es que cuando la llamo de visual basic 6, de esta forma:

Código VB:

Dim mailok As String
    Dim MailCS As correossl.Correo
    Set MailCS = New correossl.Correo
    mailok = MailCS.EnviarCorreoGmail(SSLTo, SSLFrom, "ejemplo", SSLSubject, SSLBody, "", SSLPassword, SSLPort)
 

Y el error que me esta dando es: "ActiveX component can't create object" en la linea donde hago el SET...
Gracias. Espero que se entienda.
Saludos.

[Drako_18]

Bueno, aunque yo no entiendo de VB6... Te hago una serie de preguntas/sugerencias a ver si suena la campana....

Has comprobado... Dependencias de la DDL que estás agregando?
Necesitarías registrarla en el GAC?

Si el ejemplo que has puesto, es el real, la llamada estaría mal igualmente... Debería ser:
Dim MailCS As correossl.CorreoSsl
Set MailCS = New correossl.CorreoSsl

Esto sería un ensamblador distinto al que tienes la clase de correossl? Si es así... La de correossl tiene dependencia de ella y la has agregado al proyecto donde usas correossl?
[assembly: ClassInterface(ClassInterfaceType.AutoDual)]

Espero que alguna de estas "ideas" te haya sido de utilidad :)
Sino... Cuando encuentres la solución posteala!!!


Un saludo compañero!

[wwwmaster]

Ya registraste tu DLL con el comando MSDOS REGSVR32??

[Chirola08]

Si la registre de la forma que se indica en la página: [URL="http://easytipsprogramacion.blogspot.com.ar/2009/11/crear-un-ensamblado-en-c-net-y-usarlo.html"]http://easytipsprogramacion.blogspot.com.ar/2009/11/crear-un-ensamblado-en-c-net-y-usarlo.html[/URL].
Me equivoque en el post anterior, en el VB llamo de la siguiente forma a la DLL:

Código VB:

Dim mailok As String
    Dim MailCS As correossl.CorreoSsl
    Set MailCS = New correossl.CorreoSsl
    mailok = MailCS.EnviarCorreoGmail(SSLTo, SSLFrom, "ejemplo", SSLSubject, SSLBody, "", SSLPassword, SSLPort)
 

Y el error me lo da en la linea del Set.
Si alguien puede ayudarme se los agradezco.
Saludos.

[Drako_18]

No se me ocurre nada más compañero, si encuentras la solución publicala para que el siguiente ya tenga la respuesta...


Un saludo!

[wwwmaster]

Intenta registrarla con el comando REGSVR32, tambien intenta colocando la DLL dentro del directorio de tu ejecutable

[Malenko]

Más bien parece que ha de usar regasm, supongo que porque no se trata de una DLL "normal" sino de una que necesita del runtime de .net