16-Bit Folge über LPT ausgeben

[Reinhard Kern]

Zitat von tr909:

probier doch mal (nur ne Vermutung) :

Delphi-Quellcode:

 
procedure TForm1.Button8Click(Sender: TObject);
var
  output : word;
begin
  word := 2560; //0000 1010 0000 000 in dezimal
  PortOut($378,output); // oder PortOut ($378,$A00);
end;

Gruß
tr909

Hallo,

interessanter Versuch - aber LPT ist 8 bit breit und wird es immer bleiben.

Gruss Reinhard