16-Bit Folge über LPT ausgeben

[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