[AleD]

Есть у меня одна функция скачивания текстового файла из инета, но она работает очень тугодумно. Браузер страницу (исходник) грузит 2-3 секунды, а эта функция может думать до 1-2 минут. Притом ещё и не работает (просто виснет) в потоке. Помогите исправить изъяны:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

function LoadHtml(fURL : WideString): AnsiString; var   hInternet  : pointer;   hConnect   : pointer;   hRequest   : pointer;     Size       : cardinal;   B          : boolean;   Buff       : ANSIString;   ReadedSize : cardinal;   I, L       : cardinal;   function OpenInternet(Name: WideString): pointer; begin   result := InternetOpenW(@Name[1], INTERNET_OPEN_TYPE_PRECONFIG,     nil, nil, 0); end; function Connect(hInternet : pointer): pointer; var   SiteURL: String; begin   result := nil;   SiteURL := ADExtractUrlHostName(fURL);   if hInternet = nil  then exit;     result := InternetConnectW(hInternet, @SiteURL[1],     INTERNET_DEFAULT_HTTP_PORT,     'anonymous', nil, INTERNET_SERVICE_HTTP, 0, 0); end; function NewRequest(fURL : WideString; hConnect: pointer): pointer; begin   result := nil;   if hConnect = nil then exit;     result := HTTPopenRequestW(hConnect, nil, @fURL[1],                              nil, nil, nil, INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0); end; function SendRequest(hRequest: pointer): boolean; begin   result := false;   if hRequest = nil then exit;     result := HTTPsendRequestW(hRequest, nil, 0, nil, 0); end; function DataAvailable(hRequest: pointer; out Size : cardinal): boolean; begin   result := wininet.InternetQueryDataAvailable(hRequest, Size, 0, 0); end; function SizeQuery(hRequest: pointer; out Size : cardinal): boolean; var   RSize,rv : cardinal;   p : pointer; begin   RSize  := 4;   result := HttpQueryInfoW(hRequest,     HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,     @Size, RSize, rv);   if NOT result then Size := 0; end;   begin   result := '';     hInternet := OpenInternet('ADworldMiniDownloader');   hConnect  := Connect(hInternet);   hRequest  := NewRequest(ADExtractUrlFilePath(fURL), hConnect);   if NOT SendRequest(hRequest) then   begin     if hRequest  <> nil then InternetCloseHandle(hRequest);     if hConnect  <> nil then InternetCloseHandle(hConnect);     if hInternet <> nil then InternetCloseHandle(hInternet);     exit;   end;     SizeQuery(hRequest, Size);     inc(Size);   SetLength(Buff, Size);     B := false;     I := 1;   while true do   begin     DataAvailable(hRequest, L);       if L = 0 then       break;       if (I + L) > Size then       SetLength(Buff, I + L);       B := InternetReadFile(hRequest, @Buff[i], L, ReadedSize);       if not B then       break;       inc(I, ReadedSize);   end;   if hRequest  <> nil then InternetCloseHandle(hRequest);   if hConnect  <> nil then InternetCloseHandle(hConnect);   if hInternet <> nil then InternetCloseHandle(hInternet);   Result := Buff; end;