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

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

Author: remi
Date: 2009-07-31 11:12:56 +0200 (Fri, 31 Jul 2009)
New Revision: 5254

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
Log:
* Improved download method

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-31 08:18:36 UTC (rev 5253)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-31 09:12:56 UTC (rev 5254)
@@ -96,6 +96,7 @@
   with TIdHTTP.Create(nil) do
   try
       ReadTimeout := 500;
+      ConnectTimeout := 1000;
       try
         Get(AUrl, output);
 
@@ -110,17 +111,18 @@
                 result := result + c;
                 
             until output.Position = output.Size;
-            output.Free;
           end;
       except
         On e : Exception do
           begin
             result := '';
-            output.Free;
           end;
       end;
   finally
     begin
+      output.Free;
+      Disconnect;
+      DisconnectSocket;
       Free;
     end;
   end;