Here is my code:<\/p>\n
type\n TForm1 = class(TForm)\n WebBrowser1: TWebBrowser;\n Button1: TButton;\n Button2: TButton;\n procedure Button1Click(Sender: TObject);\n procedure Button2Click(Sender: TObject);\n end;\n\nimplementation\nuses ActiveX;\n\nprocedure TForm1.Button1Click(Sender: TObject); \/\/ method 1\nvar\n HtmlFile: string;\nbegin\n HtmlFile := ExtractFilePath(Application.ExeName) + 'test.html';\n WebBrowser1.Navigate(HtmlFile);\nend;\n\nprocedure LoadHtml(wb: TWebBrowser; HTMLStr: string);\nvar\n aStream: TMemoryStream;\nbegin\n wb.Navigate('about:blank'); \/\/ reset the webbrowser\n while wb.ReadyState < READYSTATE_INTERACTIVE do \/\/ wait to load the empty page\n Application.ProcessMessages;\n if Assigned(wb.Document) then\n begin\n aStream := TMemoryStream.Create;\n try\n aStream.WriteBuffer(Pointer(HTMLStr)^, Length(HTMLStr));\n aStream.Seek(0, soFromBeginning);\n (wb.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));\n finally\n aStream.Free;\n end;\n end;\nend;\n\nprocedure TForm1.Button2Click(Sender: TObject); \/\/ method 2\nbegin\n LoadHtml(WebBrowser1,\n ''+\n ' '+\n ' '+\n ' '+\n ' '+\n ' '+\n ' '+\n ''\n );\nend;\n<\/code><\/pre>\ntest.html<\/strong><\/p>\n\n\n\n\n\n\n<\/code><\/pre>\nMy application crashes in both methods. I get An unhandled win32 exception (caused by Flash player Exception EInvalidOp in module Flash10u.ocx at 00108657. Invalid floating point operation<\/code>).<\/p>\n\n- I tried this code on D5, D7, D9.<\/li>\n
- I tried to re-import SHDocVw.dll.<\/li>\n
- I also tried to use EmbeddedWB control instead of TWebBroser…<\/li>\n
- Internet Explorer\/Avant\/Maxthon has no problems with this HTML (all based on IE ActiveX).<\/li>\n<\/ul>\n
Any suggestions or a fix?<\/p>\n
How can I catch this error or even suppress it?<\/p>\n
Is there a way to manipulate or change the HTML on the fly via a TWebBrowser event, so I can display an Image instead of the Flash player, same as Ad-Blockers works? (My customers have that code in their sites over the internet, and my Delphi application provides a fast preview)<\/p>\n
UPDATE<\/strong><\/em><\/p>\nI used a TTimer to enable\/disable FPU (based on Arjen’s idea):<\/p>\n
function Get8087CW: Word; \/\/ for D5\nasm\n PUSH 0\n FNSTCW [ESP].Word\n POP EAX\nend;\n\nprocedure TForm1.FormCreate(Sender: TObject);\nbegin\n Timer1.Enabled := False;\n Timer1.Interval := 5000; \/\/ 5 sec\n Saved8087CW := Get8087CW;\nend;\n\nprocedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;\n const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,\n Headers: OleVariant; var Cancel: WordBool);\nbegin\n Timer1.Enabled := False;\n System.Set8087CW($133F); \/\/ Disable all fpu exceptions\nend;\n\nprocedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;\n const pDisp: IDispatch; var URL: OleVariant);\nbegin\n Timer1.Enabled := True;\nend;\n\nprocedure TForm1.Timer1Timer(Sender: TObject);\nbegin\n Timer1.Enabled := False;\n Set8087CW(Saved8087CW);\nend;\n<\/code><\/pre>\nUPDATE (2)<\/strong><\/em><\/p>\nI ended up masking the FPU exception in the application start-up. there was no (known) impact on my application ever since.<\/p>\n
\n- \n
Try to disable temporarily FPU exception with Set8087CW(0x133f); info<\/p>\n<\/li>\n
- \n
A bit more beautiful solution:<\/p>\n
Math.SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow,\n exUnderflow, exPrecision]);\n<\/code><\/pre>\nIf I read documentation correct, Math.SetExceptionMask<\/code> silences every exception mentioned.<\/p>\nHowever, it is just cleaner and more beautiful version of @Arjen’s approach.<\/p>\n<\/li>\n<\/ol>\n
Originally posted 2014-02-04 09:37:54. <\/small><\/p>","protected":false},"excerpt":{"rendered":"
Here is my code: type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; implementation uses ActiveX; procedure TForm1.Button1Click(Sender: TObject); \/\/ method 1 var HtmlFile: string; begin HtmlFile := ExtractFilePath(Application.ExeName) + ‘test.html’; WebBrowser1.Navigate(HtmlFile); end; procedure LoadHtml(wb: TWebBrowser; HTMLStr: string); var aStream: TMemoryStream; begin wb.Navigate(‘about:blank’); \/\/ reset the webbrowser […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-2614","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/2614","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/comments?post=2614"}],"version-history":[{"count":0,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/2614\/revisions"}],"wp:attachment":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/media?parent=2614"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/categories?post=2614"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/tags?post=2614"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}