Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
How to get and write the dimensions of images on hard drive into an Access table
Have 20,000 images in C:\pictures that contains 10GB of images of various sizes.
Have a table that contains a field named "Location" that lists path of each image.
Have created a field in same table named "Dimension".
Want to determine the aspect ratio of each image based on width x height.
How can I get and store in same table the dimension of each image without crashing Access?
Have a table that contains a field named "Location" that lists path of each image.
Have created a field in same table named "Dimension".
Want to determine the aspect ratio of each image based on width x height.
How can I get and store in same table the dimension of each image without crashing Access?
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Start here
http://www.experts-exchange.com/articles/13779/More-Fun-with-Really-Large-High-Fidelity-Images-in-Access-Reports.html
It's fairly straight-forward
Set a reference to WIA
'need a reference to MS Windows Image Acquisition 2.0 library
Dim rs as recordset
Set rs = CurrentDb.Openrecordset("S
Create an Image object
Dim Img As WIA.ImageFile
Dim ThePath as String
ThePath= rs!ThePath
do unitl rs.EOF
'Set it to a filepath
Img.LoadFile ThePath
With rs
.Edit
!Dimension = Img.Height/Img.Width
.Update
End with
Set Img = Nothing
rs.movenext
Loop
Make sense?
http://www.experts-exchange.com/articles/13779/More-Fun-with-Really-Large-High-Fidelity-Images-in-Access-Reports.html
It's fairly straight-forward
Set a reference to WIA
'need a reference to MS Windows Image Acquisition 2.0 library
Dim rs as recordset
Set rs = CurrentDb.Openrecordset("S
Create an Image object
Dim Img As WIA.ImageFile
Dim ThePath as String
ThePath= rs!ThePath
do unitl rs.EOF
'Set it to a filepath
Img.LoadFile ThePath
With rs
.Edit
!Dimension = Img.Height/Img.Width
.Update
End with
Set Img = Nothing
rs.movenext
Loop
Make sense?
I am guessing as to what the fields in your table Location are named
Img.LoadFile requires a fully qualified path string i.e.
"c:\Somefolder\SomeSubFold
Img.LoadFile requires a fully qualified path string i.e.
"c:\Somefolder\SomeSubFold
'need a reference to MS Windows Image Acquisition 2.0 library
Dim rs as recordset
Set rs = CurrentDb.Openrecordset("Select * from Location;")
Create an Image object
Dim Img As WIA.ImageFile
Dim ThePath as String
Do Until rs.EOF
ThePath= rs!ThePath
'Set it to a filepath
Img.LoadFile ThePath
With rs
.Edit
!Dimension = Img.Height/Img.Width
.Update
End with
Set Img = Nothing
rs.movenext
Loop
As I try this and read article, notice that author states cannot get 1000 images to work. As stated in onset, I have 20,000 images. But continuing to work.
I am the author.
If you want to make 1000's PRINT on a report, well, yeah, that doesn't fly.
Processing 10's of thousands for length and width? Piffle.
If you want to make 1000's PRINT on a report, well, yeah, that doesn't fly.
Processing 10's of thousands for length and width? Piffle.
Sigh. YOU don't earn piffle. The task at hand does :)
Getting a thousand jpgs to print on a report is VERY difficult for Access.
Getting Access to process 20K images for which you have fully qualified paths is child's-play for Access.
It'll be resource-intensive and take a bit, but eminently doable.
About 15-20 minutes or so for 20K files
Hence, piffle.
Sample attached.
This one takes 20K records from one table, finds if they exists and adds results to a second table.
Not quite what you are doing, but I am not altering production data for a sample! You don't have my files, but the code and tables are tested and work.
piffle.mdb
Getting a thousand jpgs to print on a report is VERY difficult for Access.
Getting Access to process 20K images for which you have fully qualified paths is child's-play for Access.
It'll be resource-intensive and take a bit, but eminently doable.
About 15-20 minutes or so for 20K files
Hence, piffle.
Sample attached.
This one takes 20K records from one table, finds if they exists and adds results to a second table.
Not quite what you are doing, but I am not altering production data for a sample! You don't have my files, but the code and tables are tested and work.
piffle.mdb
Opened mdb. Clicked process. Expected to see dimension added to picture table. What have I overlooked?
Disregard last comment from me. Realize that images are on your location and no error checking in place.
Premium Content
You need an Expert Office subscription to comment.Start Free Trial