Solved

Slow images in NT/W2k/XP

Posted on 2002-03-15
6
153 Views
Last Modified: 2010-04-05
I have an app which loads a proprietry file containing a large number of jpeg images and displays them. The images are decompressed and displayed in standard TImages.
If I run the app under W95/W98 etc I can display up to about 40 images/sec.  If I run it under NT/W2k/XP it slows to about 2 or 3 images/sec. This happens on many different machines including some with very fast processors and high power graphics cards. You can see the images repainting on the screen - it's horrible.
The original app was written in Delphi3. I have just converted it to D6 and compiled it on a W2k machine and it is still exactly the same.
Is there some trick and/or setting to make, either to the OS or to the app or component, to make Timages work faster with NT etc?

This is really bugging me - 200 points to the winner.

Regards,  John
0
Comment
Question by:jellison
  • 3
  • 2
6 Comments
 
LVL 9

Expert Comment

by:ginsonic
ID: 6867966
listening
0
 
LVL 3

Expert Comment

by:SteveWaite
ID: 6868472
Sounds like too many events setting off.
How are you painting?

Regards,
Steve
0
 
LVL 1

Author Comment

by:jellison
ID: 6868683
I first decompress the jpeg into a hidden image. Then I check the jpeg comment data embedded in it before copying it to a visible image by doing

ImageN.Picture := HiddenImage.Picture;

Regards,  John
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 
LVL 3

Accepted Solution

by:
SteveWaite earned 200 total points
ID: 6869764
Do you do that in OnPaint?

You say you can see it painting the images, is that flashing or the pixels slowly updating.
I'm thinking along the lines of windows doing loads of unneccesary repaints.

I usually BitBlt() to a TPaintBox because I think TImage is intended to keep the picture where TPaintBox must be updated.

Regards,
Steve
0
 
LVL 1

Author Comment

by:jellison
ID: 6947838
Just tidying up. Haven't solved it yet but I will post another question in a different way.
0
 
LVL 3

Expert Comment

by:SteveWaite
ID: 6949062
Thanks! only wish I could help further. I will keep an ey out for the next q.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Newbie Thread Programming 1 151
Simple Delphi Question 9 89
TEMBEDDEDWB how can i change its user agent ? 8 56
Breakpoint doesn't stop in my variable 3 23
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, just open a new email message. In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now