VC2015编写的DLL给其他语言调用

(1)用C++builder6调用DLL

用VC2015创建包含MFC库的DLL,如果是给C++Builder6使用，步骤如下:
1、工程属性==》C++==》高级==》调用约定  选项为：__stdcall (/Gd)

2、VC++2015中的函数声明如下：
   extern "C" __declspec(dllexport)  VOID __stdcall CreateMeter(const char* szTypeName);

3.VC++2015的def文件,EXPORTS可以不用写，因为C++Builder6不用到这个.lib文件
  不过,我发现要导出函数,需要在def字声明,否则在其他语言中找不到函数,提示错误.

4.在C++Builder6中,需要重新导出DLL的引导库.lib，方法如下：
  implib my.lib my.dll

  在BCB6工程中引入my.lib，同时添加函数声明，也就是VC2015DLL中的函数声明(与第2步相同)

(2)用Delphi7调用

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

unit  ScaleWeight_dll; interface         procedure   CreateMeter(xktype: PChar ;         No: integer ;         Comm: integer ;         baud: integer ;         parity: Char ;         databit: integer ;         stopbit: integer         );stdcall;external  'YuComm.dll' ;         //获取重量字符串         function   GetWeight( buff : pchar ;index : integer  =  1 ): PChar ;stdcall;         external  'YuComm.dll' ;         //写串口         procedure  WritePort( buff : array  of  byte ;index : integer  =  0 );stdcall;         external  'YuComm.dll' ;         function  ClosePort(index : integer = 1 ): integer ;stdcall;external  'YuComm.dll' ;         //name 'ClosePort1';           //辅助函数         //缓取缓冲区数据量         function  GetBuffLength(index : integer  = 0 ): integer ;stdcall;         external  'YuComm.dll' ;         //或取通信状态；true串口打开但通信中断，false通信正常         function  GetStatus(index : integer  = 0 ): boolean ;stdcall;external  'YuComm.dll' ;         //清除缓冲区数据         //procedure Clear(index :integer =0);stdcall;external 'YuComm.dll';         //获取原始数据         function   GetSourceData( buff :pbyte;index : integer  =  0 ): integer ;stdcall;         external  'YuComm.dll' ;          implementation   end .

将上面文件保存为扩展名为pas的文件,添加到delphi7工程中.

(3)在VB6中调用DLL

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Private  Declare  Function  CreateMeter  Lib  "YuComm" ( ByVal  name  As  String , _ ByVal  No  As  Integer , _ ByVal  port  As  Integer , _ ByVal  baud  As  Integer , _ ByVal  parity  As  Integer , _ ByVal  databit  As  Integer , _ ByVal  stopbit  As  Integer )  As  Boolean '需要添加一个返回值声明,即使不需要 Private  Declare  Function  GetWeight  Lib  "YuComm" ( ByVal  buff  As  String ,  Optional  ByVal  index  As  Integer  = 1)  As  Long Private  Declare  Function  GetStatus  Lib  "YuComm" ( Optional  ByVal  index  As  Integer  = 1)  As  Integer Private  Declare  Function  ClosePort  Lib  "YuComm" ( Optional  ByVal  index  As  Integer  = 1)  As  Boolean      Private  Sub  Command1_Click()    Dim  name  As  String    Dim  port  As  Integer    Dim  baud  As  Integer        name = Combo1.Text    port =  CInt (Text1.Text)    baud =  CInt (Text2.Text)    CreateMeter name, 1, port, baud, 110, 8, 1     End  Sub   Private  Sub  Command2_Click()    ClosePort (1) End  Sub   Private  Sub  Command3_Click()   End  Sub   Private  Sub  Timer1_Timer()     Dim  re  As  Boolean          re = GetStatus(1)     If  re =  True  Then       Label2.Caption =  "串口打开成功"     Else       Label2.Caption =  "串口打不成功"     End  If          Dim  buff1   As  String     buff1 = Space(100)     Call  GetWeight(buff1, 1)     Label1.Caption = buff1      End  Sub

在XP平台下,用VB6调用,请用release方式编译,否则VB6会提示找不到相应的DLL文件,即所这个文件就在运行目录下

在VB中调用,声明函数时应加上返回值,即使DLL中这个函数没有返回值.返回值的类型可任意

(4)在C#中调用DLL

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106

public  partial  class  Form1 : Form      {          //========================================================================          //1、创建仪表，并打开仪          [DllImport( "YuComm.dll" )]          public  static  extern  bool  CreateMeter( string  xktype, int  no, int  comm,          int  baud, int  parity, int  databit, int  stopbit);          //2、读取仪表重量，多台仪表时，参数为索引          [DllImport( "YuComm.dll" )]          public  static  extern  string  GetWeight(StringBuilder weight,  int  index = 1);          //写串口          [DllImport( "YuComm.dll" )]          public  static  extern  void  Write( ref  byte  buff, int  index = 1);          //3、关闭串口          [DllImport( "YuComm.dll" )]          public  static  extern  void  ClosePort(  int  index=1);                    //ScaleWeight辅助功能函数：获取缓冲区数据个数          [DllImport( "YuComm.dll" )]          public  static  extern  int  GetBuffLength( int  index = 1);          //获取通信状态：false通信正常 ，true通信中断          [DllImport( "YuComm.dll" )]          public  static  extern  bool  GetStatus( int  index=1);          //辅助功能函数：读取原始数据流          [DllImport( "YuComm.dll" )]          public  static  extern  int  GetSourceData( ref  byte  buff,  int  index = 1);          //辅助功能函数：清除缓冲区          //[DllImport("YuComm.dll")]          //public static extern void Clear(int index=1);         //===================================================================          public  Form1()          {              InitializeComponent();          }            private  void  button1_Click( object  sender, EventArgs e)          {             xktype  = comboBox1.Text;             szComm    = textBox1.Text;             szBaud = textBox2.Text;               bool  re = CreateMeter(xktype, 1, Convert.ToInt32(szComm),              Convert.ToInt32(szBaud),  'n' , 8, 1);             if  (re)             {                 label1.Text =  "串口状态：打开成功" ;             }             else             {                 label1.Text =  "串口状态：打开不成功" ;             }          }            private  void  button2_Click( object  sender, EventArgs e)          {              ClosePort(1);              label1.Text =  "串口状态：串口关闭" ;          }            private  void  timer1_Tick( object  sender, EventArgs e)          {              StringBuilder buff =  new  StringBuilder(255);               GetWeight(buff,1);              label2.Text = buff.ToString();              buff =  null ; //释放                label5.Text =  "缓冲区中数据量：" + GetBuffLength().ToString();                bool  re = GetStatus();              if  (re)                  label4.Text =  "通信状态：通信数据流正常" ;              else                  label4.Text =  "通信状态：通信数据流中断" ;                byte [] data =  new  byte [1024];              int  c = GetSourceData( ref  data[0],1);              richTextBox1.Clear();              for  ( int  i = 0; i < c; i++)              {                  richTextBox1.Text += data[i].ToString( "X2" ) + " " ;              }              data =  null ;            }            private  void  button3_Click( object  sender, EventArgs e)          {              byte [] buff =  new  byte [1024];              string  a =  "hello" ;              BitConverter.ToString(buff);              Write( ref  buff[0], 1);              buff =  null ;          }            private  void  button4_Click( object  sender, EventArgs e)          {              timer1.Enabled = !timer1.Enabled;              if  (timer1.Enabled)                  button4.Text =  "暂停" ;              else                  button4.Text =  "开始" ;          }        }

在XP上运行,请使用release方式编译发布,否则调用DLL中的函数时会报错!

本文转自Chinayu201451CTO博客，原文链接：http://blog.51cto.com/9233403/2063081 ，如需转载请自行联系原作者