ecape-sequenz zum drucker

[Daniel]

Wenn ich das richtig verstehe, geht die Kommunikation über den seriellen Port. Wenn man den Datenstrom einfach loggt? Viel dürfte es ja nicht sein, was da kommt und vielleicht hätte man dann einen Anhaltspunkt. Ich habe gerade mal mit Google gesucht und es scheint da diverse kostenfreie Tools zu geben, die den Port abhören können (oder dies zumindest versprechen).

[khh]

und was hast du gefunden ?

Mir brennt leider die Zeit unter den Nägeln

[Daniel]

Oh sorry, also z.B. http://www.commfront.com/232default.htm, die limitierte Version ist kostenfrei. Welche Limits das sind und ob diese Dich tangieren, siehst Du hier: http://www.commfront.com/232analyzer-faq.htm#8

//edit: hm. Wenn ich das richtig sehe, würdet Du genau das Monitoring benötigen, was natürlich in der kleinen Version nicht enthalten ist.

[Daniel]

Vielleicht wäre der hier besser: http://www.aggsoft.com/serial-data-logger/download.htm

[khh]

Zitat von Daniel:

Vielleicht wäre der hier besser: http://www.aggsoft.com/serial-data-logger/download.htm

danke probiere ich gleich mal aus

ich melde mich dann wieder

[khh]

Zitat von khh:

Zitat von Daniel:

Vielleicht wäre der hier besser: http://www.aggsoft.com/serial-data-logger/download.htm

danke probiere ich gleich mal aus

ich melde mich dann wieder

ok, ausprobiert

bei aktivem Logger stürzt Windows beim Schreiben auf den Com-Port mit Bluesceen ab

[himitsu]

Soll jetzt geloggt werden, wie die Übertragung läuft, oder nur was übertragen wird?

Bei Letzterem könnte man auch einfach mal schnell ReadFile und WriteFile hooken.
(falls keines der großen Tools funktionieren will)

[Neumann]

Wenn der Windows-Druckertreiber installiert ist, blockiert dieser den Comport. Kein anderes Programm kann ihn dann verwenden. Man kann dann aber einfach den Befehl zum Öffnen der Schublade als Textzeile mit der Schrift 'Control' an den Drucker senden. Ist nur ein Buchstabe, welcher müsste ich nachsehen.

Warum die elende serielle Schnittstelle für den Drucker? Ist extrem langsam und veraltet. Drucken von Graphiken und Truetype-Schriften ist damit unzumutbar.

Weiter habe ich gesehen, dass der Kassenrechner selbst eine Schnittstelle für eine Kassenschublade hat. Warum nicht die verwenden?

Habe das bei Kassenrechnern anderer Herstellern gemacht, funktioniert gut. Hier mal meine Routine, die mit nahezu allen Anschlußmöglichkeiten klarkommt:

Delphi-Quellcode:

procedure opendrawer;
Var 
     FH:THandle; 
     Buff: array[0..5] of char; 
     RetW:DWORD;
     port:string;
begin
 if dm.SchubladeVonRechner then
    begin
      if dm.SchubladeHWPort>$8000 then // Schublade an Drucker mit LPT
      begin
        port:='lpt'+inttostr(dm.SchubladeHWPort-$8000);
        FH:= CreateFile(PChar(Port),
                               GENERIC_READ or GENERIC_WRITE,
                               0, Nil, OPEN_EXISTING, 0, 0);
        if (FH <> INVALID_HANDLE_VALUE) then
        try
           Buff:=#27#112#48#50#250;             // Escape-Sequenz 
           WriteFile(FH, Buff, 5, RetW, Nil);
        finally
           CloseHandle(FH);
        end;
        FH:= CreateFile(PChar(Port),
                                   GENERIC_READ or GENERIC_WRITE,
                                   0, Nil, OPEN_EXISTING, 0, 0);
        if (FH <> INVALID_HANDLE_VALUE) then
        try
           Buff:=#27#112#49#50#250;            // Zweiter Anschluss
           WriteFile(FH, Buff, 5, RetW, Nil);
        finally
           CloseHandle(FH);
        end;
      end else
      begin
        portwriteb( dm.SchubladeHWPort,dm.SchubladeAuf );  // Schublade am Rechner angeschlossen Strom ein man braucht zlportio (Torry?)
        Timerschublade.Enabled:=true;                      // Schaltet Strom wieder ab
      end;
    end else
      if dm.Schubladedirekt then                           // IBM-Kasse mit Steuerung Schublade über Comport (vacommx: Tcomport)
      begin
        if not (dm.displayport=dm.Schubladecomnr) then
        vacomm3.WriteStr(dm.Schubladecm) else
        vacomm2.WriteStr(dm.Schubladecmd);
      end else
      begin
        if (dm.Steuertextoption=2) or (dm.Steuertextoption=1)  then
        begin
          switchprinter(dm.Steuertextdrucker);
          if fileexists(dm.steuertext) then
          begin
            redbeleg.lines.LoadFromFile(dm.steuertext);  // RTF-Text mit Steuerzeichen, senden über Druckertreiber
            redbeleg.Print('');
          end else
          begin
            messagedlg(_('Schubladen - Steuertext konnte nicht gefunden werden'),mterror,[mbok],0);
          end;
        end;
      end;

[khh]

Zitat von Neumann:

Wenn der Windows-Druckertreiber installiert ist, blockiert dieser den Comport. Kein anderes Programm kann ihn dann verwenden. Man kann dann aber einfach den Befehl zum Öffnen der Schublade als Textzeile mit der Schrift 'Control' an den Drucker senden. Ist nur ein Buchstabe, welcher müsste ich nachsehen.

Warum die elende serielle Schnittstelle für den Drucker? Ist extrem langsam und veraltet. Drucken von Graphiken und Truetype-Schriften ist damit unzumutbar.

Weiter habe ich gesehen, dass der Kassenrechner selbst eine Schnittstelle für eine Kassenschublade hat. Warum nicht die verwenden?

Habe das bei Kassenrechnern anderer Herstellern gemacht, funktioniert gut. Hier mal meine Routine, die mit nahezu allen Anschlußmöglichkeiten klarkommt:

ich danke dir gewaltig

werd ich gleich mal ausprobieren

apropo schriftart

das mit der schriftart control hab ich auch gelesen, wo aber bekomme ich die her ?

[Neumann]

Nachtrag: Die Procedure ist mit einer älteren Delphi-Version verendet worden. Ev. ist Anpassung an Unicode nötig.

Schrift Control stellt der Druckertreiber zur Verfügung.

Vorgehensweise (WIN XP, 7 noch nicht getestet:

Wordpad öffnen
Menue Datei - Drucken
Bondrucker auswählen
Übernehmen
Abbruch
Jetzt sollte die Schrift Control verfügbar sein, ebenso andere Druckeschriften, wie z.B. FontA11 bei Epson

Wenn mann den Befehl an den Drucker auf diese Weise schickt, "druckt" dieser ev. einen kleinen Streifen leeres Papier. Kann man meines Wissens nicht abstellen. Besser ist den Befehl t.B. im Bonkopf mitzuschicken.

Ist die Schublade am Drucker angeschlossen oder am Rechner selber?

Am Rechner: portwriteb( Port,Wert ); (zlportio) Werte für Port und Bitmaske sollte in der Doku des Rechners stehen