Pascalbefehle unter Delphi..?

Snakebyte · Hält's aus hier Beiträge: 8

Hallo,

ich habe mir aus einem älteren Pascalpogramm ein paar Quelltext-passagen rauskopiert und versucht diese in ein Delphi-pogramm einzufügen. Es geht um die ansteuerung des Gameports am rechner. Der fehler liegt im Befehl "PORT".(Rot markiert!!)

Fehlermeldung: "Undefinierter Bezeichner"

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

CONST gameadr=$201;     {Gameport-Adresse}
TYPE  Bit=0..1;
VAR   allesch: Byte;
      Schalter0, Schalter1, Schalter2, Schalter3,
      ReglerS0, ReglerS1, ReglerS2, ReglerS3: Boolean;
      E1, E2, E3, E4, E5, E6, E7, E8: Bit;


  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
                                      
  allesch := PORT [gameadr];      // <---
  Schalter0 := (allesch AND 16)=0;         
  Schalter1 := (allesch AND (16 shl 1))=0; 
  Schalter2 := (allesch AND (16 shl 2))=0; 
  Schalter3 := (allesch AND (16 shl 3))=0;

Wie heißt dieser Befehl in Delphi??--oder--Wie mache ich das Delphi pascal-befehle nimmt? Habt ihr noch andere Ideen für ansteuerung des Gameports??(Falls der text Rotz ist!!!)

Vielen Dank

Max Schulz

Moderiert von UGrohne: Delphi-Tags hinzugefügt.
Moderiert von Tino: Überflüssige Absätze entfernt.

.Chef · Beiträge: 1112

Ab Win2K kannst du nicht mehr direkt auf die Ports zugreifen. Such mal im Forum zu Beiträgen über den Parallelport, da ist das Problem meistens erklärt.

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Snakebyte · Hält's aus hier Beiträge: 8

Ich programiere nur unter W98!!!
Klappt ja auch sonst alles.
Das pascallprog. läuft top.
Nur der besch... Port befehl haut nicht hin..

.Chef · Beiträge: 1112

Probier mal den Assemblercode aus diesem Beitrag.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Snakebyte · Hält's aus hier Beiträge: 8

Danke für den Tipp.
Doch leider sehe ich bei diesem Quelltext nicht durch.
Was machen die ganzen funktionen im einzelnen?
Und die Port-Stellen sehen ja im grunde so aus wie meinen!
-------------------------------------------------------------------------------------

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

{$IFDEF Win32}  
FUNCTION PortIn(Addr: WORD): BYTE; Assembler; StdCall;  
  ASM  
    mov dx, Addr // Adresse ins DX-Register schreiben  
    in al, dx    // Port lesen. (AL entspricht Result)  
  END;  
{$ELSE}  
FUNCTION PortIn(Addr: WORD): BYTE;  
BEGIN  
  Portin := Port[Addr];  // <---
END;  
{$ENDIF}  

 
{$IFDEF Win32}  
PROCEDURE PortOut(Addr: Word; Data: Byte); Assembler; StdCall;  
  ASM  
    mov dx, Addr    // Adresse nach DX  
    mov al, Data    // Datenbyte nach AL  
    out dx, al      // Port schreiben  
  END;  
{$ELSE}  
PROCEDURE PortOut(Addr: WORD; Data: BYTE);  
BEGIN  
  Port[Addr] := Data;  
END;  
{$ENDIF}

Moderiert von UGrohne: Delphi-Tags hinzugefügt.

.Chef · Beiträge: 1112

Eigentlich brauchst du nur das:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

FUNCTION PortIn(Addr: WORD): BYTE; Assembler; StdCall;  
ASM  
  mov dx, Addr // Adresse ins DX-Register schreiben  
  in al, dx    // Port lesen. (AL entspricht Result)  
END;  

PROCEDURE PortOut(Addr: Word; Data: Byte); Assembler; StdCall;  
ASM  
  mov dx, Addr    // Adresse nach DX  
  mov al, Data    // Datenbyte nach AL  
  out dx, al      // Port schreiben  
END;

Was genau passiert, steht ja dahinter. Probier das mal aus, und sag mir mal, obs ging. ;-)

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme