Bonjours tlm !
Bon voila je vous expose mon problème :
Pour mes PPE au lycée, j'ai besoin de déplacer la tete d'impression d'une imprimante à aiguille.
On avait déja utiliser le pascal avec le programe suivant :
Citation :
program imprimante;
var
i,data,cont:integer;
procedure ecriturehard(sortie: byte); {sortie contient la valeur a sortir}
begin
port[data]:=sortie;
end;
begin
i:=1;
data:=$0378;
cont:=$037A;
port[data]:=$00;{remise a zeros des huit sorties}
port[cont]:=$04;{les bits de selection inactifs}
repeat
ecriturehard($20);{$20-->espace en hexa}
i:=(i+1);
writeln(i);
until i=20
end.
|
mais il ne fonctionnait pas, apriori cela vien de windows XP qui interdit l'accès aux ports de l'imprimante. Donc on m'a conseiller de coder en delphi qui est compatible avec XP
Quelqu'un saurait comment je pourai faire bouger cette tête d'impression en delphi ???