From 336f66e50677c95a802d321b61b3e282e016f668 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 6 Oct 2010 15:29:51 +0000
Subject: less cpu usage for threads

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2638 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/lib/DSPack/UCaptureWDM.pas | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'Game/Code/lib')

diff --git a/Game/Code/lib/DSPack/UCaptureWDM.pas b/Game/Code/lib/DSPack/UCaptureWDM.pas
index 107d296a..156e160a 100644
--- a/Game/Code/lib/DSPack/UCaptureWDM.pas
+++ b/Game/Code/lib/DSPack/UCaptureWDM.pas
@@ -8,7 +8,7 @@ unit UCaptureWDM;
 interface
 
 uses
-	Classes, Windows, DSPack, DirectShow9, DSUtil, SDL, ExtCtrls;
+	Classes, Windows, DSPack, DirectShow9, DSUtil, SDL, ExtCtrls, SyncObjs;
 
 type
 	TCaptureState = (csPlay, csStop, csDisbaled);
@@ -50,7 +50,8 @@ type
 	protected
     procedure Execute; override;
   public
-    FramePtr: PByteArray;
+    FramePtr:     PByteArray;
+    EventDecode:  TEvent;
     
     constructor Create(DeviceID, MediaTypeID: integer);
     destructor Destroy; override;
@@ -71,7 +72,7 @@ type
 implementation
 
 uses
-	Graphics, SyncObjs, SysUtils;
+	Graphics, SysUtils;
 
 function GetCapDevices: TList;
 var
@@ -138,7 +139,7 @@ constructor TSampleClass.Create(DeviceID, MediaTypeID: integer);
 begin
   inherited Create(true);
 
-  Self.Priority := tpLower;
+  //Self.Priority := tpLower;
   Self.FreeOnTerminate := false;
 
 	Capture := TCapture.Create(DeviceID, MediaTypeID);
@@ -156,6 +157,8 @@ begin
   ready := true;
   Error := false;
 
+  EventDecode := TEvent.Create(nil, false, false, '');
+
   Self.Resume;
 end;
 
@@ -163,6 +166,8 @@ destructor TSampleClass.Destroy;
 begin
 	inherited;
 
+  FreeAndNil(EventDecode);
+  
   if(frame<>nil) then
     FreeMem(frame);
   frame := nil;
@@ -175,7 +180,7 @@ procedure TSampleClass.Execute;
 begin
   while not terminated do
   begin
-    if capturing then
+    if (EventDecode.WaitFor(100) = wrSignaled) and capturing then
     begin
       ready := false;
       GetImage;
@@ -186,7 +191,6 @@ begin
       if Error then
         Self.Terminate;
     end;
-    Sleep(0);
   end;
 end;
 
@@ -208,6 +212,9 @@ begin
     capturing := true;
   end else
     capturing := false;
+
+  if capturing then
+    EventDecode.SetEvent;
 end;
 
 procedure TSampleClass.GetImage;
-- 
cgit v1.2.3