Доработка функции

[Черничный]

Есть функция:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin    
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

SourceFile представляет собой что-то типа: http://site.ru/img.jpg
DestFile представляет собой что-то типа: img.jpg

Хотел бы еще реализовать сюда общий размер файла(ведь вместо имга можно и фаил качать), а так же сколько уже скачано(для реализации progressbar'a).

На примере картинке, после вызова функции и удачной скачки, можно ее загрузить в TImage с того места куда она была скачана. Так вот, а я хочу скачивать в TStream и соответсвенно загружать в TImage из TStream. Жду вашего хелпа

[Stilet]

Думаю что эта функа не позволит такого.
Тут либо нужно качать через Indy либо через функи модуля wininet, тогда и прогрессбар мона прикрутить.

Вот примерчик моей качалки:

     FileName:=dir_download+' - '+copyas(ListBox1.Items[ListBox1.ItemIndex],'/',-1);
        Application.Title:='Начинаю';
          hSession := InternetOpen('Operishe',
           INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
          caption:=inttostr(integer(hSession));
          if Assigned(hSession) then
          begin
            hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,INTERNET_FLAG_RELOAD, 0);
            caption:='файл № '+inttostr (integer(hfile));
            if Assigned(hFile) then begin
                AssignFile(f, FileName);
                Rewrite(f,1);
                fsize:=0;
                repeat
                  InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen);
                  BlockWrite(f, Buffer, BufferLen);
                  fSize := fSize + BufferLen;
                  caption:=inttostr(i+1)+' из '+inttostr(ListBox1.Count) +' ('+inttostr(fsize)+') '+'['+inttostr(BufferLen)+']';
                until (BufferLen = 0);
                InternetCloseHandle(hFile);
            end;
            InternetCloseHandle(hSession);

         next:
         end;

ТОлько я не прикручивал прогрессбар

[Черничный]

а где те переменные то с этими значениями?

[Stilet]

Какие переменные?

Вот прикладываю полный проект.

[Черничный]

ну переменные, которым присваиваются значения общий размер и скока скачано

[Stilet]

Я этого не делал ) Мне не нужно было.
В моем примере BufferLen - это сколько байт скачано за один вызов (у меня это число было 1024), вот при каждой итерации цикла (в моем примере) можно к отдельной переменке прибавлять этот BufferLen и таким образом узнавать сколько скачано

А вот как получить размер через wininet я точно не помню.
Посмотри на Delphi World в разделе Файлы и Интернет - [18]

Еще прорули качку через indy

[Черничный]

ладно, а как в моем варианте скачивать в TSream?