Easy_COM DLL

[Ewald Renken]

Hallo,und Danke für das Antworten.Habe mal alles zusammen gesucht und es zusammengepackt. PRF Datei ,DLL mit Beschreibung (darf verwendet werden) PRF ist nur ein Gerüst, komme leider nicht weiter. Vielleicht kann mir ja jemand weiter helfen...
Anhang ist dabei..... Werde morgen die Beschreibung nachreichen.
Bie denne denn..
Ewald

[Frabbing]

Hier sind schonmal Definitionen der gefundenen Funktionen:

'############################################
'generiert von Include-Generator für XProfan
'############################################
'Original-PB-Code von Stefan Möbius
'bearbeitet für XProfan von Andreas Miethe
'############################################
'24.02.2009
'############################################

DEF Close_ComPort(0) ! "EASY_COM.dll","Close_ComPort"
DEF Close_EthernetPort(2) ! "EASY_COM.dll","Close_EthernetPort"
DEF GetCurrent_Baudrate(1) ! "EASY_COM.dll","GetCurrent_Baudrate"
DEF GetLastSystemError(0) ! "EASY_COM.dll","GetLastSystemError"
DEF Lock_Device(2) ! "EASY_COM.dll","Lock_Device"
DEF MC_CloseAll(0) ! "EASY_COM.dll","MC_CloseAll"
DEF MC_Close_ComPort(1) ! "EASY_COM.dll","MC_Close_ComPort"
DEF MC_Close_EthernetPort(1) ! "EASY_COM.dll","MC_Close_EthernetPort"
DEF MC_GetCurrent_Baudrate(2) ! "EASY_COM.dll","MC_GetCurrent_Baudrate"
DEF MC_Lock_Device(3) ! "EASY_COM.dll","MC_Lock_Device"
DEF MC_Open_ComPort(3) ! "EASY_COM.dll","MC_Open_ComPort"
DEF MC_Open_EthernetPort(5) ! "EASY_COM.dll","MC_Open_EthernetPort"
DEF MC_Read_Channel_7DayTimeSwitch(10) ! "EASY_COM.dll","MC_Read_Channel_7DayTimeSwitch"
DEF MC_Read_Channel_YearTimeSwitch(10) ! "EASY_COM.dll","MC_Read_Channel_YearTimeSwitch"
DEF MC_Read_Clock(7) ! "EASY_COM.dll","MC_Read_Clock"
DEF MC_Read_Object_Value(6) ! "EASY_COM.dll","MC_Read_Object_Value"
DEF MC_Start_Program(3) ! "EASY_COM.dll","MC_Start_Program"
DEF MC_Stop_Program(3) ! "EASY_COM.dll","MC_Stop_Program"
DEF MC_Unlock_Device(4) ! "EASY_COM.dll","MC_Unlock_Device"
DEF MC_Write_Channel_7DayTimeSwitch(10) ! "EASY_COM.dll","MC_Write_Channel_7DayTimeSwitch"
DEF MC_Write_Channel_YearTimeSwitch(10) ! "EASY_COM.dll","MC_Write_Channel_YearTimeSwitch"
DEF MC_Write_Clock(7) ! "EASY_COM.dll","MC_Write_Clock"
DEF MC_Write_Object_Value(6) ! "EASY_COM.dll","MC_Write_Object_Value"
DEF Open_ComPort(2) ! "EASY_COM.dll","Open_ComPort"
DEF Open_EthernetPort(4) ! "EASY_COM.dll","Open_EthernetPort"
DEF Read_Channel_7DayTimeSwitch(9) ! "EASY_COM.dll","Read_Channel_7DayTimeSwitch"
DEF Read_Channel_YearTimeSwitch(9) ! "EASY_COM.dll","Read_Channel_YearTimeSwitch"
DEF Read_Clock(6) ! "EASY_COM.dll","Read_Clock"
DEF Read_Object_Value(4) ! "EASY_COM.dll","Read_Object_Value"
DEF Start_Program(2) ! "EASY_COM.dll","Start_Program"
DEF Stop_Program(2) ! "EASY_COM.dll","Stop_Program"
DEF Unlock_Device(3) ! "EASY_COM.dll","Unlock_Device"
DEF Write_Channel_7DayTimeSwitch(9) ! "EASY_COM.dll","Write_Channel_7DayTimeSwitch"
DEF Write_Channel_YearTimeSwitch(9) ! "EASY_COM.dll","Write_Channel_YearTimeSwitch"
DEF Write_Clock(6) ! "EASY_COM.dll","Write_Clock"
DEF Write_Object_Value(5) ! "EASY_COM.dll","Write_Object_Value"

[Frabbing]

Und als PH-Datei:

'############################################
'generiert von Include-Generator für XProfan
'############################################
'Original-PB-Code von Mischa Brandt
'bearbeitet für XProfan von Andreas Miethe
'############################################
'24.02.2009
'############################################

Close_ComPort(= External("EASY_COM.dll","Close_ComPort",;
Close_EthernetPort(= External("EASY_COM.dll","Close_EthernetPort",;
GetCurrent_Baudrate(= External("EASY_COM.dll","GetCurrent_Baudrate",;
GetLastSystemError(= External("EASY_COM.dll","GetLastSystemError",;
Lock_Device(= External("EASY_COM.dll","Lock_Device",;
MC_CloseAll(= External("EASY_COM.dll","MC_CloseAll",;
MC_Close_ComPort(= External("EASY_COM.dll","MC_Close_ComPort",;
MC_Close_EthernetPort(= External("EASY_COM.dll","MC_Close_EthernetPort",;
MC_GetCurrent_Baudrate(= External("EASY_COM.dll","MC_GetCurrent_Baudrate",;
MC_Lock_Device(= External("EASY_COM.dll","MC_Lock_Device",;
MC_Open_ComPort(= External("EASY_COM.dll","MC_Open_ComPort",;
MC_Open_EthernetPort(= External("EASY_COM.dll","MC_Open_EthernetPort",;
MC_Read_Channel_7DayTimeSwitch(= External("EASY_COM.dll","MC_Read_Channel_7DayTimeSwitch",;
MC_Read_Channel_YearTimeSwitch(= External("EASY_COM.dll","MC_Read_Channel_YearTimeSwitch",;
MC_Read_Clock(= External("EASY_COM.dll","MC_Read_Clock",;
MC_Read_Object_Value(= External("EASY_COM.dll","MC_Read_Object_Value",;
MC_Start_Program(= External("EASY_COM.dll","MC_Start_Program",;
MC_Stop_Program(= External("EASY_COM.dll","MC_Stop_Program",;
MC_Unlock_Device(= External("EASY_COM.dll","MC_Unlock_Device",;
MC_Write_Channel_7DayTimeSwitch(= External("EASY_COM.dll","MC_Write_Channel_7DayTimeSwitch",;
MC_Write_Channel_YearTimeSwitch(= External("EASY_COM.dll","MC_Write_Channel_YearTimeSwitch",;
MC_Write_Clock(= External("EASY_COM.dll","MC_Write_Clock",;
MC_Write_Object_Value(= External("EASY_COM.dll","MC_Write_Object_Value",;
Open_ComPort(= External("EASY_COM.dll","Open_ComPort",;
Open_EthernetPort(= External("EASY_COM.dll","Open_EthernetPort",;
Read_Channel_7DayTimeSwitch(= External("EASY_COM.dll","Read_Channel_7DayTimeSwitch",;
Read_Channel_YearTimeSwitch(= External("EASY_COM.dll","Read_Channel_YearTimeSwitch",;
Read_Clock(= External("EASY_COM.dll","Read_Clock",;
Read_Object_Value(= External("EASY_COM.dll","Read_Object_Value",;
Start_Program(= External("EASY_COM.dll","Start_Program",;
Stop_Program(= External("EASY_COM.dll","Stop_Program",;
Unlock_Device(= External("EASY_COM.dll","Unlock_Device",;
Write_Channel_7DayTimeSwitch(= External("EASY_COM.dll","Write_Channel_7DayTimeSwitch",;
Write_Channel_YearTimeSwitch(= External("EASY_COM.dll","Write_Channel_YearTimeSwitch",;
Write_Clock(= External("EASY_COM.dll","Write_Clock",;
Write_Object_Value(= External("EASY_COM.dll","Write_Object_Value",;

'############################################
'36 Funktionen von EASY_COM.dll generiert
'############################################

[Frabbing]

Habe in deinem Source sowas gefunden:

f& = "OCP"

Das ist natürlich fehlerhaft, f& erwartet keinen String, sondern eine Zahl.
Sowas empfinde ich auch als seltsam:

@ImportFunc(easydll&,"Start_Program","SAP$")

Du solltest nur Buchstaben und Zahlen verwenden, wenn du schon eigene Funktionsnamen wählst. Ich könnte mir vorstellen, dass XProfan ansonsten durcheinander kommt und den Namen für einen String hält.

Die Dll-Funktionen werden so aufgerufen, wie in der Doc beschrieben. Beispiel:

rueckgabe&=Open_ComPort(9600)

Dein Programm musst du natürlich selber schreiben, es weiss ja keiner, was du genau vorhast.
Bei Problemen oder Fehlermeldungen kannst du natürlich jederzeit nachfragen, wenn du selber an der Stelle nicht weiterkommst. Generell sehe ich so kein Problem darin, die Dll mit XProfan zu benutzen.