這兩個函數
function app_path1:string;
function socket_rec_line1(socket1:TCustomWinSocket;timeout1:integer;crlf1:string=#13#10):string;
其實是我的一個公用單元中的函數，大家應該養成建立自己的公用單元的習慣。
socket_rec_line1函數中用了唐曉峰大俠的coolmail中的辦法：只是簡單的一個一個字節收取，找到結束標誌後就算收完一行了，大家實際應用時可能應該找更好的辦法。
這個程式的目的是：flashget在下載象51.net系列[如我的clq.51.net]中的程式時，會因為這些網站上的自訂錯誤頁面而導致下載的檔案出錯，具體見「大富翁」上的
“http://www.delphibbs.com/delphibbs/dispq.asp?lid=1170159”
雖然這是一個演示程序，但不能下載地址轉向的東東。但對於固定地址文件的下載已經很不錯了，我的公司不能裝多線程的東東我一直用這個下載我要的大文件，“大富翁”200多M的離線數據這是用它下載的。
大家對原始碼有什麼不明白的請在「http://www.delphibbs.com/delphibbs/dispq.asp?lid=1170159」提出。
-------------------------------------------------- ------------------------------------------
本程式能改正flashget的這個bug是因為我們用http的頭資訊中是否包含
“Content-Range: bytes 533263-533263/565691”
這樣的符號來判斷伺服器回傳的是否是我們要的檔案資訊。而flashget則不是這樣的，如果哪位網友能通知flashget的作者改正這個bug我將感激不盡！我與其作者聯繫過，但他只回了一封信，問題並沒有解決。 :( 如果有網友發現flashget新版本中解決了這個問題，也請您告訴我一聲，先謝謝您了！
-------------------------------------------------- ------------------------------------------
clq
or
real_clq