Foxtable(狐表)用户栏目专家坐堂 → [求助]第三方DLL引用问题


  共有2602人关注过本帖树形打印复制链接

主题:[求助]第三方DLL引用问题

帅哥哟,离线,有人找我吗?
54292550
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:4201 威望:0 精华:0 注册:2011/8/19 10:07:00
[求助]第三方DLL引用问题  发帖心情 Post By:2018/7/29 12:29:00 [显示全部帖子]

VB.net 引用代码有示例。怎么转换到foxtable里面?

Namespace WinTcpS7
    Public Class PlcClient
        Public Sub New()

        Public Function Bit_Reset(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Short
        Public Function Bit_Set(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Short
        Public Function Bit_Test(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Boolean
        Public Function Bit_Test(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort, ByRef State As Boolean) As Short
        Public Function CmdRead(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort) As String
        Public Function CmdRead(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort, Count As UShort, ByRef Redata() As String) As Short
        Public Function CmdRead(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort, Count As UShort, ByRef Redata() As Object) As Short
        Public Function CmdReadString(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, PlcDataSize As UShort) As String
        Public Function CmdWrite(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort, Count As UShort, ByRef Data() As String) As Short
        Public Function CmdWrite(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort, Count As UShort, ByRef Data() As Object) As Short
        Public Function CmdWriteString(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, PlcDataSize As UShort, Data As String) As Short
        Public Function DataConvert(SourType As DataType, SourData As Object, DestType As DataType, ByRef DestData As Object, Optional StartByte As Short = -1) As Short
        Public Function DeLink(Handle As Integer) As Short
        Public Function EntLink(pcIP As String, pcPort As UShort, plcIP As String, plcPort As UShort, Rack As UShort, Slot As UShort, SN As String, ByRef Handle As Integer, Optional WaitTime As UShort = 2000) As Short
        Public Function GetDataBit(Data As Integer, Bit As Short) As Boolean
        Public Function SetDataBit(Data As Integer, Bit As Short, SetVal As Boolean) As Integer

        Public Enum DataType
            INT16 = 1
            UINT16 = 2
            DINT32 = 3
            HEX32 = 4
            REAL32 = 5
            BIN16 = 6
            CHAR8 = 7
            BYTE8 = 8
        End Enum

        Public Enum PlcMemory
            DI = 1
            DQ = 2
            MR = 3
            DR = 4
            AI = 5
            AQ = 6
        End Enum
    End Class
End Namespace



调用连接

        Dim re As Short
        Dim restr As String = ""
        re = PLC.EntLink(Trim(txtLocalIP.Text), CUShort(txtLocalPort.Text), Trim(txtRemoteIP.Text), CUShort(txtRemotePort.Text), 0, 2, "DEMO", Handle1)
[此贴子已经被作者于2018/7/29 12:32:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
54292550
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:4201 威望:0 精华:0 注册:2011/8/19 10:07:00
  发帖心情 Post By:2018/7/29 16:43:00 [显示全部帖子]

甜老师,,这个是不是一个托管的DLL?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:client vb2010.rar


 回到顶部
帅哥哟,离线,有人找我吗?
54292550
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:4201 威望:0 精华:0 注册:2011/8/19 10:07:00
  发帖心情 Post By:2018/7/29 17:38:00 [显示全部帖子]

直接引用dll。。。。
报错:
.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,窗口1,Button1,Click
详细错误信息:
未能加载文件或程序集“WinTcpS7, Version=3.4.0.2, Culture=neutral, PublicKeyToken=null”或它的某一个依赖项。生成此程序集的运行时比当前加载的运行时新,无法加载此程序集。

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
54292550
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:4201 威望:0 精华:0 注册:2011/8/19 10:07:00
  发帖心情 Post By:2018/7/29 18:07:00 [显示全部帖子]

甜老师,这个是从网上下载的。没看到有别的版本,有其它办法吗?

 回到顶部