Thema: Delphi Datei auf LPT1: Drucken

Einzelnen Beitrag anzeigen

PiT123

Registriert seit: 17. Jan 2004
25 Beiträge
 
#5

Re: Datei auf LPT1: Drucken

  Alt 22. Jan 2004, 12:13
das ganze geht über den Windows Druckertreiber , wird also formatiert und der Drucker druckt es aus..
Ich suche ein möglchkeit das txt file direckt zum drucker zu senden.
Hier mal der Inhalt der TXT datei " %-12345X@PJL LBEEP%-12345X " wobei =Chr27 (ESC) ist.
Diese soll den Drucker ein Beep entlocken.



gibt es keine funktion wo man cmd aufruft um eine datei auf LPT1 kopieren kann ?



Habe eine Lösung gefunden

ShellExecute(application.Handle,'open','cmd.exe',('/c copy test.txt lpt1'),nil ,sw_minimize); funzt ....

nur möchte ich jetzt noch eine ausgabe Capturen und dafür Edit1.text und Edit2.text verwenden.

ShellExecute(application.Handle,'open','cmd.exe',('/c net use LPT1 \\(edit1.text) \(Edit2.Text)'),nil ,sw_minimize); im DOS sieht das dann so aus " net use LPT1 \\Rechnername\Freigabename" nur funzt da so natürlich nicht, hat jemand ne idee ???
  Mit Zitat antworten Zitat