Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#4

Re: Delphi3: Fataler Fehler: ... Interner Fehler D1825

  Alt 1. Jan 2004, 23:06
Also...
Ich habe Delphi 3 Build 5.83 Pro mit folgendem Update
http://info.borland.com/devsupport/d...2download.html

Folgenden Code habe ich erstellt:

Delphi-Quellcode:
implementation

{$R *.DFM}

function Inp(PortAddress : Word) : Word; external 'inpout32.dllname 'Inp32';
procedure Outp(PortAddress : Word; Value : Word); external 'inpout32.dllname 'Out32';

procedure TForm1.Button1Click(Sender: TObject);
var
 w : word;
begin
  Outp($0295, $80);
  w := Inp($0296);
end;

end.
Bei mir kommt kein Delphi Fehler, es funktioniert.

PS: Der Portzugriff ist nur ein Beispiel, funzt nicht auf jedem Rechner. Ich musste nur die beiden Funktionen irgendwo unterbringen, damit er sie auch tatsächlich importiert.
  Mit Zitat antworten Zitat