Entwickler-Ecke
Sonstiges (Delphi) - Delphi Programm ändern bei LPT-Port
fusseli - Sa 25.09.10 10:50
Titel: Delphi Programm ändern bei LPT-Port
Hi, bin neu hier :D ,
so wir kommen mal gleich zur Sache.
Also ich weiß so ungefähr, wie man es macht mit dem LPT-Port, aber eine Sache weiß ich nicht. Wenn man unter Ressourcen nachschaut, steht bei mir C000. Jetzt meine Frage: Wie schreibt man dies in das Programm, wenn dort steht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: ParallelPort := kemo_USB;
1: ParallelPort := $378;
2: Parallelport := $237;
3: ParallelPort := $3BC;
else exit;
end;
PortSettingsChanged;
end;
procedure TMainForm.SpeedButton3Click(Sender: TObject);
begin
CmdStateChange($ffff00ff);
end; |
Wichtig: Ich weiß wie man es macht mit Port 0378, aber nicht wenn statt der Null ein Buchstabe steht, also z.B. C,A,B.
Bitte um schnelle Antwort.
Moderiert von 
Martok: Delphi-Tags gesetzt
fusseli - Sa 25.09.10 11:34
Weiß das denn niemand :(
platzwart - Sa 25.09.10 11:40
Dann schau dir doch mal deinen Quellcode an, da steht doch sowas wie 3: ParallelPort := $3BC;, und da sind doch auch Buchstaben dabei. Das sind dann übrigens im Hexadezimalsystem kodierte Zahlen. Wird dadurch markiert, dass man ein $ davor setzt...
fusseli - Sa 25.09.10 11:44
danke für die Antwort :)
aber wenn ich eingebe $c000 dann kommt verletzt untere Grenzen wie kann ich das ändern
fusseli - Sa 25.09.10 13:22
Kann es niemand oder geht es nicht. Brauch es dringent! :!:
platzwart - Sa 25.09.10 13:59
1) Nur alle 24h ein Push.
2) Ist das ein recht sprezielles Problem, womit hier im Forum sicherlich deutlich weniger als 1% in Kontakt kommen.
3) Wenn es so dringend ist, frag doch den Herstellersupport...
Martok - Sa 25.09.10 15:02
Hallo,
1. Du hast ein Schiebeposting getätigt. Dies sind Postings, die keinen Sinn erfüllen, außer Deinen Thread in der Liste der letzten aktiven Topics wieder nach oben zu schieben.
Dies ist hier im Forum zwar erlaubt, aber erst nach
frühestens 24 Stunden. ;)
2. Bitte verwende für Quellcode die entsprechenden [delphi
]-Tags, dann wird er "schöner" dargestellt als im Fließtext. Beispiel:
Quelltext
1:
| <span class="inlineSyntax"><span class="codecomment">{PROTECTTAG7220e9bfdf0cadf6f93a3ceeb0e9807f}</span></span> |
Wird:
Und last but not least: WTH ist jetzt eigentlich die Frage? Kann an mir liegen, aber die Portangabe ist geklärt und der Satz mit den Resourcen im OP macht keinen Sinn...
Viele Grüße,
Martok
fusseli - So 26.09.10 00:13
Tut mir Leid. Kann ich trodem noch fragen wenn ja, dann:
Wie schreibe ich den Port C000 in das angehängte Programm.
Der Herstellersuport ist nur wochendtags
fusseli - So 26.09.10 10:49
Ok nochmal neu:
Im Code von da oben möchte ich einen Port ändern, unter Ressourcen steht aber C000 (ich weiß nicht ob das wichtig ist habe es aber in foren oft gelesen das man dort hineinschaut).
Jetzt meine FRAGE:Kann mir einer dies in den Code schreiben?
Drei Zeichen sind einfach aber wie bringe ich vier unter!
fusseli - So 26.09.10 15:28
Mir ist noch was eingefallen:
Wenn ich schreibe
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| rocedure TMainForm.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: ParallelPort := kemo_USB;
1: ParallelPort := $378;
2: ParallelPort := $C000;
3: ParallelPort := $3BC;
else exit;
end;
PortSettingsChanged;
end;
procedure TMainForm.SpeedButton3Click(Sender: TObject); |
Kommt: Konstantenausdruck verletzt untere Grenzen E1012
Vielleicht hilft´s weiter.
Und was mache ich falsch!
fusseli - So 26.09.10 17:50
Ok hat sich erledigt habe oben irgendwo gefunden Parallelport :short und es in dword geändert. Jetzt klappt´s.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!