abap调vb写的dll实现电子天平的读数（带控件版）

废话不多说，直接上。

鉴于abap调研的dll文件需要在wins注册，自己尝试过delphi和C#感觉不是很好，最后毅然选择了VB来写

因为需要用到MScomm控件，所以对于将要写的dll需要带form的，貌似这样才能将控件加到dll中来。

步骤：

1，新建dll程序，添加一个窗体

2，在from_load中初始化com口参数

1 2 3 4 5 6 7 8

With MSComm1         .CommPort = 1  '设置Com1为通信端口         .Settings = "1200,n,7,1"  '设置通信端口参数 9600赫兹、偶校验、7个数据位、1个停止位.（这里需要进一步说明的是：.Setting=”BBBB,P,D,S”。         .InBufferSize = 16  '设置缓冲区接收数据为40字         .InputLen = 1  '设置Input一次从接收缓冲读取字节数为1         .RThreshold = 1  '设置接收一个字节就产生OnComm事件         .PortOpen = True  End With

3，写对应的端口数据接受（因为之前用端口测试工具测试过传出的数据流，所以下面代码只是针对特定数据流的截取）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

On Error Resume Next If MSComm1.CommEvent = comEvReceive Then   If MSComm1.InBufferCount > 0 Then    Rx_buff = MSComm1.Input    If Rx_buff = "N" Then start = "S"    Constop = False    For i = 0 To UBound(Rx_buff)    If start = "S" Then    send = send & Rx_buff    If Len(send) > 17 Then    Text1.Text = CDbl(Mid(send, 8, 10))    start = "E"    MSComm1.PortOpen = False    End If    End If    Next i   End If End If

　4，在dll的class1中写函数啦

1 2 3 4 5 6 7 8 9

Public Function show() Form1.str = "s" Form1.Caption = "连接状态" Form1.show vbModal End Function   Public Function sget() As String sget = Form1.str & Form1.send End Function

先调出窗口，再获取端口值

因为能力有限，在测试的时候无法将窗口隐藏而不影响到form_load的执行，所以，才有这个必须出现的窗口

好了，至此，一个带from的调用Mscomm控件的dll文件就写好了，

5，将dll文件保存到system32/syswow64下

运行cmd注册dll文件

6，abap调用

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

REPORT ZLYTEST_DLLTEST001. include ole2incl. data win32 type ole2_object. DATA SUM TYPE I. data label type string. create object win32 'lytest10.class1'. *create object win32 'TESTDLL'. call METHOD of win32 'show'. call method of win32 'sget' = label.     *0 Successful processing of the method meth. *1 Communication Error to SAP GUI. *2 Error when calling method meth. *3 Error when setting a property. *4 Error when reading a property. *     write label.

　　至此，就将数据带回abap来了，然后怎么操作这个数，就看需求啦