Problemi di stampa su programma console [RISOLTO]

[ottavio8]

Salve, ho il seguente problema:
sono riuscito a far funziona il mio vecchio programma in pascal su lazarus e un programma per la gestione fatture e magazzino di alcuni negozi. Questo programma è sviluppato tutto in modalita console. Su XP riesco a stampare tranquillamente sulla stampante usando il comando write(lst,'pippo') perchè ho installato un programma che mi fa vedere le stamapnti usb come ltpt sotto dos. Adesso questa cosa su Windows 7, 8 e 10 non funziona.
Ho provato a fare un applicazione console e usare printer4lazarus per stampare ma come cerco di prendere solo il nome della stampate mi va in errore la libreria.

La mia domanda è c'è un modo per stampare su stampante usb da un applicazione console?

LA libreria printer4lazarus  funziona su applicazione Windows application o come si di dice form.
 

[supercim]

Io non sono esperto, per ora ho realizzato un solo programma in Lazarus, ma ti invio questo esempio, provalo e vedi se funziona.

[nomorelogic]

hai provato a mettere la stampante come condivisa e poi provare un comando dos come

dir >\127.0.0.1\nome_stampante_condivisa

se funziona credo che sei già a buon punto

[ottavio8]

hai provato a mettere la stampante come condivisa e poi provare un comando dos come

dir >\127.0.0.1\nome_stampante_condivisa

se funziona credo che sei già a buon punto

Ciao, ho provato questa istruzione su XP tramite dos ma non da segni di vita la stampante.
La stampante è collegata tramite usb al computer.
Il comando lo lancio dallo stesso PC a cui è collegata la stampante.

Mi da questa risposta "Impossibile trovare il percorso specificato."
Ho messo 127.0.0.1 ho provato con l'indirizzo ip del computer e con il nome.
Hai qualche altro suggerimento?
Grazie Ciao
Ho provato sia mettendo 127.0.0.1

[ottavio8]

Io non sono esperto, per ora ho realizzato un solo programma in Lazarus, ma ti invio questo esempio, provalo e vedi se funziona.

Ciao,
mi serve stampare direttamente da un programma di tipo console.
Per intenderci devo usare l'istruzione write(lst,'pippo').
Se trovi un esempio che funziona così sarò il programmatore + felice del mondo.

[nomorelogic]

ho trovato questo link, vedi se ti può essere utile

http://www.math.uni-leipzig.de/pool/tuts/FreePascal/units/node18.html

se printer4lazarus ti funziona con applicazioni GUI dovrebbe funzionare anche da programmi concole

[supercim]

Credo potresti usare l'istruzione:
Printer.Canvas.TextOut(pixelriga, pixelcolonna, varstamp);
assegni le coordinate e varstamp è la variabile di ciò che devi stampare.
Ti allego un esempio:

[ottavio8]

ho trovato questo link, vedi se ti può essere utile

http://www.math.uni-leipzig.de/pool/tuts/FreePascal/units/node18.html

se printer4lazarus ti funziona con applicazioni GUI dovrebbe funzionare anche da programmi concole

Ciao,
ho provato a eseguire il codice dell'esempio in su windows 10 ma mi da l'errore che vedi nell'immagine allegata.
Grazie per il suggerimento.

[ottavio8]

ho trovato questo link, vedi se ti può essere utile

http://www.math.uni-leipzig.de/pool/tuts/FreePascal/units/node18.html

se printer4lazarus ti funziona con applicazioni GUI dovrebbe funzionare anche da programmi concole

Ciao, scusa se ti disturbo ancora mi mdaresti un esempio di applicazione console che usa printer4lazarus?
Io ho fatto delle prove ma non sono riuscito.
Grazie ancora
Ciao

[ottavio8]

Credo potresti usare l'istruzione:
Printer.Canvas.TextOut(pixelriga, pixelcolonna, varstamp);
assegni le coordinate e varstamp è la variabile di ciò che devi stampare.
Ti allego un esempio:

Ciao, grazie per l'esempio funziona perfettamente.
Solo che essendo un applicazione console non so come settare la stampante ho fatto delle prove ma non so come fare.
Se riesci mi manderesti un esempio di applicazione console che usa printer4lazarus.
Grazie ciao

[nomorelogic]

il Runtime(103) è un errore di file non trovato (o qualcosa del genere)
probabilmente la variabile lst non è inizializzata correttamente


per l'esempio printer4lazarus puoi dare un'occhiata qua
http://wiki.freepascal.org/Using_the_printer

[supercim]

In passato programmavo sia in Basic che in Pascal, poi passai al Visual Basic, ma quando passavo l'eseguibile ad altri non funzionava, perchè dovevano installare delle directx, un compagno di classe mi consigliò: Lazarus, così l'eseguibile è subito funzionante. Se dovessi riprendere dei vecchi programmi, li rifarei per Lazarus, utilizzando gli oggetti. Se vuoi continuare con programma console, mandami un esempio, vedrò poi, di consigliarti.

[ottavio8]

In passato programmavo sia in Basic che in Pascal, poi passai al Visual Basic, ma quando passavo l'eseguibile ad altri non funzionava, perchè dovevano installare delle directx, un compagno di classe mi consigliò: Lazarus, così l'eseguibile è subito funzionante. Se dovessi riprendere dei vecchi programmi, li rifarei per Lazarus, utilizzando gli oggetti. Se vuoi continuare con programma console, mandami un esempio, vedrò poi, di consigliarti.

Ciao,
prima di tutto grazie per la disponibilità.
In allegato c'è il progetto console che stampa un semplice testo (io di più non devo fare).
Quando lo mndao in esecuzione mi da errore alla riga 665 di printer.pas.
Mentre se faccio con le form funziona.
Non riesco a capire quale sia il problema nel pasaggio dall'applicazione con le form a quella con la console.
Giusto per farti capire sono alle prime armi con cose di questo tipo, l'ultima volta che ho lavorato con pascal c'era ancora il turbo pascal nel 1994.
Grazie ancora per l'aiuto.
Ciao

[nomorelogic]

dovresti:
1) mettere tra le dipendenze del progetto anche il pacchetto printers4lazarus
2) mettere nella uses anche la unit osPrinters.

prova e facci sapere se funziona
ciao

[ottavio8]

Ciao,
il pacchetto printer4lazarrus era già tra le dipendenze.
Adesso che ho aggiunto OSPrinter tra le uses mi da l'errore che vedi in foto.
Prima mi dava un altro errore in printer.pas alla riga 665.