I was able to develop a workaround for this issue. It requires QuickTime and the
EnhancedQT external.
on mouseUp
answer file "Choose the Image"
if it is empty then exit mouseUp
put it into theFileName
ask file "Save as..." with "smaller_version.jpg"
if it is empty then exit mouseUp
put it into theNewFile
qtSaveMovieSnapShotToFile theFileName, theNewFile, "640", "480", "3600", "true",
"false", "jpg"
set the fileName of image "imageName" to theNewFile
end mouseUp
Here is the environment that I was able to get this to work...
Revolution 2.5
WindowsXP Home SP2
QuickTime 6.5.1 Pro
EnhancedQT 1.0.0 Beta 2
Derek Bump
Dreamscape Software
____________________________________________
Compress Images Easily with JPEGCompress
http://www.dreamscapesoftware.com
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution
