LPT überwachen

[turboPASCAL]

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
Case [color=#ff0000](Sender as TCheckBox).Tag[/color] of

In deinem Demo sind die Tag's leer. Die sollten im OI oder im Code gesetzt werden sonnst funktioniert das Demo nicht.

Ein B. um die Tag's zur Laufzeit zu setzen:

Delphi-Quellcode:

procedure TFormX.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i := 0 to 7 do
   (FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;

// (FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;
// kann man auch anders schreiben:
// TCheckBox(FindComponent(format('CheckBox%d', [i+1]))).Tag := i;
end;

[philiph]

danke!!

[philiph]

Also ich weiss das passt jetzt nicht mehr wirklich zum Titel aber ich wollte mal fragen wie ich z.B. Pin 14 ansteuere ich bekomme das bisher nur mit pin 2-9 hin

[zebrafalke]

Wenn ich sage

Delphi-Quellcode:

// inpout32.dll für LPT-Ausgang unter WinNT, Win2000 und WinXP laden
procedure Out32(PortAddress:word;Value:byte);stdcall;export;
external 'inpout32.DLL';
function Inp32(PortAddress:word):byte;stdcall;export;
external 'inpout32.DLL';


procedure TForm1.Button1Click(Sender: TObject);
begin
 Out32(888,1);
end;

Dann gibts ne Fehlermeldung:
"Konstantenausdruck verletzt untere Grenzen"

Was mach ich falsch?

[philiph]

Am Code ansich ist nichts Falsch da muss so was nicht klappen schreibe mal deinen ganzen Code rein dann kann ich dir vieleicht weiterhelfen(PS:kennt noch jemand ne Lösung auf mein Problem bevor man ein neues anfängt)

[turboPASCAL]

Pin 14, was hast den du vor ?

Code:

 Signalname | LPT-Pin | BitNr | Portname
 --------------------------------------------
 Data0      |    2    |   0   | DatenPort
  ...
 Data7      |    9    |   7   | DatenPort
 --------------------------------------------
 Strobe     |    1    |   0   | KontrollPort
 AutoFdx    |   14    |   1   | KontrollPort // <--<<<
 InitPrnt   |   16    |   2   | KontrollPort
 SlctInp    |   17    |   3   | KontrollPort
 --------------------------------------------
 Err        |   15    |   3   | InputPort
 Slct       |   13    |   4   | InputPort
 PE         |   12    |   5   | InputPort
 Ack        |   10    |   6   | InputPort
 Busy       |   11    |   7   | InputPort
 --------------------------------------------
 GND        |  18-25  |   -   | Masse
 --------------------------------------------

[philiph]

ich wollte sie zusätzlich zu den Daten Ports als Ausgang benutzten um mehr ansteuerungsmöglichkeiten zu haben.

[turboPASCAL]

Ne, is nicht. Das ist ein Daten Port. Du solltest dafür dann eine kleine Schaltung bauen.
Stichwort des Computerclubs I²C-Bus

Für den Com (Serial) Anschluss schaut das dann so aus: 8x8 Leuchtdioden

[zebrafalke]

Das ist der gesamte Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// inpout32.dll für LPT-Ausgang unter WinNT, Win2000 und WinXP laden
procedure Out32(PortAddress:word;Value:byte);stdcall;export;
external 'inpout32.DLL';
function Inp32(PortAddress:word):byte;stdcall;export;
external 'inpout32.DLL';


procedure TForm1.Button1Click(Sender: TObject);
begin
 Out32(888,1);
end;
end.

*nixkapier*

[turboPASCAL]

Juhu der1000 'ste Post

Zitat von zebrafalke:

*nixkapier*

Ich auch nicht. Was gibt es denn für ein Problem ?

Schau mal hier vorbei, da gibt es einen kompletten Sourcecode für das ansteuern von LED's über den Druckerport.