Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hiding a video
Message
 
To
16/08/2007 09:06:45
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Vista
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01248415
Message ID:
01248537
Views:
17
>>>Is it possible to compile a video inside an exe so that the video file is never seen by a prying user? I have added it to 'other files'. But when I install the exe on a clean machine and click it's video button, it tells me that there is a missing file.
>>
>>It is possible to build the video in EXE, but I think to play it you need to extract it first as a disk file (not sure though)
>>
>>lcFileName = ADDBS(SYS(2023))+FORCEEXT(SYS(2015),[TMP])
>>STRTOFILE(FILETOSTR([YourVideoFileNameHere.AVI]),lcFileName)
>>
>>*** play lcFileName
>>
>>ERASE(lcFileName)
>>
>
>Now you have me wondering about running it from a memo field. Here is a way to execute code from a memo field that was posted a year or two ago. It's below - Can it be modified to run the video this way?
>
>* 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)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform