Hi,
Genau meiner Meinung is der LPT(Drucker)-Port wirkilic sinnvollsten für sowas!
Allerdings brauchst für die Ansteuering des LPT-Port unter Windows XP eine *.dll-Datei (Bibliothek), die du in den selben Ordner schiebst und im Programm dann einbindest
Hier ein Besipiel:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| Var Port:Integer=888;
function Inp32(Adresse:Integer): Byte; stdcall; external 'inpout32.dll';
procedure Out32(Adresse:Integer;Output:Byte); stdcall; external 'inpout32.dll';
procedure TForm1.AnClick(Sender: TObject);
begin
Out32(port,1);
end;
procedure TForm1.AusClick(Sender: TObject);
begin
Out32(port,0);
end; |
Hier wird der 1. Pin (von
auf Hi bzw Lo geschaltet!
(Mit "Inp32()" könntest du noch Eingänge (5 Stück) abfragen...)
Die Bibliothek konnet man irgendwo mal kostenlos downloaden (glaub bei Pollin.de)
