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

全局代码

 

Public Class PlcClient
Public Sub New()
End Sub

Public Function Bit_Reset(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Short
End Function

Public Function Bit_Set(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Short

End Function
Public Function Bit_Test(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, Bit As UShort) As Boolean
End Function

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
End Function

Public Function CmdRead(Handle As Integer, Memory As PlcMemory, ValType As DataType, Block As UShort, Address As UShort) As String
End Function

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
End Function

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
End Function

Public Function CmdReadString(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, PlcDataSize As UShort) As String

End Function
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
End Function

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
End Function

Public Function CmdWriteString(Handle As Integer, Memory As PlcMemory, Block As UShort, Address As UShort, PlcDataSize As UShort, Data As String) As Short

End Function
Public Function DataConvert(SourType As DataType, SourData As Object, DestType As DataType, ByRef DestData As Object, Optional StartByte As Short = -1) As Short

End Function
Public Function DeLink(Handle As Integer) As Short

End Function
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

End Function
Public Function GetDataBit(Data As Integer, Bit As Short) As Boolean

End Function
Public Function SetDataBit(Data As Integer, Bit As Short, SetVal As Boolean) As Integer
End Function

 

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

 

具体vb.net实例发上来测试。

 

1、你WinTcpS7.dll的版本不对，请去找一个 .net 2.0 或者 .net 3.5 的版本。

 

2、在foxtable直接引用dll，然后照抄调用的代码即可

1、你WinTcpS7.dll的版本不对，请去找一个 .net 2.0 或者 .net 3.5 的版本。

 

2、在foxtable直接引用dll，然后照抄调用的代码即可

 

1、如果你有源码，请打开dll的源码，重新编译；

 

2、不然，你抄厂家给你一个对应版本的dll使用。