FPU-Exceptions abschalten...Delphi Problem ?

[haentschman]

Hallo alle miteinander...

ich habe ein Problem mit dem Netzwerkdruck ( Gleitkommaüberlauf )aus Delphi auf einen HPLaserJet 1600.

Darum habe ich das Forum und Google bemüht und denke das die Abschaltung der FPU-Exceptions der Weg wäre.

Schön und gut...

im Create des Hauptformulars (erst mal auslesen um beim Beenden wieder zurücksetzen zu können )

Delphi-Quellcode:

A:= Get8087CW;

---> Undefinierter Bezeichner Get8087CW !

Idiot habe ich gedacht...vergessen Unit System einzubinden :wall:

gesagt getan...

Delphi-Quellcode:

uses
   Windows, System....bla,bla,bla

---> Bezeichner redefiniert 'System' :wiejetzt:


Ich arbeite mit D5 Professionell...bin ich schon zu alt ???? :gruebel:


Danke für Tipps...

[DeddyH]

Unter Delphi7 geht es :gruebel:

[Namenloser]

Hi,
also in meinem Delphibuch steht was von Default8087CW. Das Buch geht von Delphi 3 aus. Ist es das, was du suchst?

[haentschman]

Hallo...

über google hatte ich eine Referenz aller Delphi Units gefunden.

In der Unit System Standen u.a. Default8087CW, Set8087CW, Get8087CW. Default denke ist zurücksetzen auf Standardwerte.

was ich ja nicht verstehe ist, das auch in der Unit System z.B randomize definiert ist (was ich schon benutzt habe .... ich aber bei Set8087CW oder Get8087CW undefinierte Bezeichner habe.

das ich 'System' redefiniert habe ist dann wieder logisch wenn die Unit System automatisch eingebunden wird.

Doch D5 zu alt ? :gruebel:

[DeddyH]

Ich kann es morgen mal in der Firma versuchen, da hab ich auch Delphi 5.

[haentschman]

Danke schon mal im Voraus...

wenn ich eine andere Lösung für das Netzwerkproblem hätte... :gruebel:

ein User irgendwo hatte das gleiche Problem mit selbigem Drucker. Bei Ihm funktionierte es nach lokaler Installation der Treiber...bei mir nicht ! :(

Da meine Anwendung kpl. Netzwerkfähig ist und ich nicht weiß, ob noch andere Modelle diesen Gleitkommaüberlauf produzieren ist das schon blöd...

PS: In der Firma im Netz klappt es übrigens mit jedem Drucker... :roll:

bis bald...

[DeddyH]

Habe es gerade mit Delphi 5 probiert und siehe da: Get8087CW ist eine unbekannte Anweisung. Default8087CW und Set8087CW sind allerdings vorhanden.

[haentschman]

Hallo Guten Morgen... :-D

Vielen Dank für Deine Unterstützung...

na ja gut... bis zum Set8087CW hatte ich nicht weiter probiert.
Wie setzte ich aber auf den vorhergehenden Zustand zurück wenn ich nicht auslesen kann oder reichen Standardwerte mit Default8087CW ? :gruebel:

bis dann...

[Robert Marquardt]

Einfach die JCL holen. Dort sind alle Funktionen in Jcl8087.pas enthalten.

[haentschman]

Danke...dann geh ich mal suchen. :hi:

[haentschman]

Hallo...

also:

Jcl8087. pas gefunden...
Bibliothekspfad gesetzt...
Unit eingebunden...
Code eingefügt...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPU:= Get8087ControlWord;
  Set8087ControlWord($133F)
end;

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Set8087ControlWord(FPU)
end;

Starten... :roll:

...der Hammer ! ohne Fehler im Netz drucken... :hello:

Danke an Euch und die Jedis... :cheers:

[Robert Marquardt]

Noch ein kleiner Hinweis. Es gibt noch SafeLoadLibrary in der VCL. Wir haben gerade die JCL und JVCL von LoadLibrary auf SafeLoadLibrary umgestellt. Hauptaufgabe von SafeLoadLibrary ist es das FPU Control Word zu sichern und restaurieren, um boese DLLs abzuwehren, die daran drehen.