Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-pascal / 2011-05

why is FPImage dog slow reading jpeg's?

2 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Ben

Hi,

I wrote this console utility app in 5 minutes. All it is supposed to do, is iterate over *.jpg images (65 at the moment) in a folder (no recursive searches), and generate a snipped of HTML that I need to paste into my wives website.

I first thought my utility app is in some recursive loop or something because the output didn't appear instantly - like I thought it would.

I added some debug output between the generate HTML. To my surprise the FPImage code reading a 35Kb jpg file takes +- 8 seconds and a 65KB file takes +- 30 seconds - on a Quad Core machine! WTF???

Is this normal? Is FPImage really that slow reading small roughly 650x450 pixel jpg images? Or am I doing something unbelievably stupid? :-/

The reason I'm reading in the jpg files is so I can get their Width and Height values. Avg. jpeg file sizes are between 35-45KB, and largest file size is 65KB.

Here is the relevant code snippet....

var
  imgreader: TFPReaderJPEG;
  stream: TFileStream;
  img:TFPCustomImage;

....

  writeln('processing file: ', filelist[i]);
  stream := TFileStream.Create(filelist[i], fmOpenRead);
  writeln(1);
  imgreader := TFPReaderJPEG.Create;
  writeln(2, FormatDateTime(' hh:mm:ss.zz', Now) + '  (start reading)');
  img := imgreader.ImageRead(stream, nil);
  writeln(3, FormatDateTime(' hh:mm:ss.zz', Now) + '  (done)');

Here is the program output... Note the timestamps between start reading and done reading (lines marked with '2' and '3').

-------------------[ start ]--------------------------- $ ./project1 img/babies/full
Finished search. Found 65 matches
---------------------------------------
<div id="thumbnails">
<table cellspacing="10">
<tr align="center" valign="middel"> <!-- Row starts --> <td>
processing file: img/babies/full/babies.01.jpg
1
2 16:00:30.210 (start reading)
3 16:00:38.338 (done)
<img src="img/babies/full/babies.01.jpg" alt="" id="screen1" class="imglarge" onmouseout="reducethumb(1); return false;" onclick="reducethumb(1); return false;">
<img src="img/babies/thumbs/babies.01.jpg" alt="" class="imgsmall" id="thumb1" onclick="expandthumb(1, 650, 413);">
</td>
</tr>
<tr align="center" valign="middel"> <!-- Row starts --> <td>
processing file: img/babies/full/babies.02.jpg
1
2 16:00:38.338 (start reading)
3 16:01:10.447 (done)
<img src="img/babies/full/babies.02.jpg" alt="" id="screen2" class="imglarge" onmouseout="reducethumb(2); return false;" onclick="reducethumb(2); return false;">
<img src="img/babies/thumbs/babies.02.jpg" alt="" class="imgsmall" id="thumb2" onclick="expandthumb(2, 650, 435);">
</td>
</tr>
<tr align="center" valign="middel"> <!-- Row starts --> <td>
processing file: img/babies/full/babies.03.jpg
1
2 16:01:10.447 (start reading)
3 16:01:28.859 (done)
<img src="img/babies/full/babies.03.jpg" alt="" id="screen3" class="imglarge" onmouseout="reducethumb(3); return false;" onclick="reducethumb(3); return false;">
<img src="img/babies/thumbs/babies.03.jpg" alt="" class="imgsmall" id="thumb3" onclick="expandthumb(3, 405, 650);">
</td>
</tr>
<tr align="center" valign="middel"> <!-- Row starts --> <td>
processing file: img/babies/full/babies.04.jpg
1
2 16:01:28.859 (start reading)

....snip....
-------------------[ end ]---------------------------

Ben.
Bart
to Ben
Ben wrote 5 lines
The reason I'm reading in the jpg files is so I can get their Width and Height values. Avg. jpeg file sizes are between 35-45KB, and largest file size is 65KB. Ben.

A bit off-topic (as to the inner workings of FPImage), but I attached some old code of mine to determine width/height of jpg, gif, bmp, png. It's probably a little faster...

Bart