Delphi 2009 Umstellung Drucker Steuercodes gehen nicht mehr

[Peter60]

Hallo, ich bin gerade dabei eine Anwendung von Delphi2007 auf Delphi2009 umzustellen.
Dabei bin ich auf ein Problem mit den POS Drucker gestoßen, um eine schnelle Druckausgabe
zu gewährleisten verwende ich Escape Sequenzen für die Ansteuerung des Druckers.

Diese funktionieren aber nicht in Delphi 2009.

Wer kennt da eine Lösung!

Peter60
http://www.delphipraxis.net/posting.php?mode=iframe

[divBy0]

POS Drucker? Über serielle Verbindung?

Kann es sein, dass du als Datentyp String benutzt? Dann bekommt der Drucker 2 Byte pro Zeichen. Versuch mal AnsiString.

[Peter60]

Hallo,
Der Drucker verfügt über eine USB Anschluss kann aber auch seriell angeschlossen werden.
Ich habe auch die Strings auf AnsiString umgestellt weil ich es mich schon gedacht habe.

Gruss
Peter60

[mkinzler]

Zitat:

Ich habe auch die Strings auf AnsiString umgestellt weil ich es mich schon gedacht habe.

Und hat das etwas gebracht?

[Peter60]

Leider Nein!
Ich übergeben den String an ein TRichEdit dieser wird dann gedruckt ich vermute das das der Grund ist.

Kleiner Codeauszug
Hier werden die Druckersteuercode zugewiesen

Delphi-Quellcode:

Belegtext.Clear; // TRichEdit
Belegtext.Lines.Append(#27+#64); // Drucker initialisieren
Belegtext.Lines.Append(#27+#77+#48);
Belegtext.Lines.Append(#27+#82+#2); // Deutscher Zeichensatz //FKasse.Belegtext.Lines.Append('ÄÖÜßäöüß');
Belegtext.Lines.Append('Bla Bla');
DruckeRoh_String(Belegtext.Text, Drucker);

.....
Dann wird diese Procedure aufgerufen:
.....

Delphi-Quellcode:

procedure DruckeRoh_String(DruckText:AnsiString; Drucker :integer);
var Printer1 : array [0..255] of char;
    p       : Integer;

  function RawDataToPrinter(const szPrinterName : Ansistring;
                            const data:Ansistring;
                            dwCount : DWORD) : boolean;
  var
    hPrinter       : THandle;
    DocInfo        : TDocInfo1;
    dwJOB          : DWORD;
    dwBytesWritten : DWORD;
  begin
    Result := False;
    if OpenPrinter (pchar (szPrinterName), hPrinter, Nil) then
      try
        // Fill in the structure with info about this "document"
        DocInfo.pDocName := 'Belegdruck';
        DocInfo.pOutputFile := Nil;
        DocInfo.pDatatype := 'RAW';
        // Inform the spooler the document is beginning
        dwJob := StartDocPrinter (hPrinter, 1, @docInfo);
        if dwJob <> 0 then
          try
            if StartPagePrinter (hPrinter) then
              try
                if WritePrinter (hPrinter, Pchar(data), dwCount, dwBytesWritten) then
                  Result := dwBytesWritten = dwCount;
              finally
                EndPagePrinter (hPrinter)
              end
          finally
            EndDocPrinter (hPrinter);
          end
      finally
        ClosePrinter (hPrinter)
      end
  end; {RawDataToPrinter}

begin
  GetProfileString ('windows', 'device', ',,,', Printer1, Sizeof(Printer1));
  p := Pos (',', Printer1);
  if p > 0 then
    Printer1 [p - 1] := #0;

  RawDataToPrinter (Printer1, DruckText, length(DruckText));
end;

Peter60

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Der RichEdit verwendet intern UniCode.

[Peter60]

Nur falls noch jemand das gleiche Problem hatte hier die Lösung!

Delphi-Quellcode:

Belegtext.Clear; // TRichEdit
Belegtext.Lines.Append(#27+#64); // Drucker initialisieren
Belegtext.Lines.Append(#27+#77+#48);
Belegtext.Lines.Append(#27+#82+#2); // Deutscher Zeichensatz //
Belegtext.Lines.Append('ÄÖÜßäöüß');
Belegtext.Lines.Append('Bla Bla');

Anstatt diese Zeile

Delphi-Quellcode:

DruckeRoh_String(Belegtext.Text, Drucker);

diese Zeile

Delphi-Quellcode:

DruckeRoh_String(UTF8String(Belegtext.Text), Drucker);

dann funktionieren auch die Steuerzeichen beim Drucker


Trotzdem Danke für eure Hilfe

Peter60

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]

[schmitt]

Vielen Dank
auch für mich war es die Lösung!
Gruß schmitt