Aus Pascal -> in Delphi. port[$...]

[bg-02]

Hallo alle!

Wie kann ich vordefiniertes array aus Pascal "port[$...]" im Delphi implementieren?

Pascal:

begin
  BaseAdressCom:=$3F8;                      
                          {Create BREAK-Signal}
  bHelp:=port[BaseAdressCom+$3];             {read konfiguration}
  port[BaseAdressCom+3]:= bHelp or 64;      {set Break bit to 1}
  pause(0.06);                                             {waiting 60 msec}
  port[BaseAdressCom+$3]:= bHelp;            {reset Break bit}
end;

Delphi..?

Mit Hoffnung auf die Hilfe!

[Schuggi]

Bin mir nicht sicher aber probier mal folgendes:

Code:

Type

  TPort = Array[$378..$3F8] of Byte;



var

  PPort : ^Tport;





begin

  PPort:=Pointer($378);

  PPort^[$378]:=10;

  ...

PS: Unter Windows NT wird das aber auf keinen Fall funktionieren !

Gruß Schuggi

[Sven]

Für Port-Zugriffe unter allen Windows-Betriebssystem gibt es eine kostenloses Tool: ZLPortIO

Hier zu finden: [a href="http://www.specosoft.com/" target="_blank"]http://www.specosoft.com/[/a]

[bg-02]

Danke Schuggi und Sven für die Antworte auf meine Frage!

Und wieso funktioniert bei Windows NT (und 2000 auch?) das nicht so wie bei den anderen Versionen?
Ich hatte schon früher Probleme mit Win2000 und Treiber-Programmen in Delphi.

Gruß

[Schuggi]

Ganz einfach:
NT und Windows2000 ist ja auch NT erlauben keine direkten Zugriffe auf die Hardware. Diese Zugriffe müssen bei NT über einen sogenannten Device-Treiber erfolgen.

Gruß Schuggi

[Sven]

Deshalb hatte ich Dir den link für ZLPortIO gepostet. Wenn Du dies verwendest, hast Du unter allen Betriebsystemvarianten von MS zugriff auf alle Ports und immer mit denselben Aufrufen.