printer.abort funktioniert nicht richtig unter win98

[bernau]

Hi,


ich habe ein ganz kurioses Problem.

Habe folgenden Code:

Delphi-Quellcode:

  printer.Title:='blabla';
  printer.begindoc; // Hier erscheint der Druckjob im spooler
  printer.Canvas.Rectangle(1,1,500,500);
  printer.Abort;  // Hier sollter er wieder aus dem spooler 
                  // entfernt werden, ohne daß etwas gedruckt wird

Das funktioniet auf allen Rechnern einwandfrei, nur auf einem Win98-Rechner bleibt der Job im Spooler. Weis jemand ggf, ob's ein bug in Win98 gibt? Alle Updates sind eingespielt.


Gerd

[Bernhard Geyer]

Viel wichtiger ist welcher Drucker verwendet wird.
Gerade bei Konica-Minolta-Druckern habe ich üble Erfahrungen.

[bernau]

Zitat:

Zitat von Bernhard Geyer

Viel wichtiger ist welcher Drucker verwendet wird.
Gerade bei Konica-Minolta-Druckern habe ich üble Erfahrungen.

Es ist ein HP Laserjet 1010. Dürfte aber nichts mit dem Druckertreiber zu tun haben, da auch zwei weitere (andere) Drucker und ein Preview-Druckertreiber den selben Effekt hervorrufen.


Gerd

[marabu]

Hallo Gerd,

wenn du dir die Implementierung der Methode Abort() anschaust, dann fällt dir vielleicht auf, dass Borland das Ergebnis der Funktion AbortDoc() nicht verwertet. Du könntest zuerst mal prüfen, ob du eine Rückmeldung erhältst.

Grüße vom marabu

[bernau]

Zitat:

Zitat von marabu

wenn du dir die Implementierung der Methode Abort() anschaust, dann fällt dir vielleicht auf, dass Borland das Ergebnis der Funktion AbortDoc() nicht verwertet. Du könntest zuerst mal prüfen, ob du eine Rückmeldung erhältst.

AbortDoc gibt auf meinem Computer -1 (eine Variable mit dem Typ Integer) zurück und auf dem fehlerhaften Computer gibt er 0 zurück.

Nun weis ich aber nicht wirklich, was ich damit anfangen soll. Laut MSDN gibt's folgende Aussage:

Zitat:

Return Values
If the function succeeds, the return value is greater than zero.
If the function fails, the return value is SP_ERROR.

Auf den Rechnern, wo's funktioniert, gibt's den Wert -1, also nix mit value is greater than zero

Ausserdem wüsste ich immer noch nicht, was ich danach für Funktionen aufrufen soll.


Gerd

[ste_ett]

Zitat:

Zitat von bernau

Zitat:

Zitat von marabu

wenn du dir die Implementierung der Methode Abort() anschaust, dann fällt dir vielleicht auf, dass Borland das Ergebnis der Funktion AbortDoc() nicht verwertet. Du könntest zuerst mal prüfen, ob du eine Rückmeldung erhältst.

AbortDoc gibt auf meinem Computer -1 (eine Variable mit dem Typ Integer) zurück und auf dem fehlerhaften Computer gibt er 0 zurück.

Nun weis ich aber nicht wirklich, was ich damit anfangen soll. Laut MSDN gibt's folgende Aussage:

Zitat:

Return Values
If the function succeeds, the return value is greater than zero.
If the function fails, the return value is SP_ERROR.

Auf den Rechnern, wo's funktioniert, gibt's den Wert -1, also nix mit value is greater than zero

Ausserdem wüsste ich immer noch nicht, was ich danach für Funktionen aufrufen soll.


Gerd

Windows.pas:

Delphi-Quellcode:

  { Spooler Error Codes }
  {$EXTERNALSYM SP_NOTREPORTED}
  SP_NOTREPORTED = $4000;
  {$EXTERNALSYM SP_ERROR}
  SP_ERROR = LongWord(-1);
  {$EXTERNALSYM SP_APPABORT}
  SP_APPABORT = LongWord(-2);
  {$EXTERNALSYM SP_USERABORT}
  SP_USERABORT = LongWord(-3);
  {$EXTERNALSYM SP_OUTOFDISK}
  SP_OUTOFDISK = LongWord(-4);
  {$EXTERNALSYM SP_OUTOFMEMORY}
  SP_OUTOFMEMORY = LongWord(-5);

SP_ERROR ist mit -1 definiert.

Aus der MSDN:

Zitat:

Windows NT/2000/XP: To get extended error information, call GetLastError.

-edit-

Ach, Win98 :/
Dazu steht da nix. :)

[bernau]

Zitat:

Zitat von ste_ett

SP_ERROR ist mit -1 definiert.

Was ja widerum der Praxis wiederspricht. Auf dem funktionierenden Rechner erhalte ich -1


Gerd