escape Sequenzen an drucker senden Wer kann helfen?

[Willi1960]

Hallo,

Ich arbeite mit Delphi 1.0 und möchte folgende Escape Sequenz an den Drucker senden. Habe aber keine Ahnung wie ich das machen soll. Hab schon so viel probiert.

Die Sequenz soll mfolgendermaßen aussehen 27/112/0/50/50

[Sunlight7]

Hallo, ich wieder

Hast es mit WritePrinter versucht?
Sofern das das Richtige ist

Edit: Ach ne, das gabs ja in Win3.x noch net
AssignPrn?, Das gibts aber.

[Willi1960]

Hallo,

mit assignprn habe ich es noch nicht ausprobiert. werde ich gleich mal tun.

[Sunlight7]

Was möchtest Du genau tun?
Nen Druckvorgang abbrechen?

Da gäbs auch AbortDoc in der API.

[Willi1960]

ich bin dabei mir ein Kassenprogramm zu bauen, und diese Escape Sequenz soll über den Drucker angschlossene Kassenschublade öffnen.

[Sunlight7]

Das hab ich noch nich' probiert
So gut kenn' ich mich da dann auch wieder net aus

Okay, wenn Du dem Drucker Direkt Befehle geben willst, fällt mir in Win3.x momentan nur SpoolFile ein.

[Willi1960]

Hört sich gut an.

Da werde ich heute abend wohl erst mal Bettlektüre studieren.

Aber scheint ein guter weg zu sein.

[Sunlight7]

Und was wurde aus der Bettlektüre?

Eine schlaflose Nacht?
Oder war es so langweilig, das Du gleich eingeschlafen bist

[Hansa]

Stichworte für die Delphi-Hilfe : AssignFile, rewrite, CloseFile, TextFile, writeln usw. Muss man eben genauer alles durchlesen.

Ist das geklärt dann geht das :

Zitat von Willi1960:

Die Sequenz soll mfolgendermaßen aussehen 27/112/0/50/50

so :

Delphi-Quellcode:

var LPT1 : TextFile;
...
assign...
rewrite...
write (LPT1,#27#112#0#50#50);  // das Ding geht auf, sofern Drucker richtig eingestellt

[Reinhard Kern]

Zitat von Willi1960:

Hallo,

Ich arbeite mit Delphi 1.0 und möchte folgende Escape Sequenz an den Drucker senden. Habe aber keine Ahnung wie ich das machen soll. Hab schon so viel probiert. :wall:

Die Sequenz soll mfolgendermaßen aussehen 27/112/0/50/50

:?:

Hallo,

an einen normal installierten Drucker können Direktbefehle nur mit der Escape-Funktion mit dem Parameter PASSTHROUGH gesendet werden.

iresult := Escape (PrinterHandle,PASSTHROUGH,Length(EscString),EscSt ring,0);

Gruss Reinhard