Calling a web application in a TWebBrowser panel in Delphi VCL

WEB TMS WEB Core
1

I created a simple small web application with TMS Web Core, which I obviously can run in a browser. Then I created a Delphi VCL application, containing a WebBrowser control, in which I navigated to the URL of the web application. Now I get popup screen showing errors and after two error messages, the screen remains blank.

Announce.zip (1.3 MB)
WebBrowserTest.zip (90.2 KB)

RunningWebAppInBrowser
RunningWebAppInBrowser1125×536 193 KB

RunningWebAppInVCLApp_Error1
RunningWebAppInVCLApp_Error1997×706 26.3 KB

RunningWebAppInVCLApp_Error2
RunningWebAppInVCLApp_Error2999×704 26.5 KB

RunningWebAppInVCLApp_BlankScreen
RunningWebAppInVCLApp_BlankScreen1000×704 6.81 KB

Clearly the control tries to interpret the script and chokes in it. Is there any way to solve this? Do I have to make changes in the html of the Announce web application to make the WebBrowser control act in the same way as a regular browser?

Thank you for enlightening me in this.

2

I tested this here and this worked fine right-away:

image
image1496×850 210 KB

If you deployed all needed files (from the TMS WEB Core Release output folder) on your server, this should work always.

Fwiw, if you would use our TAdvWebBrowser (or TTMSFNCWebBrowser), you could always call AdvWebBrowser.ShowDebugConsole to inspect the details behind these errors.