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
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?

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

markieren

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

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

Parallelport von Basic auf Delphi umstellen

Parallelport von Basic auf Delphi umstellen

Re: Parallelport von Basic auf Delphi umstellen

Re: Parallelport von Basic auf Delphi umstellen

Re: Parallelport von Basic auf Delphi umstellen

Re: Parallelport von Basic auf Delphi umstellen

Re: Parallelport von Basic auf Delphi umstellen

Forumregeln

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 Re: Parallelport von Basic auf Delphi umstellen 19. Jul 2008, 10:20 Guten Morgen, tut es vielleicht so? Result = SetPortVal(StrToInt('$H4B8'), &HF, 1) Du kannst aber auch direkt den Dezimalwert eintragen. Grüße Klaus Klaus
	Zitat

Semmel Registriert seit: 15. Feb 2006 Ort: Bad Hall 64 Beiträge	#3 Re: Parallelport von Basic auf Delphi umstellen 19. Jul 2008, 10:28 Danke, werde ich gleich umsetzen
	Zitat

Semmel Registriert seit: 15. Feb 2006 Ort: Bad Hall 64 Beiträge	#4 Re: Parallelport von Basic auf Delphi umstellen 19. Jul 2008, 10:50 Die Lösung war markieren Delphi-Quellcode: const port = $4B8; // Function Result := SetPortVal(port, 1, 1); Danke für die Anwort, Harald
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#5 Re: Parallelport von Basic auf Delphi umstellen 19. Jul 2008, 11:21 Moin Harald, die erste 1 kann eigentlich nicht stimmen, denn &HF ist in Delphi $F (hexadezimal) bzw. 15 dezimal Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

Semmel Registriert seit: 15. Feb 2006 Ort: Bad Hall 64 Beiträge	#6 Re: Parallelport von Basic auf Delphi umstellen 19. Jul 2008, 11:59 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
	Zitat