Renaming an image file with Image Upload

[dfricke10]

I have the images renaming upon upload with Image Magick. How would I specify (or reference) the field Product_ID in the xbasic Functions Declarations code to insert that variable into the filename of the image.

Basically, I want to prefix the image name with the product ID that it's associated to. To avoid any overwriting by other records.

I'm using SQL 2008.

[peteconway]

Re: Renaming an image file with Image Upload

You can do that - but unless you really need to - just set the images upload to rename the filename if it already exits - it's in the top part of the image upload settings, it just adds an increment number to each filename for you.

[dfricke10]

Re: Renaming an image file with Image Upload

That would work if the file was up there already. But this is a new upload.

This is the code I have
--------------------------------------------

function scaleimages as v (e as p)

dim fn1 as c
dim fn2 as c
dim fn3 as c
dim fn as c
dim file_name as c
dim file_ext as c
dim cmd_string as C
dim im_path as c
im_path="c:\Program files\ImageMagick-6.7.3-Q16\convert "

fn = e.imageFilenameOnServer
file_name = file.filename_parse(fn,"N")
file_ext = file.filename_parse(fn,"E")
'file.From_blob("C:\myimages\\" + fn,e.fileBlob)
fn1 = "D:\MerchTrack\images\products\\" + file_name + "_LG.png"
fn2 = "D:\MerchTrack\images\products\\thumb_" + file_name + ".jpg"
fn3 = "D:\MerchTrack\images\products\\[Product ID]" + file_name + "_SM.png"

'run imagemagik and scale images

cmd_string = im_path + fn + " -scale 600x600 " + fn1
sys_shell_wait(cmd_string,.f.)
cmd_string = im_path + fn + " -scale 350x350 " + fn2
sys_shell_wait(cmd_string,.f.)
cmd_string = im_path + fn + " -scale 123x123 " + fn3
sys_shell_wait(cmd_string,.f.)

end function

--------------------------
The [Product ID] part in bold is where I want the ID of the product the image belongs to.

Make sense?

[dfricke10]

Re: Renaming an image file with Image Upload

After reading your post a bit more Pete, I understand what you're saying. But by adding the product ID, it helps me organize the files. Your idea will work for another project I'm working on though.

Thanks!

[iviowa]

Re: Renaming an image file with Image Upload

I too would like to rename the file when uploading. I would like to clip the Client_ID to the front of the filename.
1234-Thanksgiving1.jpg
1234-Thanksgiving2.jpg
That way I can use the ImageGallary filtering to show all 1234-.* images for that customer.

Actually I would prefer to name them using API_UUIDCREATE()
1234-3c5de491-4656-4ec4-bafa-a2203140cdd1
1234-126b68b5-2362-4543-94eb-373bfc7f3c28

I tried placing file.rename(OldFilename, NewFilename) in a function on the Image Upload>Server-Side Events>Before Save and On Save. It appeared to me that the file was not upload in time for the rename function, causing an error indicating the file was not found to rename.

I would also like to upload a thumbnail version of the image (100 Pixels) and a 400 Pixel image at the same time. Is that possible with the Image Upload action or do I need to page to code all this.

Thanks.

[iviowa]

Re: Renaming an image file with Image Upload

Using the Image Upload action I can add code to the Image Upload>Server Side Event>Before Save. This code will upload a file name Desert.jpg and save it to the server as C10001.jpg. It also saves the newfilename in the grid record.

dim newfilename as c
newfilename = "C10001.jpg"
e.filenameOnServer = newfilename

How do I capture the record's Client_ID and use that in the name. I tried:
newfilename = DataSubmitted.Client_ID
newfilename = e.DataSubmitted.Client_ID
but DataSubmitted is not available at the time of this function. How to I get the records Client_ID into this "Before Save" function? I'm using SQL if that makes a difference.