Druckerport ansprechen...

[Daniel B]

und einzelne Ausgänge H/L setzen.

erstmal,

ich hab schon geGoogelt, aber nciht tolles gefunden.
Bis jetzt mache ich es so:

Code:

procedure TForm1.Rel1Click(Sender: TObject);
//Relais 1 EIN
var
  tf: TextFile;
begin
  AssignFile(tf, 'LPT1');
  ReWrite(tf);
  WriteLn(tf, Chr(27), 'd', Chr(0), Chr(255));
  CloseFile(tf);
end;

Das Problem ist, wenn ich nun auf den Button klicke, dann bleibt das Programm total hängen. Es gibt aber keine Fehelrmeldungen o.ä.
Ich kann nur noch Programm rücksetzen klicken. Run geht auch nciht mehr. Wenn ich die Zeile mit Write Kommentiere, dann kann ich halt ganz normal auf den Button klicken. Irgendwie blick ich da überhaupt nicht mehr durch. Vielleicht könnt ihr mir Helfen. Vielen Dank.

Grüsse, Daniel