I have an interactive HTML teaching guide that was coded years ago. I would like to repackage it and include video files. To use the HTML5 video function, must I recode all my pages to be HTML5 compliant?
Is there a way to keep my pages as they are and simply drop in the new HTML5 video code?
Also, in previous versions of this teaching guide, I was calling videos using this script [below].
Is it still still needed given the enhanced functionality of HTMLexe 4.9?
procedure StartVideoUnit01(Filename: String);
var
EbookPath, MyProgram: String;
begin
// Read the path to the folder that contains our ebook .exe
EbookPath := IncludeTrailingPathDelimiter(GetGlobalVar(“HEPublicationPath”, “”));
// Construct the path to the mp4 file we want to launch.
// Video mp4 files are located in the [Resources\Unit_01] subfolder.
MyProgram := EbookPath + “Resources\Unit_01” + Filename + “.mp4”;
// Execute the program!
if OpenFile(MyProgram, “”, SW_SHOWNORMAL) < 32 then
begin
MessageBox("Unable to execute the external file: " + MyProgram, “Ebook Error”, MB_OK
+MB_ICONERROR);
exit;
end;
end;
Is there a way to keep my pages as they are and simply drop in the new HTML5 video code?
Also, in previous versions of this teaching guide, I was calling videos using this script [below].
Is it still still needed given the enhanced functionality of HTMLexe 4.9?
procedure StartVideoUnit01(Filename: String);
var
EbookPath, MyProgram: String;
begin
// Read the path to the folder that contains our ebook .exe
EbookPath := IncludeTrailingPathDelimiter(GetGlobalVar(“HEPublicationPath”, “”));
// Construct the path to the mp4 file we want to launch.
// Video mp4 files are located in the [Resources\Unit_01] subfolder.
MyProgram := EbookPath + “Resources\Unit_01” + Filename + “.mp4”;
// Execute the program!
if OpenFile(MyProgram, “”, SW_SHOWNORMAL) < 32 then
begin
MessageBox("Unable to execute the external file: " + MyProgram, “Ebook Error”, MB_OK
+MB_ICONERROR);
exit;
end;
end;