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.
------------------------------------------------------------------------------
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
