ayuda paralelo

[[coso]]

Hola, para enviar al puerto paralelo puedes abrirlo como un TFile, y luego ir 'escribiendo' desde alla. Seria algo asi (de memoria)

Código Delphi [-]
var
   f : TFile;
begin
       f := AssignFile('LPT1:',fsOpenShareWrite);
       WriteLn(f,#13#10+'enviando estos caracteres');
       CloseFile(f);
end;