Получение размера файла

[Johnson]

Здравствуйте, уважаемые.
Мне в программе необходимо закачивать из интернета файлы (обновления), и соответственно нужно получить размер закачиваемого файла... я пытаюсь делать это так:

   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
      try
         dwIndex  := 0;
         dwBufferLen := 20;
         if HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,
                          @dwBuffer, dwBufferLen, dwIndex) then
            GetsSize :=PChar(@dwBuffer);
         Synchronize(SetCurrent);
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen);
            downSize:=downSize+BufferLen;
            Synchronize(SetCurrent);
         until BufferLen = 0;
         CloseFile(f);
         Progress:=1;
         Synchronize(SetProgress);
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end;

но в итоге в переменной GetsSize оказывается значение вроде такого: Я(и символ в виде квадрата)...
пробовал также так:

HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH,
                          @dwBuffer, dwBufferLen, dwIndex)

, но тогда в переменной оказывается нужное значение, но с символом (символ в виде квадрата) в конце (но не всегда)...

Подскажите, как правильно получить размер файла, чтоб его можно было перевести в числовой вид?

ЗЫ форум обрезал неизвестные символы....

[Johnson]

Извиняюсь, нашел ответ в разделе работы с сетью...
Тему можно удалить...

[Alar]

Johnson, во втором сообщении можно было бы и ссылку поставить на ту тему.

[Johnson]

Извиняюсь, вот ссылка, в которой нашел ответ: http://programmersforum.ru/showthrea...=HttpQueryInfo