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;
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
