[Drongo]

ganselo, Ух, класс, здорово. Получилось. Задача макси решена.

А как теперь реализовать эту часть?

чтобы программа скачала только те модули, которые новее тех, которые присутствуют рядом с программой »

И как правильно сделать ход загрузки? По логике я должен узнать размер файла в байтах и задать это значение ProgressBar. Только, как я понял, CreateFile создаёт файл на диске и поэтому если так делать как я делаю, будет нулевой размер, а как правильн узнать размер скачиваемого файла, дату создания и имя?

Код:

...
   if(data.bFlag) //осуществляется докачка
      InternetSetFilePointer(hInetFile, GetFileSize(hFile, NULL), NULL, FILE_BEGIN, 0); //сдвигаем чтение на GetFileSize бит

   // Ход загрузки
   Form1->ProgressBar1->Position = 0;
   Form1->ProgressBar1->Max = GetFileSize(hFile, NULL);

   //начинаем скачку
   do{
      Form1->ProgressBar1->StepIt(); // Добавил ход загрузки

      InternetReadFile(hInetFile, ReadBuf, sizeof(ReadBuf), &dwRead); //читаем в буффер
      if(dwRead >= 0){ //если считали
         ovlp.hEvent     = NULL;
	 ovlp.OffsetHigh = NULL;
	 ovlp.Offset     = GetFileSize(hFile, NULL);
         WriteFile(hFile, ReadBuf, dwRead, NULL, &ovlp); //пишем в наш файл
	 dwOffset += dwRead;
	}
      else{ //не считали, пытаемся повторить скачивание
...

[ganselo]

А как теперь реализовать эту часть? Цитата Drongo: чтобы программа скачала только те модули, которые новее тех, которые присутствуют рядом с программой » »

Ну например:
1) проверить версию, которая лежит рядом с прогой.
2) Попытаться загрузить версию > из 1). Если ошибка, то новой версии нет иначе качаем новую.

а как правильн узнать размер скачиваемого файла »

Код:

 // открываем запрос
    LPCWSTR rgszAcceptTypes[2] = {pstLRF_Params->szDocumentType,NULL};
    hRequest = ::HttpOpenRequest(hSessiont, L"GET", szUrlPath, L"HTTP/1.1", NULL,rgszAcceptTypes,
                                 INTERNET_FLAG_KEEP_CONNECTION,1);
         if (hRequest == NULL)  throw L"HttpOpenRequest Error";
                
 // посылаем запрос
    fResult= ::HttpSendRequest(hRequest, NULL,0, NULL,0);
              if (!fResult) throw L"HttpSendRequest Error";

    // получаем  информацию о размере данных
     fResult = HttpQueryInfo(hRequest,HTTP_QUERY_CONTENT_LENGTH|HTTP_QUERY_FLAG_NUMBER,&dwFileLength,&dwDwordLength,NULL);
    if (!fResult && (GetLastError() == ERROR_HTTP_HEADER_NOT_FOUND))   
        dwFileLength = (DWORD)pstLRF_Params->uFileLength;

дату создания и имя? »

Не уверен, что можно узнать дату создания файла, а имя (это вы про названия файла?) можно парсить из data.Url.

[Drongo]

Ну например: 1) проверить версию, которая лежит рядом с прогой. 2) Попытаться загрузить версию > из 1). Если ошибка, то новой версии нет иначе качаем новую. »

С этим я разберусь уже, можно обновлять если размер скачиваемого обновления больше того модуля, что лежит рядом, поскольку обновлённый модуль всегда будет немного увеличиваться.

можно парсить из data.Url. »

Это да, смогу тоже, ищем последний слеш "/" + 1. И это будет начало нашего имени файла.

А вот с кодом, который узнаёт размер файла, опять не могу совладать, куда и как правильно его пристроить?

[ganselo]

куда и как правильно его пристроить? »

Ну например после создания сессии вызывать данный код.
Код я взял с инета и увы под рукой нет компилятора(... не могу проверить.

[Drongo]

Ну например после создания сессии вызывать данный код. »

Я так тоже подумал, но при компиляции, нагнуло 26 ошибок. И что там исправлять на что, тоже без понятия.

[ganselo]

Вот вариант без WinInet. Используем TIdHTTP.


Изменяюсь... Не всё за архивировал.

[Drongo]

ganselo, Да, но там только исполнимый файл, и не хватает ещё одного файла .cpp, как раз главного.

[ganselo]

Drongo, перезалил.

[Drongo]

ganselo, Спасибо, вопрос решён окончательно! Из проекта нужно удалить LIBMYSQL.LIB и всё будет в порядке, я когда первый раз открыл проект, мне нагнуло ошибок, что мол, у вас нет компонента TIdHTTP, а вкладки Indy Clients у меня действительно не было, результат убирания неиспользуемых компонентов, пытался доустановить - результат нулевой, сносил билдер, уже нервничать начал, запустил в конце концов C++ Builder 2009 там всё есть, чуть подправил, всё компилится, но заставить работать так и не удалось, по всей видимости это связано с типами данных\переменных, а в этой среде я только-только осваиваюсь. В общем переустановил ещё раз Builder 6.0 все вкладки появились, скомпилилось и работает. Спасибо, ganselo!!!

P.S. Не удаляй пока что архив. Я его ещё раз перезакачаю.

[ganselo]

Из проекта нужно удалить LIBMYSQL.LIB »

У меня в билдере используется данная либа.

В общем переустановил ещё раз Builder 6.0 все вкладки появились, скомпилилось и работает. »

Ну я писал всё это в Builder 6.0.