@himitsu ja das mit dem nil, hab ich schon verbessert, aber trotzdem danke. Hier mal meine Deklaration für die Proceduren/ Funktionen:
Delphi-Quellcode:
type TOpenDevice = function(CardAddress: Longint): Longint; stdcall;
type TCloseDevice = procedure; stdcall;
type TClearAllAnalog = procedure; stdcall;
type TClearAllDigital = procedure; stdcall;
type TClearAnalogChannel = procedure(Channel: Longint); stdcall;
type TClearDigitalChannel = procedure(Channel: Longint); stdcall;
type TOutputAnalogChannel = procedure(Channel, Daten: Longint); stdcall;
type TSetDigitalChannel = procedure(Channel: Longint); stdcall;
type TReadDigitalChannel = function(Channel: Longint): boolean;stdcall;
type TReadAnalogChannel = function(Channel: Longint): Longint;stdcall;
var OpenDevice: TOpenDevice;
CloseDevice: TCloseDevice;
ClearAllAnalog: TClearAllAnalog;
ClearAllDigital: TClearAllDigital;
ClearAnalogChannel: TClearAnalogChannel;
ClearDigitalChannel: TClearDigitalChannel;
OutputAnalogChannel: TOutputAnalogChannel;
SetDigitalChannel: TSetDigitalChannel;
ReadDigitalChannel: TReadDigitalChannel;
ReadAnalogChannel: TReadAnalogChannel;
Habe mich damals beim Erstellen an Fundstücken hier aus der
DP orientiert.
Das mit dem Sprachmischmasch bin ich auch gerade am Ändern, Überarbeitung ist halt nötig geworden
2. Account Sero