Jump to content

Cant Play MP4 file on IOS


dourg

Recommended Posts

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

  • 1 month later...
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

×
×
  • Create New...