Solved

similar sleep() function

Posted on 2000-04-15
16
176 Views
Last Modified: 2010-04-04
is there an api call or so which delays the processing od the next command, the next line of code. i mean, i need a function which delays eg. the drawing on screen of a timer, but all the other timers should remain working.
0
Comment
Question by:geoka
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
  • 4
  • +3
16 Comments
 
LVL 10

Expert Comment

by:ptmcomp
ID: 2719330
Hi geoka
Create a second thread and use there Sleep() to delay your code (don't call Synchonize!). Proceed the code that you don't want to slow down in the first thread.
ptm.
0
 
LVL 5

Expert Comment

by:heathprovost
ID: 2719336
not sure I understand the question...  Why wont sleep() suffice?  What do you mean "drawing on screen of a timer"?  I dont really understand the question, but the probably answer is to use a seperate thread to handle this "delayed drawing" stuff.  That way none of the other code in the program would be affected by this thread being in a "sleep" state.  Maybe you can ellaborate further

Heath
0
 
LVL 15

Expert Comment

by:simonet
ID: 2719373
Application.processmessages is the answer you need.

Just call it within a loop, like this:

for i:=1 to 1000 do
  application.processmessages;



Alex
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 20

Accepted Solution

by:
Madshi earned 50 total points
ID: 2720211
Alex is right. But I would suggest using GetTickCount to realize a specific delay time. Something like this:

procedure Delay(ms: dword);
var dw : dword;
begin
  dw := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - dw > ms;
end;

But: This pushes the CPU to 100%. You could also try to add Sleep(10) before Application.ProcessMessages. Then the CPU doesn't run with 100%.

Regards, Madshi.
0
 
LVL 10

Expert Comment

by:ptmcomp
ID: 2720311
Application.ProcessMessages is a ugly hack, isn't it?
ptm.
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2720367
No, it's no hack. It's a simple message loop. If you want to delay the current program flow, but nevertheless want to handle messages, a message loop is the one and only possibility.
0
 

Author Comment

by:geoka
ID: 2722100
emm.. i just recognized that i would not understand my question either, if i didn't know the problem.
the second go:
every 5 seconds a timer checks wether there are new messages to get, if there is a new message, it gets it, and executes an internal procedure, which is definded in the message. i wanted to make the code small so i did it that way: if the procedure, i called, should open the cd-drive, my code lookes like:

procedure opencd(l:integer);
begin;
  ;//the code which opens the cd-drive
  sleep(l);
  ;//the code which closes the cd-drive
end;

the next message disables e.g. ctrl+alt+entf, but i do not even get the message, because sleep(l); stopps the whole appliaction.
okay.
if i had understood right, then i could put every call into a seperste thread, and sleep(l); will only stopp the processing of the thread ???
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2722131
>> if i had understood right, then i could put every call into a seperste thread, and sleep(l); will only stopp the processing of the thread ???

Sleep definately only makes the current thread sleep. All other threads of your process run further. I still didn't understand completely what you want to do. Perhaps threads is one solution, another one would be to use Application.ProcessMessages instead of Sleep.
0
 
LVL 10

Expert Comment

by:ptmcomp
ID: 2724269
Yes, I think we can only help you, if you tell us what you want to do. Perhaps there is a completely diffrent solution you never thought about...
ptm.
0
 

Author Comment

by:geoka
ID: 2726116
emm_ the app i'm writing doesn't do more than descripted above.
0
 
LVL 3

Expert Comment

by:f15iaf
ID: 2735732
procedure sleep(t:integer;{milisec});
var
   tt:integer;
begin
     tt:=gettickcount;
     while((tt-gettickcount)<t)do;
end;
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2735896
And another new expert! Welcome, f15iaf...   :-)

May I friendly request something? Here in the Delphi forum it is common practice to lock questions with an answer only if you are the first expert in the thread, or if all other comments are evidently wrong. Otherwise it is usual to post a *comment* only. This way the questioner can later choose easily which expert helped most. Thank you for listening...   (-:

Regards, Madshi.
0
 

Author Comment

by:geoka
ID: 2736139
this sets the cpu-power to 100%, not very helpful. the solution with creating threads seems better to me.
0
 
LVL 10

Expert Comment

by:ptmcomp
ID: 2737749
Hi geoka
Could you describe us, what you excatly want to delay? The drawing of your own app?
0
 
LVL 15

Expert Comment

by:simonet
ID: 2738198
Creating threads won't help yo ua bit.

Why don't you elaborate a little bit more on what you're trying to achieve?
0
 

Author Comment

by:geoka
ID: 2830273
wasn't exactely what i was looking for, but of course big thx...
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

732 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