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

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

Author: remi
Date: 2009-07-30 16:31:41 +0200 (Thu, 30 Jul 2009)
New Revision: 5243

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
Log:
* Added method to know if the user page is available on smart-server.
* Updated server start command to "smart_server_restart"

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-30 14:29:11 UTC (rev 5242)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-30 14:31:41 UTC (rev 5243)
@@ -10,6 +10,7 @@
 
     function DownloadHTTP(const AUrl : string): string;
     function getStates(var values : TStringList): boolean;
+    function userPageIsReady : boolean;
     function isTuxDroidServerStarted() : boolean;
     function KillServer(): Integer;
     function isDongleConnected(states : TStringList) : boolean;
@@ -217,6 +218,25 @@
 end;
 
 
+{#### Return if the user page is ready ####}
+function userPageIsReady : boolean;
+var
+  res : string;
+begin
+  res := TuxUtils.DownloadHTTP('http://127.0.0.1:270/user/');
+
+  if res <> '' then
+    begin
+        result := true;
+    end
+  else
+    begin
+      result := false;
+    end;
+
+end;
+
+
 {#### Return the dongle state ####}
 function isDongleConnected(states : TStringList) : boolean;
 begin
@@ -314,7 +334,7 @@
   else
     begin
       //Starting the server.
-      ShellExecute(HWND(nil), 'open', PChar('smart_server_start'), nil, nil, SW_HIDE);
+      ShellExecute(HWND(nil), 'open', PChar('smart_server_restart'), nil, nil, SW_HIDE);
       sleep(1000);
       if TuxUtils.isTuxDroidServerStarted() and TuxUtils.getStates(temp) then
         begin