ASCII direkt an Etikettendrucker schicken

[Hansa]

Zitat von tuxracer78:

Das erste zu lösende Problem scheint zu sein, daß Windows 2000 mich nicht auf den LPT zugreifen läßt.
Werde mich erstmal um diese portio.dll kümmern.

Das erste stimmt nicht. Das zweite ist völlig unnötig.

[tuxracer78]

Also ungefähr so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tf: TextFile;
begin
  AssignFile(tf, 'LPT:1');
  Rewrite(tf);
  Write(tf, #02+'L');
  Write(tf, 'D11'+#13);
  Write(tf, '1A00000001501000123456789'+#13);
  Write(tf, '121100000000100Barcode A'+#13);
  CloseFile(tf);
end;

Da tut sich aber immer noch nichts am Drucker.

[dizzy]

LPT1:

[tuxracer78]

Auch mit LPT1: druckt er nicht.

Ist schon seltsam.

[Hansa]

Nein, was soll der ganze Firlefanz ?

Zitat von tuxracer78:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tf: TextFile;
begin
  AssignFile(tf, 'LPT1:');
  Rewrite(tf);
  Writeln(tf,<BARCODE Beginn ESC Sequenz>+'1234567890123'+<BARCODE Ende ESC Sequenz>);
  CloseFile(tf);
end;

Da tut sich aber immer noch nichts am Drucker.

LPT1: 1 = die Zahl EINS !! Doppelpunkt dahinter !!

ohne das ln am Ende von write wird nichts gedruckt

[tuxracer78]

Sorry, wenn ich mich etwas dämlich anstelle.
Könntest Du die Zeile:
Writeln(tf,<BARCODE Beginn ESC Sequenz>+'1234567890123'+<BARCODE Ende ESC Sequenz>); etwas konkretisieren anhand meines Beispiels? Ich hab's mit und ohne <...> probiert.

Vielen Dank im Vorraus

[Hansa]

Zitat von tuxracer78:

Ich hab's mit und ohne <...> probiert.

...und somit ist das Thema für mich vorerst erledigt. Hier steht alles, was man wissen muß. Und ich habe es so vereinfacht, daß es jeder verstehen müßte. Was soll ich denn "konkretisieren", wenn du nicht mal mit writeln zurechtkommst. 8)

[tuxracer78]

Jetzt lasst mich doch nicht hängen. Jeder steht mal auf dem Schlauch.

[jfheins]

Tipp:
Der Text in den spitzen Klammern (< und >) könnte ein Platzhalter sein,
für den du etwas einsetzen musst ...

[Hansa]

Wenn es Dir gelungen ist, mit writeln mind. 2 Zeilen richtig untereinander zu drucken, dann sehen wir weiter. Ansonsten sind auch noch andere da. 8)