Hardware Portansteuerung

[Brüggendiek]

Hallo Yheeky!

Der Entwickler der Komponente hat gepfuscht (oder war überfordert).
Korrekt ist Folgendes:

Delphi-Quellcode:

W9xFlag := not (Win32Platform = VER_PLATFORM_WIN32_NT);
..

if W9xFlag then
begin
  // Code für Win95/98/ME
end else
begin
  // Code für NT/2000/XP
end;

Offensichtlich kannte der Programmierer jedoch nicht den Code der ersten Zeile (bei Initialisierung der Unit aufzurufen), der das W9xFlag setzt, wenn wir ein DOS-basiertes Windows haben und damit die ASM-Befehle IN und OUT benutzen dürfen. Also wurde so programmiert:

Delphi-Quellcode:

try
  // Code für Win95/98/ME
except
  // Code für NT/2000/XP
end;

also umgangssprachlich ausgedrückt: wenn es knallt, geht es nicht!
Ist nun die Anzeige von Exceptions in der IDE aktiviert, gibt es eine Ausgabe - natürlich nur, wenn das Programm in der IDE läuft.

Gruß

Dietmar Brüggendiek