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. :wall:

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

:?:

[Sunlight7]

Hallo, ich wieder :mrgreen:

Hast es mit WritePrinter versucht?
Sofern das das Richtige ist :gruebel:

Edit: Ach ne, das gabs ja in Win3.x noch net :stupid:
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]

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

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? :cat:
Oder war es so langweilig, das Du gleich eingeschlafen bist :mrgreen:

[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:

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:

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