>>lcFileName = ADDBS(SYS(2023))+FORCEEXT(SYS(2015),[TMP]) >>STRTOFILE(FILETOSTR([YourVideoFileNameHere.AVI]),lcFileName) >> >>*** play lcFileName >> >>ERASE(lcFileName) >>>
>* How can you execute compiled code stored in a MEMO field? >* If you have VFP6 with at least SP3, you can use the COMPILE command > >lcFileName = Sys(2015) + ".prg" >Strtofile(MyMemofield, lcFileName ) >Compile (lcFileName) >DO (lcFileName) > >* In VFP7 you can use ExecScript >* ExecScript(MyMemofield) >Something like that:
lcFileName = ADDBS(SYS(2023))+FORCEEXT(SYS(2015),[AVI]) && Make sure that the extention is AVI STRTOFILE(BLOBfieldhere,lcFileName) && Use BLOB or Memo binary to save AVI DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER,; STRING,; STRING,; STRING,; STRING,; INTEGER ShellExecute(0, [open], lcFileName, [], [], 1)