reducing image file pixel size

[Mike Wilson]

I'm going to try again to see if someone has a solution. All day long we get photographs in JPG format that are ~ 4000 pixels x ~4000 pixels, because that's the resolution that current phones are taking pictures at and we haven't a way to have the hundreds of providers that deliver pictures to us have efficient methods to download their images in a reduced format. So has someone found a way to loop through jpg image files and reduce the image files from 4000 x 4000 to maybe 400 x 400 with xbasic. Having worked through this endlessly, as far as all my testing goes, I have concluded that the methods in Alpha gag at images at ~ 2000 x ~ 2000 pixels. Any help here would be massively appreciated. You out there Finian!

[armasoft]

Re: reducing image file pixel size

Mike, why do you need an xbasic solution? There are dozens of products out there that will do what you want, some free some paid for, that you can call from within Alpha.

I found a batch solution in 2 minutes using a google search of "jpeg reduce resolution batch" using a product called ffmpeg

[GGandhi]

Re: reducing image file pixel size

dim pp as p
pp = a5_getimagesize("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi.jpg")
?pp
= errorText = ""
hasError = .F.
height = 7.5
heightPixels = 720
width = 13.333333333333334
widthPixels = 1280

?a5_scale_imagefile("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi.jpg","C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi2.jpg",0,100,"pixels","width","Proportional",0,0,.T.)
= <No data returned>

pp = a5_getImagesize("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi2.jpg")
?pp
= errorText = ""
hasError = .F.
height = 0.583333333333333
heightPixels = 56
width = 1.041666666666667
widthPixels = 100

mike, this is done via interactive window setting only the width property to 100 and making the height proportional, scaling the image.
I am sure you can improve this.

[Mike Wilson]

Re: reducing image file pixel size

Hi Jon,
The files we work with are jpg files. And we need this because we deal with thousands of images. One root folder with 100 or so sub folders having 10-20 randomly named files like IM3AAEED6EF.jpg, that are to be reduced, renamed and re-distributed to other folders.

Hi Gandhi,
Thanks for responding. Yes I have seen this and tried it but the use of ImageMagic uses convert.exe, and I haven't been able to figure out how to get this exe file to run without triggering the User Account Control permission dialog. I'm still researching this.

[GGandhi]

Re: reducing image file pixel size

mike,
I tried setting false for imagemagik it seems to work without any problem.

dim pp as p
pp = a5_getimagesize("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi.jpg")
?pp
= errorText = ""
hasError = .F.
height = 7.5
heightPixels = 720
width = 13.333333333333334
widthPixels = 1280

a5_scale_imagefile("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi.jpg","C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi3.jpg",0,100,"pixels","width","Proportional",0,0,[COLOR="#FF0000"].F.[/COLOR])

pp = a5_getimagesize("C:\Users\Govindan\Documents\Alpha Five V11\alpha_software\gandhi3.jpg")
?pp
= errorText = ""
hasError = .F.
height = 0.583333333333333
heightPixels = 56
width = 1.041666666666667
widthPixels = 100

I did not do this in a script file, it could be different there as you say.

[Mike Wilson]

Re: reducing image file pixel size

Hi Gandhi,
Yup it works with the ImageMagic=".f." without the Security dialog showing. But look at the results (see pic). 3000 x 5300 pixel image --> 500 x 900 pixel.

[MoGrace]

Re: reducing image file pixel size

Hi Jon,
The files we work with are jpg files. And we need this because we deal with thousands of images. One root folder with 100 or so sub folders having 10-20 randomly named files like IM3AAEED6EF.jpg, that are to be reduced, renamed and re-distributed to other folders.

Hi Gandhi,
Thanks for responding. Yes I have seen this and tried it but the use of ImageMagic uses convert.exe, and I haven't been able to figure out how to get this exe file to run without triggering the User Account Control permission dialog. I'm still researching this.

Have you tried Tweak UAC? It sets the UAC to 'quiet' mode - no prompts,

[GGandhi]

Re: reducing image file pixel size

Hi Gandhi,
Yup it works with the ImageMagic=".f." without the Security dialog showing. But look at the results (see pic). 3000 x 5300 pixel image --> 500 x 900 pixel.

terrible. you may have to follow what robin suggested.

[Mike Wilson]

Re: reducing image file pixel size

Thanks Robin, will take a look. It is working for us setting the level to no report, then up again after uses, but that is a pain!