Ungültiger numerischer Wert für Operation

[Werner_Bayern]

Code: Alles auswählen

Xbase++ Version     : Xbase++ (R) Version 1.90.355
Betriebssystem      : Windows XP 05.01 Build 02600 Service Pack 3
------------------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: N VALUE: -5
          -> VALTYPE: N VALUE: 1
oError:canDefault   : N
oError:canRetry     : N
oError:canSubstitute: J
oError:cargo        : NIL
oError:description  : Ungültiger numerischer Wert für Operation
oError:filename     : 
oError:genCode      :         12
oError:operation    : <-5>==<1>
oError:osCode       :          0
oError:severity     :          2
oError:subCode      :          5
oError:subSystem    : BASE
oError:thread       :          1
oError:tries        :          0

Was soll das denn???? Die Codezeile ist:

Code: Alles auswählen

if .not. oDrucker:printerStatus() == XBPPRN_STATUS_READY

Der Ausdruck ist also:

Code: Alles auswählen

if .not. -5 == 1

Wer hatte das schon mal?

Danke!

[Klaus Stebner]

Hallo Werner,

nimm doch den einfachen Gleichheits-Operator "="

Code: Alles auswählen

if .not. (-5 = 1)

eventuell noch in Klammern.

[brandelh]

Ich meine auch, dass == nur für Strings verwendet werden SOLL, meist geht es ja gut

[Werner_Bayern]

Danke Hubert,
mach ich aber schon seit > 20 Jahren, weil "==" schneller als "=". Werde es hier testen, geht aber erst morgen, weil der Fehler nur bei einem best. Kunden auftritt.

[Jan]

Ich benutze "==" auch für alle Variablenarten (String, Num, Array, ...). Wie das allerdings Deine Fehlermeldung oben produzieren kann ... Mir so ersteinmal unverständlich. Klappt das denn mit den von Klaus vorgeschlagenen Klammern?

Jan

[Werner_Bayern]

Der Kunde hat gestern Abend noch alle nicht unbedingt benötigte Drucker gelöscht, jetzt geht es ohne Fehlermeldung, mit und ohne Codeanpassung!

Aber nochmal, es ist doch kein Xbase-Fehler, beide Ausdrücke sind numerisch???

Danke euch!

[Tom]

Das hier läuft anstandslos. Übrigens dauern die beiden Vergleichsiterationen (je eine Million Durchläufe) auf meinem Testsystem jeweils exakt 0,11 Sekunden insgesamt. Es ist also kein signifikanter Geschwindigkeitsunterschied zwischen "=" und "==" festzustellen.

Code: Alles auswählen

function main()
local x1 := -5, x2 := 1, nTime, i
? !x1 == x2
? .not. -5 == 1

? Seconds()
for i := 1 to 1000000
	l := !x1 == x2
next
? Seconds()
for i := 1 to 1000000
	l := !x1 = x2
next
? Seconds()
return nil

[Werner_Bayern]

Danke Tom,
aber das bringt mich leider nicht weiter.
Nach dem Löschen einiger Drucker kann ich das Problem auf dem Kundensystem nicht mehr nachvollziehen. Definitiv dürfte die Eingangs-Fehlermeldung von Xbase nicht kommen, Zahlenvergleich (-5 mit 1) ist legitim.

[AUGE_OHR]

Nach dem Löschen einiger Drucker kann ich das Problem auf dem Kundensystem nicht mehr nachvollziehen.

bevor er zu einer solchen Abfrage nach dem XBPPRN_STATUS_READY kommst muss du ja erst mal ein oPrinter Object (XbpPrinter()) erzeugen... wie "prüfst" du das ?

if .not. oDrucker:printerStatus() == XBPPRN_STATUS_READY

Der Ausdruck ist also:
Code: if .not. -5 == 1

NEIN den -5 bedeutet XBPPRN_STATUS_NA

ich "denke" deine "PrinterPS" zum erzeugen des oPrinter Object kann keine "Verknüpfung" zum Device Context durchführen.

Frage : handelt es sich dabei um "Netzwerk" Drucker ?

ich hatte im Alaska Forum von James Loughner

is o:paperbin online ?
archived.generic
23. Mai 2005

eine Lösung bekommmen.

eine längere Diskussion über meine ( funktionierende ) PrinterPS() ergab sich dann im Thread

xbpprinter printerstatus
public.xbase++.generic
29. Januar 2008

Code: Alles auswählen

FUNCTION PRINTERPS( cPrinter, nCopies, nPaperBin )
LOCAL oDC    := XbpPrinter():New()
LOCAL oPS
LOCAL aPB, i, iMax                               // Array Paperbins
LOCAL lRaus  := .T.
LOCAL lPFail := .F.
LOCAL oDlg, oPrinter, cText, nStatus
LOCAL nDummy
LOCAL aPrint := oDC:list()
LOCAL nPrint := 0

   DEFAULT nCopies TO 1

   oLastPRN := NIL

   BEGIN SEQUENCE

      nPrint := ASCAN( aPrint, { | x | ( ID_DRUCK ) $ UPPER( x ) } )
      IF nPrint > 0
         cPrinter := aPrint[ nPrint ]
      ENDIF

      IF cPrinter != NIL                         // if NIL use Windows default?
         cPrinter := TRIM( cPrinter )
      ENDIF

//
//    NIL does not work (like in older help file sample)
//
//    IF oDC:Create( cPrinter ) == NIL

//
//    Solution see Alaska Newsgroup
//
      IF oDC:Create( cPrinter ) == oDC    // = self
      ELSE
         MsgBox( "! Drucker ist Offline !" )
         BREAK                                     // raus
      ENDIF

      nStatus := oDC:PrinterStatus()

      DO CASE
         CASE nStatus == 1

sieh dir mal die Zeile

Code: Alles auswählen

IF oDC:Create( cPrinter ) == oDC    // = self

an. nur wenn das XbpPrinter() Object, nach dem o:create(), noch "exakt" das selbe ist nur dann ist der Device Context mit "dem" Drucker verbunden.

[Werner_Bayern]

Servus Jimmy,
ja, ich erzeuge selbstverständlich vorher das Druckerobjekt. Nein, es sind in diesem Fall keine Netzwerkdrucker.
Ja, -5 mag schon sein, dass es NA ist, aber trotzdem darf dort das Programm doch nicht mit einer Fehlermeldung aus der errorsys aussteigen, weils einfach nur ein Vergleich von 2 numerischen Variablen ist.
Oder sehe ich das falsch?

So sieht der Code aus:

Code: Alles auswählen

oDrucker := XbpPrinter():new()
aDrucker := oDrucker:list()
aSort(aDrucker)
nLaenge := len(aDrucker)
if nLaenge == 0
   fehler("Es sind keine Drucker installiert!")
endif
for i := 1 to nLaenge
   oDrucker:create(aDrucker[i])
   if .not. (oDrucker:printerStatus() = XBPPRN_STATUS_READY)

In der letzten Zeile knallt es dann. Ich kann hier keinen Fehler von mir sehen.

[Tom]

Irgendwie gibt es ein Fließkommaproblem. Setz die Rückgabe des Printer-Objekts doch mal in Val(Str()).

[Herbert]

Ich denke, Jimmy sieht das Problem korrekt. Weil kein Druckerobjekt erstellt werden konnte, kann auch kein Printerstatus ermittelt werden.
Die Errorsys zeigt -5 an, doch wie wird dies ermittelt und angezeigt? Denn dies kann kaum der Fall sein, sonst würde ja der Test funktionieren.
Also, vorher das Printerobjekt auf Error abfangen, so hast du auch keine Probleme mehr mit dem Printerstatus.

[Werner_Bayern]

Was kann ich nach dem create() auf Fehler abfragen?
Das hier?

Code: Alles auswählen

if .not. valtype(oDrucker:create(aDrucker[i])) == "O" .or. .not. val(str(oDrucker:printerStatus())) == XBPPRN_STATUS_READY

Das hier wird wohl zu gefährlich sein, wenn das Objekt ja evtl. nach dem create() nicht erfolgreich erzeugt wird:

Code: Alles auswählen

:isDerivedFrom()

[brandelh]

Ich mache das in etwa so ... (verborgen in meiner Druckerklasse)

Code: Alles auswählen

oDC := XbpPrinter():New()
oDC:Create(cPrinterName)

do case
     case IsNil(oDC) .or. oDC:Status() = XBP_STAT_FAILURE 
            // Fehler bei Create, melden
     case ! oDC:isDerivedFrom( "XbpPrinter" ) 
            // was für ein Objekt dann ?
     case ! IsMethod(oDC,"printerStatus") 
            // verschen ohne Abfrage von PrinterStatus ?
     case oDC:printerStatus() # XBPPRN_STATUS_READY  
           // Fehler, man kann sich aber streiten ob bei eingehaltener Druckerwarteschlang ein Fehler angezeigt werden soll !
     otherwise
           // jetzt geht es auf jeden Fall
end        

[AUGE_OHR]

Ja, -5 mag schon sein, dass es NA ist, aber trotzdem darf dort das Programm doch nicht mit einer Fehlermeldung aus der errorsys aussteigen, weils einfach nur ein Vergleich von 2 numerischen Variablen ist.
Oder sehe ich das falsch?

Code: Alles auswählen

oDrucker := XbpPrinter():new()
aDrucker := oDrucker:list()
aSort(aDrucker)
nLaenge := len(aDrucker)
if nLaenge == 0
   fehler("Es sind keine Drucker installiert!")
endif
for i := 1 to nLaenge
   oDrucker:create(aDrucker[i])
   if .not. (oDrucker:printerStatus() = XBPPRN_STATUS_READY)

In der letzten Zeile knallt es dann. Ich kann hier keinen Fehler von mir sehen.

und ich sehe mehrere ...

du erzeugst 1 x oDrucker aber in einer Schleife "mehrfach" oDrucker:create(aDrucker) das geht schon mal gar nicht ( auch wenn Xbase++ nicht meckert ... )

was nun die Fehlermeldung von Xbase++ angeht ist ja bekannt das es nicht immer "direkt" auf das Problem verweist.
ich habe deshalb extra auf die beiden Threads im Alaska Forum verwiesen woraus mein endgültiger funktionierender Code entstand.

Code: Alles auswählen

IF oDC:Create( cPrinter ) == oDC

diese eine Zeile macht den Unterschied aus. nur wenn der cPrinter als Device Content verbunden werden konnte wird "==" eintreten. bei Netzwerk Druckern muss man diese z.t. erst aus dem "Sleep" Modus holen -> Timeout und nicht "==" und bei USB Druckern oft das selbe.

p.s. ich schalte immer auf "drucke direkt" ... zumindest die Fehlermeldung kommt dann schneller.

[brandelh]

Hi,

Code: Alles auswählen

IF oDC:Create( cPrinter ) == oDC

ich prüfe direkt auf # nil ab, da ich irgendwann einmal erlebt habe, dass oDC:Create( cPrinter ) NIL zurückgegeben hat.
Wenn es aber vorher schon NIL war, dass gibt das oben .t.
Möglich, dass es ein Fehler der damaligen Xbase++ Version war, oder vom Druckertreiber, es kann auch sein dass es noch unter OS/2 war ...
ich weiß es nicht mehr. Dennoch prüft meine Klasse in der obigen Reihenfolge zunächst ob oDC gleich NIL ist. Sicher ist sicher.

[Werner_Bayern]

Servus Jimmy,

danke. Das create funktioniert aber, ich frage in der nächsten Zeile dann nur die Schächte ab. Es geht also um den Setup-Dialog der Drucker, wo der Benutzer dann die jeweiligen Drucker für die jew. Anwendungsfälle einstellt. Gedruckt wird hier nicht.

Du meinst aber trotzdem, dass ich das create auf oDrucker nicht mehrfach machen darf? Für mich geht das aus der Xbase-Hilfe nicht eindeutig hervor.

IF oDC:Create( cPrinter ) == oDC

Hab ich ja im Prinzip schon eingefügt:

Code: Alles auswählen

if .not. valtype(oDrucker:create(aDrucker[i])) == "O" 

[brandelh]

Hi,

du kannst mehrere Variablen mit verschiedenen Druckerobjekten erzeugen, das ist erlaubt.
du kannst auch alle in einer Schleife abarbeiten, dann muss aber vor dem nächsten Create erst ein destroy kommen.

OK:

Code: Alles auswählen

for x := 1 to len(aDrucker[x])
   oX := XbpPrinter():new()
   oX:create(aDrucker[x])  // sollte gehen ...
   ...
   oX:destroy() // wichtig um Systemresourcen freizugeben 
next

Resourcenfresser:

Code: Alles auswählen

for x := 1 to len(aDrucker[x])
   oX := XbpPrinter():new()                       // hier überschreibt das neue Objekt die alte Objektvariable, 
   oX:create(aDrucker[x])                         // daher gibt es hier keinen Fehler, aber die Resourcen wurden nicht frei gegeben !
   ...
next

Fehlerhaft ...

Code: Alles auswählen

oX := XbpPrinter():new()                       
for x := 1 to len(aDrucker[x])
   oX:create(aDrucker[x])                          // beim zweiten Durchlauf müsste hier ein "falscher Objekt Status" Fehler kommen.
   ...
next

Ich würde aber die Schächte etc. nur einmalig für einen Drucker ermitteln und zusammen mit dem exacten Namen z.B. in einer INI speichern.
Wenn der Name übereinstimmt, Infos aus INI laden, wenn nicht direkt ermitteln und speichern.

[AUGE_OHR]

IF oDC:Create( cPrinter ) == oDC

Hab ich ja im Prinzip schon eingefügt:

Code: Alles auswählen

if .not. valtype(oDrucker:create(aDrucker[i])) == "O" 

NEIN das ist wirklich noch was anderes als "nur" ein Object.

Code: Alles auswählen

IF oDC:Create( cPrinter ) == NIL

ich prüfe direkt auf # nil ab

wie du sehen kannst hatte ich das bis zum Jahr 2005 auch so gemacht. seit dem läuft die andere Routine und fängt ein "Offline" ab.

[Werner_Bayern]

Servus Hubert,

das mache ich eh so, hier die erweiterte Auszug aus der Routine, anschließend wird das alles sauber - einmalig - in einer ini gespeichert:

Code: Alles auswählen

oDrucker := XbpPrinter():new()
aDrucker := oDrucker:list()
aSort(aDrucker)
nLaenge := len(aDrucker)
if nLaenge == 0
   fehler("Es sind keine Drucker installiert!")
endif
aSchaechte := array(nLaenge)
for i := 1 to nLaenge
   if .not. valtype(oDrucker:create(aDrucker[i])) == "O" .or. .not. val(str(oDrucker:printerStatus())) == XBPPRN_STATUS_READY
      fehler("Drucker " + aDrucker[i] + " nicht verfügbar: " + chr(13) + cPrinterStatus(oDrucker:printerStatus()))
      aSchaechte[i] := {{0, ""}} // Laufzeitfehler vermeiden
   else
      aSchaechte[i] := oDrucker:paperBins()
   endif
   oDrucker:destroy()
next i

[AUGE_OHR]

das mache ich eh so, hier die erweiterte Auszug aus der Routine, anschließend wird das alles sauber - einmalig - in einer ini gespeichert:

läuft der Code nur "einmalig" beim Install oder jedesmal beim drucken ?

Code: Alles auswählen

oDrucker := XbpPrinter():new()
for i := 1 to nLaenge
   if .not. valtype(oDrucker:create(aDrucker[i])) == "O"
      // wenn ein o:create fehlschlägt 
   else
      aSchaechte[i] := oDrucker:paperBins()
   endif
   // was passiert dann bei einem o:destroy() ?
   oDrucker:destroy()
next i

ich bin mir nicht sicher was man hier, in der Schliefe, nach einem fehlgeschlagenem o:create() machen sollte …
kann ich was o:destroy() was nicht o:create() wurde ?

[Werner_Bayern]

Servus Jimmy,
ja, läuft nur einmalig, wie geschrieben.
Den 2. Teil verstehe ich nicht, was Du meinst.