I am using the following code to load video into a TWebMultimediaPlayer component. Works on PC, iPad but will not load video on iPhone. There is not error in the console. Tried debugging Javascript on the MAC but all seems to work correctly with no errors but the video just does not load and the onloadeddata does not fire either.
procedure TUploadForm.DlgOpenVideoChange(Sender: TObject);
var mimeType: string;
begin
if Pos('.avi', DlgOpenVideo.Files[0].Name) >= 1 then
mimeType := 'data:video/x-msvideo;base64,'
else
mimeType := 'data:video/mp4;base64,';
DlgOpenVideo.Files[0].GetFileAsBase64(procedure (ABase64: string)
var vidbase64: string;
begin
try
PlayTimer.Enabled := false;
PlayTrackBar.Position := 1;
PlayTrackBar.Max := 0;
vidbase64 := mimeType + ABase64;
VideoPlayer.URL := vidbase64;
except
ShowMessage('DlgOpenVideo: Failed');
end;
end);
end;