Parallelport von Basic auf Delphi umstellen

[Semmel]

Um eine Kassenschublade von Programm zu öffnen, habe ich ein Basic Programm als Beispiel.
WinIo.dll (ansprechen der Port) konnte ich schon einbinden, jedoch beim Ansprechen des Port I/O port 0x4B8

Delphi-Quellcode:

Result = SetPortVal(&H4B8, &HF, 1)

= öffnen der Schublade

H4B8 kennt Delphi nicht
Wie kann ich das in Delphi übersetzen, dazu brauche ich eure Hilfe

[Klaus01]

Guten Morgen,

tut es vielleicht so?

Delphi-Quellcode:

Result = SetPortVal(StrToInt('$H4B8'), &HF, 1)

Du kannst aber auch direkt den Dezimalwert eintragen.

Grüße
Klaus

[Semmel]

Danke, werde ich gleich umsetzen

[Semmel]

Die Lösung war

Delphi-Quellcode:

const
 port = $4B8;

// Function
  Result := SetPortVal(port, 1, 1);

Danke für die Anwort, Harald

[Christian Seehase]

Moin Harald,

die erste 1 kann eigentlich nicht stimmen, denn &HF ist in Delphi $F (hexadezimal) bzw. 15 dezimal

[Semmel]

Hallo Christian

Delphi-Quellcode:

 SetPortVal(port, 0, 1);

Schublade schließen

Delphi-Quellcode:

SetPortVal(port, 1, 1)

oder

Delphi-Quellcode:

SetPortVal(port, 15, 1);

Schublade öffnen, ergibt das gleiche, anscheinend muss es nur größer als 0 sein