Jump to content

Search the Community

Showing results for tags 'cache'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Welcome to Smart Mobile Studio
    • News and Information
    • Pre-Sales Questions
    • Smart In the Media
    • Smart Contests
    • Meta
  • Smart Mobile Studio Discussion
    • General
    • IDE
    • RTL
    • Code
    • Client Server
    • Platform
    • Graphics
    • Deployment
    • Suggestion box
  • Smart Mobile Studio support
    • Support
    • Bug report
  • General Discussion
    • Pascal
    • Delphi
    • Javascript
    • HTML/HTML5
    • CSS
  • Resources
    • Website
    • Download Smart Mobile Studio

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Location


Interests


Company name


Position

Found 1 result

  1. Everyone, DEMO APP HERE: https://www.harmonicmix.com/200/ BUILT WITH: SMS Professiional 3.0.0.209 BETA I am relatively new to SMS development, but not new to Delphi development. I have been slowly getting my hands wrapped around the power of SMS and I believe that it is a great tool and I see a lot of promise for rapid development. I have run into a number of hurdles and as a beginner, I have been slowly working through them with the hardest challenge to date being CORS as a new developer. Trying to get a server configured just so has been a challenge and something that can trip me up. However, this latest glitch has me baffled and I'm unsure if it is related to SMS, CORS, web server etc. This one has me baffled and I'm hoping I'm missing something easy and others can look at this and provide me with an AH AH moment. My target platform for now has been a browser running a SMS app which uses a REST API interface and a simple layout. I have created a demo app just to demonstrate this issue and I am using Apache as a hosting platform. But, I have already tried the app on both Apache and IIS and have duplicated issues with images loading ONLY in Chrome. So to the app.... A two form app with a simple layout. Buttons to navigate back and forth between forms. A TW3Image object placed on each form and the image is being loaded in the initialize event like I have seen in many examples The problem is this.... (I think) When I view the app in Firefox, Edge and IE it works as expected, the image loads and I see no broken links. (See good screen shot) In Chrome on MAC or Windows 10, Chrome only shows the image on both forms as a broken link. No image loads. When looking in the network debugger on Chrome, the image won't load with an error of "(failed) net::ERR_FAILED" [see screen shots for Chrome] Below is the simple code for each form. I have attached GOOD screen shots where everything looks OK and and BAD screen shots in Chrome where it fails. Thank you for your help and feedback in looking at this..... I assume it is easy and I'll be happy to share more information if needed. //=============================================================== // FORM1 CODE //=============================================================== unit Form1; interface uses System.Types, System.Types.Convert, System.Objects, System.Time, SmartCL.System, SmartCL.Time, SmartCL.Graphics, SmartCL.Components, SmartCL.FileUtils, SmartCL.Forms, SmartCL.Fonts, SmartCL.Theme, SmartCL.Borders, SmartCL.Layout, SmartCL.Application, SmartCL.Controls.Panel, SmartCL.Controls.Button, SmartCL.Controls.Image; type TForm1 = class(TW3Form) procedure W3Button1Click(Sender: TObject); private {$I 'Form1:intf'} FLayout: TLayout; protected procedure InitializeForm; override; procedure InitializeObject; override; procedure Resize; override; end; implementation { TForm1 } procedure TForm1.W3Button1Click(Sender: TObject); begin Application.GotoForm('Form2', feFromRight); end; procedure TForm1.InitializeForm; begin inherited; // this is a good place to initialize components FLayout := Layout.Center(W3Panel1); W3Image1.LoadFromURL('https://www.harmonicmix.com/sites/all/images/HM_logo.png'); end; procedure TForm1.InitializeObject; begin inherited; {$I 'Form1:impl'} end; procedure TForm1.Resize; begin inherited; end; initialization Forms.RegisterForm({$I %FILE%}, TForm1); end. //=============================================================== // FORM2 CODE //=============================================================== unit Form2; interface uses System.Types, System.Types.Convert, System.Objects, System.Time, System.IOUtils, System.Device.Storage, SmartCL.System, SmartCL.Time, SmartCL.Graphics, SmartCL.Components, SmartCL.FileUtils, SmartCL.Device.Storage, SmartCL.Forms, SmartCL.Fonts, SmartCL.Theme, SmartCL.Borders, SmartCL.Layout, SmartCL.Application, SmartCL.Controls.Panel, SmartCL.Controls.Button, SmartCL.Controls.Image; type TForm2 = class(TW3Form) procedure W3Button1Click(Sender: TObject); private {$I 'Form2:intf'} FLayout: TLayout; protected procedure InitializeForm; override; procedure InitializeObject; override; procedure Resize; override; end; implementation { TForm2 } procedure TForm2.W3Button1Click(Sender: TObject); begin Application.GotoForm('Form1', feToLeft); end; procedure TForm2.InitializeForm; begin inherited; // this is a good place to initialize components FLayout := Layout.Center(W3Panel1); W3Image1.LoadFromURL('https://www.harmonicmix.com/sites/all/images/HM_logo.png'); end; procedure TForm2.InitializeObject; begin inherited; {$I 'Form2:impl'} end; procedure TForm2.Resize; begin inherited; end; initialization Forms.RegisterForm({$I %FILE%}, TForm2); end.
×