Floating Point division by zero

[Furtbichler]

Haben die Seiten keine API? Wäre das nicht besser? Ist es überhaupt erlaubt/erwünscht, das die Ameldung über Bots ausgeführt wird (Stichwort: AGB)?

[Erutan]

Zitat:

Haben die Seiten keine API?

Doch, aber deren Nutzung lassen sich die Betreiber zumeist teuer bezahlen. Würde nur Sinn machen wenn ich aus der Sache ein Geschäft machte. Will ich aber nicht. Ich will ja nur ein Tool für meine eigenen Zwecke. Darüber hinaus reagieren rund 30% der Betreiber gar nicht auf Anfragen. Hab' ich schon versucht.

Zitat:

Ist es überhaupt erlaubt/erwünscht, das die Ameldung über Bots ausgeführt wird (Stichwort: AGB)?

Die meisten Betreiber schließen Bots per AGB aus. Das ist auch verständlich, denn die meisten verdienen an der geschalteten Werbung. Mein Tool ruft aber alle Seiten vollständig auf wie ein normaler Browser. Der einzige Unterschied ist, daß es die Formulare automatisch ausfüllt.

Eine Grauzone vielleicht und den Betreibern sicherlich nicht leicht verständlich zu machen. Ich besuche diese Seiten ohnehin täglich, logge mich ein, fülle die Formulare aus und sende sie ab. Das alles dauert nur mehrere Stunden. Mit dem Tool könnte ich die Arbeit in einer Stunde erledigt haben. Das Ergebnis für die Seitenbetreiber wäre das gleiche - nur für mich würde es eine Zeiteinsparung bedeuten.

Damit das nicht in ein falsches Licht gerät, möchte ich hier mal kurz erklären: Pressemitteilungen bedeuten für die Presseportale unabdingbar wichtigen Content, der die Inhalte der Portale darstellt. Es ist nichts Unrechtes was ich mit meinem Tool mache.

Alle Daten direkt via IdHTTP an die Portale zu versenden wäre da schon bedenklicher.

[jaenicke]

Du könntest Chromium Embedded versuchen.

Mit Delphi XE4 funktioniert dein Quelltext jedenfalls ohne jeglichen Fehler, ich habe es gerade ausprobiert.
// EDIT:
Ah, doch, jetzt habe ich den Fehler auch.

// EDIT2:
Das Tag ohne Name ist fieldset auf dem offenen Presseportal. Aber warum nimmst du nicht einfach das Exit im try..except weg, dann funktioniert es doch...
Oder du prüfst eben wirklich auf das Tag.

[Erutan]

Zitat:

Mit Delphi XE4 funktioniert dein Quelltext jedenfalls ohne jeglichen Fehler, ich habe es gerade ausprobiert.
// EDIT:
Ah, doch, jetzt habe ich den Fehler auch.

Es ist wie verhext. Gestern hatte ich dutzende Einstellungen geändert und siehe da: Nur ein Absturz während des ganzen Tages.

Heute will ich hoffnungsvoll weiter programmieren und das blöde Ding stürzt wieder ständig ab. Es scheint an der geschalteten Werbung bei den Portale zu liegen. Das ist das einzige, das sich ständig ändert.

Zitat:

Aber warum nimmst du nicht einfach das Exit im try..except weg, dann funktioniert es doch...

Das ändert aber nichts daran, daß das Programm ständig abstürzt. Eigentlich ändert es gar nichts. Nach der Fehlermeldung "Floating Point...etc.) dauert es i,d,R. ein paar Sekunden bis Windows meldet: "Das Programm funktioniert nicht mehr richtig".

Zitat:

Du könntest Chromium Embedded versuchen.

Ist mir zwar unheimlich peinich aber ich kriege keine Erweiterungen, Packages, Komponenten mehr installiert. Als ich vor Jahren noch mit Delphi 5 gearbeitet abe, hatte ich den Bogen raus. Damals habe ich da die Indy-Komponenten installiert. Aber dann war jahrelang Pause und jetzt habe ich Delphi 7...und probiere und probiere und kriege nichts installiert. Hab's auch schon mit dem Embedded Webbrowser versucht. Es klappt einfach nicht. Könnte auch an Windows 8 liegen. Delphi 7 unter window 8 zu installieren war schon eine Herausforderung für sich.

[Thom]

Nochmals: Weshalb schaltest du die Gleitkommaexceptions der FPU nicht ab? Das löst das Problem.

[Erutan]

Zitat:

Weshalb schaltest du die Gleitkommaexceptions der FPU nicht ab? Das löst das Problem.

Ganz ehrlich? Ich werde aus der verlinkten Seite nicht schlau. Ich habe die funktion

function SetExceptionMask(const Mask: TArithmeticExceptionMask): TArithmeticExceptionMask; meinem Quellcode hinzugefügt und der Compiler hat sich beschwert.

Ich weiß nicht wie ich die Excptionmask richtig einbaue und einstelle damit es funktioniert.

[Thom]

Kann sein, daß das bei Delphi 7 noch nicht dabei war. Du kannst aber auch den Befehl Set8087CW() nehmen. Hier findest Du nähere Informationen dazu.