Thema: Delphi Hardware Portansteuerung

Einzelnen Beitrag anzeigen

Brüggendiek

Registriert seit: 13. Dez 2002
Ort: Dortmund
275 Beiträge
 
Delphi 5 Standard
 
#36
  Alt 17. Feb 2003, 06:08
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
Dietmar Brüggendiek
  Mit Zitat antworten Zitat