Registriert seit: 17. Jan 2004
25 Beiträge
|
Re: Datei auf LPT1: Drucken
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 ???
|