[tuxdroid-svn] r5148 - software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-07-23 20:38:12 +0200 (Thu, 23 Jul 2009)
New Revision: 5148

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
Log:
* Added the complete mute / unmute toggle function.

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-23 18:16:01 UTC (rev 5147)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-23 18:38:12 UTC (rev 5148)
@@ -9,22 +9,21 @@
     IdHTTP, dialogs;
 
     function DownloadHTTP(const AUrl : string): string;
-
-    procedure parseStates(aString : string; var values : TStringList);
-
     function getStates(var values : TStringList): boolean;
-
     function isTuxDroidServerStarted() : boolean;
     function isDongleConnected(states : TStringList) : boolean;
     function isSoundOn(states : TStringList) : boolean;
     function isRadioConnected(states : TStringList)  : boolean;
     function isOnActivity(states : TStringList) : boolean;
 
+    function toggleMute() : boolean;
 
+    procedure parseStates(aString : string; var values : TStringList);
+
 var
   XmlScanner1 : TXmlScanner;
+  mute_value : boolean;
 
-
 implementation
 
 
@@ -226,4 +225,50 @@
 end;
 
 
+{#### This function makes a mute toggle ####}
+function toggleMute() : boolean ;
+const
+  command_mute = 'http://127.0.0.1:270/0/robot_content_interactions/mute?';
+  command_unmute = 'http://127.0.0.1:270/0/robot_content_interactions/unmute?';
+var
+  temp : TStringList;
+  sound_on : boolean;
+  request_result : string;
+  beginPos, endPos : Integer;
+begin
+  temp := TStringList.Create;
+  TuxUtils.getStates(temp);
+
+  sound_on := TuxUtils.isSoundOn(temp);
+  temp.Free;
+
+  request_result := '';
+
+  if(sound_on) then
+    begin
+      //proceeding to unmute;
+      request_result := TuxUtils.DownloadHTTP(command_unmute);
+    end
+  else
+    begin
+      //proceeding to mute.
+      request_result := TuxUtils.DownloadHTTP(command_on);
+    end;
+
+  try
+    //Getting the request result <result>.
+    beginPos := Pos('<result>', aString) + Length('<result>');
+    endPos := Pos('</result>', aString);
+
+    if Copy(aString, beginPos, endPos - beginPos) = 'success' then
+      result := true
+    else
+      result := false;
+  except
+    on e : Exception do
+      result := false;
+      
+end;
+
+
 end.