Knowledge Base Nr: 00017 drucken.txt - http://www.swe-kaiser.de

Downloads:

Drucken einer Datei unter Linux und Oracle Forms und Ausgabe des Ergebnisses.
Pr�ft den Druckerstatus vor dem Drucken und verhindert im Gegensatz zum
Kopierbefehl 'cp' das Blockieren.wenn der Drucker nicht bereit ist.
Umgeht den Printspooler und druckt direkt auf den Druckerport.

  

/************ CHARGENBEGLEITKARTE ERSTELLEN UND DRUCKEN *****************************************/

  PROCEDURE PRINT_CHARGENKARTE IS
...
  BEGIN
    select nvl(herstelldate,sysdate)
     into vdate
     from lr.fecharge
     where fertnr = :PARAMETER.P_FERTNR
     and cfertnr = :PARAMETER.P_CFERTNR;
...
-- Druckausgabe vorbereiten
    error := PCL_SUPPORT.PCL_INIT('Palkarte.dat',1); -- Dateinamen, 1=Quer/2=Hoch
...
-- Linien, Texte und Barcodes aufbereiten
    error := PCL_SUPPORT.PCL_LINEOUT(5,3,286,3,0.3);
    error := PCL_SUPPORT.PCL_TEXTOUT(72,53,vVDATE,9,0,1);
    error := PCL_SUPPORT.PCL_BARCODEOUT(95,30,:FEKOPF.FANR,8,150);
                     -- x-pos,y-pos,text,h�he mm,aufl�sung in dpi
...
-- Drucken mit Fehlerbehandlung
    error := PCL_SUPPORT.PCL_Close;
    if error != 0 then
      vText := PCL_SUPPORT.GET_PRTERROR('');
      HTXT.SHOW_ERROR('Druckerfehler: ' || vText,0,1);
    else
      HTXT.SHOW_ERROR('Drucke Chargenkarte...',2,0);
    end if;
  EXCEPTION WHEN OTHERS THEN
    HTXT.SHOW_ERROR('Keine Daten',2,0);
  END PRINT_CHARGENKARTE;

/************ DRUCKEN durch Aufruf von 'printfile' *****************************************/

FUNCTION PCL_Close RETURN PLS_INTEGER IS rc PLS_INTEGER;
...
BEGIN
...
  v_text := './printfile '||v_filename||' /dev/lp0 >'||v_filename||'.log';
  host (v_text);

-- Pr�fen ob host-aufruf erfolgreich war
  if FORM_SUCCESS then
    return 0;
  else
    return -1;
  end if;
END PCL_Close;


/************ DRUCKPROGRAMM 'printfile' **************************/

int getPrinterStatusSeriell()
{
  //ACHTUNG: Die Portadressen und die zur�ckgelesenen Werte
  //         sind abh�ngig von Rechnerhardware und Druckertyp!
  const int IOBASE = 0x2f8; //3f8,2f8,3e8,2e8
  const unsigned char DRUCKER_OK = 0xa0;  //Bitmuster Statusleitungen wenn alles ok.

  //berechtigung freischalten
  int nErr = ioperm(IOBASE, 8, 1);
  if (nErr)
  {
    printf("\nError: ioperm(0x%04X): %d %s\n", IOBASE, errno, strerror(errno));
    return -1;
  }

  unsigned char uc1,uc7;
  uc1 = inb(IOBASE);    //f.e. 0x3f8
  uc7 = inb(IOBASE+6);  //f.e. 0x3fe

  //durch Ausprobieren ermittelt
  if (((uc7 & DRUCKER_OK) == DRUCKER_OK) && (uc1 != 0))
    return 1;
  else
    return 0;
}

int main(int argc, char *argv[])
{
...
  FILE* fp = fopen(argv[1], "r");
  if (!fp)
  {
    sprintf(szMsg, "Error: Datei <%s> kann nicht ge�ffnet werden -> %d %s", argv[1], errno, strerror(errno));
    my_exit(-2, szMsg);
  }

  FILE* pr = fopen(argv[2], "w");
  if (!pr)
  {
    sprintf(szMsg, "Error: drucker <%s> kann nicht ge�ffnet werden -> %d %s", argv[2], errno, strerror(errno));
    my_exit(-30, szMsg);
  }

  int nStatus = -1;
  char* pPrn = "";
  if (strstr(argv[2], "tty")) //rs232 oder centronics?
  {
    pPrn = "seriell";
    nStatus = getPrinterStatusSeriell();
  }
  else
  {
    pPrn = "parallel";
    nStatus = getPrinterStatusParallel();
  }

  if (nStatus < 0)
  {
    sprintf(szMsg, "Error: Druckerstatus(%s) <%s> kann nicht abgefragt werden -> %d %s", pPrn, argv[2], errno, strerror(errno));
    my_exit(-31, szMsg);
  }
  else if (nStatus == 0)
  {
    sprintf(szMsg, "Error: Drucker(%s) <%s> nicht bereit -> %d %s", pPrn, argv[2], errno, strerror(errno));
    my_exit(-32, szMsg);
  }

  while (!feof(fp))
  {
    const int MAXBUFFER = 200;
    unsigned char cBuffer[MAXBUFFER+1] = {0};

    int n = fread(&cBuffer, 1, MAXBUFFER, fp);
    if (ferror(fp))
    {
      sprintf(szMsg, "Error: Beim Lesen von Datei <%s> -> %d %s", argv[1], errno, strerror(errno));
      my_exit(-4, szMsg);
    }

    if (n>0)
    {
      fwrite(&cBuffer, 1, n, pr);
      if (ferror(pr))
      {
        sprintf(szMsg, "Error: Beim Drucken auf <%s> -> %d %s", argv[2], errno, strerror(errno));
        my_exit(-5, szMsg);
      }
    }
  }

  fclose(fp);
  fclose(pr);

  sprintf(szMsg, "OK: Datei <%s> auf Drucker <%s> ausgegeben.", argv[1], argv[2]);
  my_exit(0, szMsg);
}