[DELPHI] AssignFile & LPT1

[FatMax]

procedure TForm1.Button1Click(Sender: TObject);
var
stringa : textfile;
begin
AssignFile(stringa,'LPT1');
Rewrite(stringa);
writeln(stringa,#27+'R'+#1+'SoooKAAA'+#13);
Application.ProcessMessages;
CloseFile(stringa); <------- PROVATO PURE SENZA
end;


okok .....allora
salve a tutti , ho una stampate Fiscale EPSON U210PD , e devo fare un programmino per stamparci sopra.
conq uesta procedura, lo fa stampa correttamente, ma purtrollo
dopo il secondo click o al max il terzo mi si blocca tutto.

Sapete qualcosa?

[pgm]

:quote:

[alka]

Cosa intendi con "si blocca"?

Genera un'eccezione? Il programma non risponde più ai comandi??

Hai controllato su Internet se non esistono metodi più semplici (e sicuri) per accedere alla porta LPT1?

Ciao!

[FatMax]

si blocca...nel senso che sa in pausa, tranqullo sneza fare un cazzo

ora ho provato con AssignPrn e funzia, ma tipo una lettera al minuto.
La ho installato come stampante solo testo , ma bho.

[alka]

Prova a cercare un driver per la stampante che usi (se esiste) e stampare tramite lo spooler attraverso quel driver.

Ciao!

[FatMax]

installando driver......
mi inkiappetta
mi elimina tutti i caratteri ascii :° e non me li riconosce..quelli di controllo