function csp2Init(nComPort: Integer) : Integer; stdcall; external 'Csp2.dll'
in einer Procedure
Delphi-Quellcode:
error := csp2Init(0); //COM1
GetErrorMessage(error);
Die Procdeure GetErrorMessage gibt eine Fehlermeldung falls kein 0 ist aus, es ist momentan erstmal nur der Test um Daten auszulesen klar ist das das nicht sondlich schön aber es funktioniert
Wenn ich -1 angebe kommt Ungültige Parameter BAD PARAMS wenn ich eine nicht vohranden Schnittstelle anvisiere kommt BAD CONNECTIOn
Wenn ich 0 nehme für COM1 kommt auch wenn ich das abfragen würde ALLES STATUS_OK
Also funktionert es ohne error := _csp2Init(0)
Werd aber weiter machen und schauen, im prinzip wird die
DLL ja verarbeitet deswegen die rückmeldungen also scheint es doch nun gelöst zu sein.
Für meine Sicht bin ich zufrieden
