dourg Posted February 24, 2020 Share Posted February 24, 2020 Q: I use unimHTMLFrame . and a unimbutton . on umimButton onclick event: procedure TMainmForm.UnimBitBtn1Click(Sender: TObject); begin with UnimHTMLFrame1.HTML do Begin Add('<video style="width:100%; height:auto; object-fit: cover" src="files/1.MP4" controls > </video>') End; end; It work ok on Android mobile phone . But on IOS it does not work . WHY? Link to comment Share on other sites More sharing options...
Sherzod Posted February 24, 2020 Share Posted February 24, 2020 3 hours ago, dourg said: It work ok on Android mobile phone . But on IOS it does not work . WHY? Can you please specify which edition and build of UniGUI are you using? Link to comment Share on other sites More sharing options...
55143681 Posted April 21, 2020 Share Posted April 21, 2020 On 2/24/2020 at 9:48 PM, dourg said: Q: I use unimHTMLFrame . and a unimbutton . on umimButton onclick event: procedure TMainmForm.UnimBitBtn1Click(Sender: TObject); begin with UnimHTMLFrame1.HTML do Begin Add('<video style="width:100%; height:auto; object-fit: cover" src="files/1.MP4" controls > </video>') End; end; It work ok on Android mobile phone . But on IOS it does not work . WHY? unit Mainm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm, uniGUImJSForm, uniLabel, unimLabel, uniEdit, unimEdit, uniGUIBaseClasses, uniButton, unimButton; type TMainmForm = class(TUnimForm) UnimButton1: TUnimButton; UnimButton2: TUnimButton; UnimButton3: TUnimButton; UnimEdit1: TUnimEdit; UnimButton4: TUnimButton; UnimLabel1: TUnimLabel; UnimLabel2: TUnimLabel; UnimLabel3: TUnimLabel; UnimLabel4: TUnimLabel; procedure UnimButton1Click(Sender: TObject); procedure UnimButton2Click(Sender: TObject); procedure UnimEdit1Enter(Sender: TObject); procedure UnimButton4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function MainmForm: TMainmForm; implementation {$R *.dfm} uses uniGUIVars, MainModule, uniGUIApplication; function MainmForm: TMainmForm; begin Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm)); end; procedure TMainmForm.UnimButton1Click(Sender: TObject); begin unisession.AddJS('$.playSound("http://www.noiseaddicts.com/samples_1w72b820/3724.mp3")'); end; procedure TMainmForm.UnimButton2Click(Sender: TObject); begin unisession.AddJS('$.playSound("/files/TakeOnMe.mp3")'); end; procedure TMainmForm.UnimButton4Click(Sender: TObject); begin unisession.AddJS('$.stopSound()'); end; procedure TMainmForm.UnimEdit1Enter(Sender: TObject); begin unisession.AddJS('$.playSound("/files/digiteseunome.mp3")'); end; initialization RegisterAppFormClass(TMainmForm); end. files.zip Link to comment Share on other sites More sharing options...
Recommended Posts