vb和asp中调用c#类库的详细步骤了截图 转自（javeEYE）

使用c#语言在.net平台生成的dll是基于MSIL的二进制代码，通常情况下是无法被native的语言和程序调用的（例如vb，vc，delphi）。但是一般来说windows上native的程序都是可以直接使用com对象的。通过.net平台提供的一些工具，可以为其伪造一个com接口并注册到系统中。此时，可以在native的程序里，通过这个伪com接口来实现此.net的dll的调用。

1       使用C#建立.net的dll

1.1    建立项目

在.net中新建一个项目：TestCom。

1.2    实现c#类

在class1.cs文件中添加一个接口和一个类：

using System;

using System.Collections.Generic;

using System.Text;

using System.Runtime.InteropServices;

 

namespace TestCom

{

    [ComVisible(true)]

    public interface iClass1

    {

        string test();

    }

 

    [ComVisible(true)]

    [ClassInterface(ClassInterfaceType.AutoDual)]  

    public class Class1 : iClass1

    {

        public string test()

        {

            return "ok";

        }

 

    }

}

 

注意接口和类上的属性，对com可见和生成com类型。

1.3    添加强名

 选择开始菜单中Vistual Studio目录下的Vistual Studio Tools下的Vistual Studio 命令提示。使用sn -k c:/myKey.snk生成签名文件。

在项目上右键，点击属性，选择签名，选中为程序集签名，选择myKey.snk文件。

 

1.4    生成解决方案

在项目目录的/TestCom/bin/Debug中可以找到TestCom.dll。至此，c#生成的.net dll已经完成。

 

2       生成和注册类型库

 

2.1    生成tlb类型库

在Visual Studio命令提示符下，切换到此目录。

输入tlbexp TestCom.dll /out:TestCom.tlb，提示成功导出tlb类型库文件。

 

2.2    注册类型库

输入regasm TestCom.dll /tlb: TestCom.tlb /codebase，将类型库导入到注册表。提示成功注册了类型，说明操作成功，此时TestCom .dll可以作为一个com来使用。

 

2.3    添加dll到GAC

输入gacutil /i TestCom.dll，将此.net程序集添加到GAC。

 

3       vb调用测试

3.1    创建vb项目

在vb中新建一个标准exe项目。

在项目菜单选择引用，在弹出的引用com对象列表中找到TestCom，选上。

在窗体上拖放一个按钮，双击按钮，在按钮事件里输入代码：

Dim a As New TestCom.Class1

MsgBox a.test

 

 

3.2    运行程序

启动项目，点击按钮，弹出对话框ok，说明调用成功。

 

 

 

4       asp调用测试

4.1    创建asp文件

在iis的根目录下新建一个文本文件，改名为1.asp，输入以下内容：

 

<%

SET s = CreateObject("TestCom.Class1")

Response.Write(s.test())

%>

 

 

4.2    运行程序

在ie中访问此文件，页面输出ok，说明调用成功。

 

 

 

 

 

方案二: 没有试过

 

using System; using System.Net.Mail; using System.Text; namespace IMELS { public class SendMail { public SendMail() { } private string _to = string.Empty; /// <summary> /// 收件人地址，多个用“,”号隔开 /// </summary> public string To { set { _to = value; } } private string _from = string.Empty; /// <summary> /// 发件人地址 /// </summary> public string From { set { _from = value; } } private string _fromName = string.Empty; /// <summary> /// 发件人显示名称 /// </summary> public string FromName { set { _fromName = value; } } private string _cc = string.Empty; /// <summary> /// 抄送，多个用“,”号隔开 /// </summary> public string CC { set { _cc = value; } } private string _bcc = string.Empty; /// <summary> /// 密抄，多个用“,”号隔开 /// </summary> public string BCC { set { _bcc = value; } } private string _charset = "GB2312"; /// <summary> /// 邮件正文的编码 /// </summary> public string Charset { set { _charset = value; } } private string _contentType = "html"; /// <summary> /// 邮件格式(html or txt) /// </summary> public string ContentType { set { _contentType = value; } } private string _subject = string.Empty; /// <summary> /// 邮件标题 /// </summary> public string Subject { set { _subject = value; } } private string _body = string.Empty; /// <summary> /// 邮件内容 /// </summary> public string Body { set { _body = value; } } private string _smtp; /// <summary> /// SMTP服务器地址 /// </summary> public string Smtp { set { _smtp = value; } } private string _username; /// <summary> /// SMTP用户名 /// </summary> public string Username { set { _username = value; } } /// <summary> /// SMTP密码 /// </summary> private string _password; public string Password { set { _password = value; } } private int _port = 25; /// <summary> /// SMTP商品 /// </summary> public int Port { set { _port = value; } } /// <summary> /// 发送 /// </summary> public void Send() { MailAddress from = new MailAddress(_from, _fromName); MailMessage message = new MailMessage(); message.From = from; string[] toadd = _to.Split(','); foreach (string _add in toadd) { try { message.To.Add(new MailAddress(_add)); } catch(Exception e) { _error += "To Address Error : " + e.Message + "(" + _add + ");"; } } if (_cc != string.Empty) { string[] ccadd = _cc.Split(','); foreach (string _add in ccadd) { try { message.CC.Add(new MailAddress(_add)); } catch (Exception e) { _error += "CC Address Error : " + e.Message + "(" + _add + ");"; } } } if (_bcc != string.Empty) { string[] bccadd = _bcc.Split(','); foreach (string _add in bccadd) { try { message.Bcc.Add(new MailAddress(_add)); } catch (Exception e) { _error += "BCC Address Error : " + e.Message + "(" + _add + ");"; } } } message.Sender = from; message.Subject = _subject; message.Body = _body; if (_contentType == "html" || _contentType == string.Empty) { message.IsBodyHtml = true; } else { message.IsBodyHtml = false; } message.BodyEncoding = Encoding.GetEncoding(_charset); message.DeliveryNotificationOptions = DeliveryNotificationOptions.None; SmtpClient __smtp = new SmtpClient(); __smtp.Host = _smtp; __smtp.Port = _port; __smtp.UseDefaultCredentials = false; __smtp.Credentials = new System.Net.NetworkCredential(_username, _password); __smtp.DeliveryMethod = SmtpDeliveryMethod.Network; try { __smtp.Send(message); } catch (SmtpException e) { _error += "SMTP Error:" + e.Message + ";"; } } private string _error = string.Empty; /// <summary> /// 返回错误信息 /// </summary> public string Error { get { return _error; } } /// <summary> /// 清空错误信息 /// </summary> public void ClearErr() { _error = string.Empty; } } }

 

说一下具体实现过程：

1、首先新建一个类库项目；打开项目属性页，在“应用程序”标签设置程序集名称为“IMELS”（当然，这个你可以设置为你喜欢的名字），输出类型为类库，如图：

点击“程序集信息”，勾选“使程序集COM可见”，如图：

2、“签名”标签，勾选“为程序签名”，如图：

然后“在选择强名称密钥文件”下拉列表中选择密钥文件，如果没有密钥文件，就选择“新建”，这里我选择新建，如图：

在“密钥文件名称”栏里输入密钥的名称，你可以选择为密钥添加密码保护它，我这里没有使用密码。

然后为项目添加一个类“SendMail ”，代码就如上了。

3、代码完成后，生成DLL文件，把DLL放到D：盘或别的什么盘，不过最好不要放在系统盘，然后就是注册了，注册C#写的DLL是不能用regsvr32的，要用regasm，格式为：regasm /codebase d:/DLL/IMELS.dll。

这样DLL的编写和注册都已完成了，下面就是应用了，asp中调用方法如下：

 

Vb代码

1. <%   
2. dim send   
3. set send = Server.CreateObject("IMELS.SendMail")   
4.   
5. send.From = "[e-mail]"  
6. send.FromName = "无问"  
7. send.Smtp = "smtp.163.com"  
8. send.Username = "用户名"  
9. send.Password = "密码"  
10. send.Subject = "asp调用C#编写的DLL发送邮件测试标题"  
11. send.ContentType = "html"  
12. send.Charset = "gb2312"  
13. send.Body = "asp调用C#编写的DLL发送邮件测试正文"  
14. send.To = "[e-mail]"  
15. send.CC = "抄送地址"  
16. send.BCC = "密抄地址"  
17. send.Send()   
18. Response.Write(send.Error)   
19. %>  

<%dim sendset send = Server.CreateObject("IMELS.SendMail")send.From = "[e-mail]"send.FromName = "无问"send.Smtp = "smtp.163.com"send.Username = "用户名"send.Password = "密码"send.Subject = "asp调用C#编写的DLL发送邮件测试标题"send.ContentType = "html"send.Charset = "gb2312"send.Body = "asp调用C#编写的DLL发送邮件测试正文"send.To = "[e-mail]"send.CC = "抄送地址"send.BCC = "密抄地址"send.Send()Response.Write(send.Error)%>

 

好了，大功告成！！