Forum: Programmieren allgemein
by Semmel,
19. Jul 2008
Hallo Christian
SetPortVal(port, 0, 1); Schublade schließen
SetPortVal(port, 1, 1) oder SetPortVal(port, 15, 1); Schublade öffnen, ergibt das gleiche, anscheinend muss es nur größer als 0 sein
Forum: Programmieren allgemein
by Semmel,
19. Jul 2008
Die Lösung war
const
port = $4B8;
// Function
Result := SetPortVal(port, 1, 1);
Danke für die Anwort, Harald
Forum: Programmieren allgemein
by Semmel,
19. Jul 2008
Danke, werde ich gleich umsetzen
Forum: Programmieren allgemein
by Semmel,
19. Jul 2008
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
Result = SetPortVal(&H4B8, &HF, 1) = öffnen der Schublade
H4B8 kennt Delphi nicht
Wie kann ich das in Delphi übersetzen, dazu brauche ich eure Hilfe