Hallo,
also die Funktion wird vom Kunden aufgerufen...
und zwar so:
Delphi-Quellcode:
Attribute VB_Name = "Module1"
Public Zeit As Single
Public Startzeit As Single
Public Einheit As String
Public Echo As String
Public Druckrate As Single
Public GPC_SOLL As String
Public TPK_SOLL As String
Public ALM_CMD As String
Public Kanal As Integer
Public Result As Integer
Public Adresse As Byte
Public ADR As Byte
Public IST_TEMP_ALM As Single
Public IST_TEMP_TPK As Single
Public SOLL_TEMP_TPK As Single
Public IST_DRUCK_GPC As Single
Public ZUL_TEMP_DIFF As Single
'Public Zeit(20) As Single
Public W_Zeit As Single
Public Temp_Tol As Single
Public Seriennummer As String
Public Schritt As Integer
Option Explicit
Public Declare Sub Set_RS485ProtocolAdress Lib "USS01DLL.dll" (BVal a As Byte)
Public Declare Sub Get_RS485ProtocolAdress Lib "USS01DLL.dll" (ByRef a As Byte)
Public Declare Function Get_Seriennummer Lib "USS01DLL.dll" (ByRef a As String) As Integer
Public Declare Function Connect Lib "USS01DLL.dll" () As Integer
Public Declare Function DisConnect Lib "USS01DLL.dll" () As Integer
Wie kann man denn eine Aufrufkonvention festlegen?!