Hardware Portansteuerung

[supermuckl]

@ jwhm
der code steht im sourcecode :) die komponente gibts übrigends bei torry
achja.. das teil geht bei mir immer noch.. unter 2k und xp und win98 / win95 hab ichs nochmal ausprobiert.. das teil funzt und funzt.. ich kann dagegen nichts tun :hello:

[flomei]

Zitat:

Zitat von supermuckl

achja.. das teil geht bei mir immer noch.. unter 2k und xp und win98 / win95 hab ichs nochmal ausprobiert.. das teil funzt und funzt.. ich kann dagegen nichts tun :hello:

Welches Tool funzt??? Meins???
Naja, is ja auch egal!

Sacht mal: Was haltet ihr von meinem Programm??? Gefällt es euch? :D

[Yheeky]

Sorry wenn ich jetzt "dumm" frage, aber ich hab das Posting mal so überflogen, aber hab nicht so recht ne Antwort gefunden.
Ich hab WinXP und bekomme immer ne Fehlermeldung: "Privilegierte Anweisung".
Der Fehler kommt nur, wenn ich in Delphi bin, ansonsten nicht.
Kann mir da jemand was zu sagen?

Gruß Yheeky

[Brüggendiek]

Hallo Yheeky!

Wenn Du Dein Programm in der Delphi-IDE ausführst, gibt es eine Fehlermeldung, bei Start der EXE außerhalb von Delphi nicht?

1. Du hast wohl bei "Tools", "Debugger-Optionen", "Sprach-Exceptions" einen Haken in "Bei Delphi-Exceptions stoppen" - dann werden aufgetretene Exceptions auch dann gemeldet, wenn das mit einem TRY-EXCEPT oder TRY-FINALLY abgefangen ist.

2. in diesem Fall stinkt das meilenweit nach Pfusch. Statt die Plattform einmal einzulesen und passend zu programieren, wurde einfach mit TRY-EXCEPT gearbeitet nach dem Motto: "versuchen wir ASM-IN/OUT, wenns klappt is gut, wenn nicht haben wir NT/2000/XP und nutzen dann erst die nötige Umgehung" - wie war das noch mit der Regel beim Einparken? Richtig: "wenns knallt, noch 1 Meter" :mrgreen:

Wie sagten schon Murphy und seine Schüler? Die Programmkomplexität wächst so lange, bis sie das Leistungsvermögen des Programmierers überschreitet.

Gruß

Dietmar Brüggendiek

[Yheeky]

Yo, klingt gut, aber was willst du mir jetzt damit sagen? :roll: :wink:

[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

[flomei]

Zitat:

Zitat von flomei

Sacht mal: Was haltet ihr von meinem Programm??? Gefällt es euch? :D

Mir hat immer noch keiner geantwortet. Ihr mögt mich wohl nicht, was? :cry: ( :wink: )

MfG Florian

[Pyr0cracker]

@flomei: doch. :)
kannst du dien prog noch mal ranhängen? irgendwie gehts bei mir nich, zeigt nur kurz die sanduhr.
hab winxp

[Daniel B]

Hallo flomei,

Zitat:

Zitat von flomei

Zitat:

Zitat von flomei

Sacht mal: Was haltet ihr von meinem Programm??? Gefällt es euch? :D

Mir hat immer noch keiner geantwortet. Ihr mögt mich wohl nicht, was? :cry: ( :wink: )

Sieh es doch mal so:
Nicht jeder hat die möglichkeit LEDs zusammen zu löten um es dann am Port anzuhängen. Ob man das Programm an sich starten kann ist glaub ich erledigt.
Aber was sollen die Leute damit, wenn sie keine "entsprechende Harware" dazu haben?
Es geht hier nicht ums mögen, sondern um keine Testmöglichkeiten haben!

Grüsse, Daniel :hi:

[flomei]

Hm. Das sehe ich ein. Böses Kind, dass so etwas vermutet :wall:

Ein einziges Mal noch für alle die nicht richtig gelesen haben :
Das funktioniert NICHT unter Win 2000 oder XP!!!
Naja. Ich hab dafür meine 1 in Technik bekommen und dann soll es auch gut sein