загрузка с отобр.прогреса файла из интернета

[casio23]

люди добрые дайте рабочий код по загрузке файла из интернета делаю следующим образом, файл ~5мб , загружает только 2кб

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

unit Updates;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,httpsend,Wininet, Vcl.ComCtrls,
  acProgressBar,  Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    sProgressBar1: TsProgressBar;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
      procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form4: TForm4;
    URL, FN: string;
   version: string;
implementation

{$R *.dfm}

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result:=False;
  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
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer,
        SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
HTTP: THTTPSend;
HTML: TStringlist;
begin
HTML:= TStringlist.Create;
HTTP:= THTTPSend.Create;
HTTP.HTTPMethod('GET', 'http://the-best.clan.su/version.txt');
HTML.LoadFromStream(HTTP.Document);

if pos(version, HTML.Text)<>0 then
begin
Memo1.Lines.Add('Обновления не обнаружены');
end else
begin
Memo1.Lines.Add('Обновления обнаружены');
Memo1.Lines.Add('Началась скачка файла');

URL := 'wwwww';
FN := 'Project1.exe';


if GetInetFile(URL, FN) then
begin
Memo1.Lines.Add('Файл успешно скачан в папку с проектом');
end else
begin
Memo1.Lines.Add('Ошибка');
end;

end;

end;

procedure TForm4.FormCreate(Sender: TObject);
begin
version :='1.2';
end;



end.

[XE5]

Сообщение от casio23

люди добрые дайте рабочий код по загрузке файла из интернета

Не вижу в задаче указания на используемый загрузочный модуль. Вижу в коде синапс, но код не есть задача. Прошу уточнить.

Сообщение от casio23

примеры находил но они не рабочие

Примеры не рабочие, или не хватает соображалки применить найденные примеры? Очень часто люди свою безграмотность прикрывают ложными обвинениями в кривости примеров. А это не очень красиво.

P.S. Вопрос на засыпку. Зачем в приведённом коде нужны глобальные переменные URL и FN, если они ни где не используются?

if GetInetFile('wwwww', 'Project1.exe') then...

Я так понимаю приведённый код, это попытка сделать самообновление приложения из интернета. Используйте реальную версию приложения, которую Вы должны указывать в настройках проекта, а не строковые константы в коде. Особо удобно в таких случаях использовать так называемый билд.

[casio23]

Сообщение от XE5

Не вижу в задаче указания на используемый загрузочный модуль. Вижу в коде синапс, но код не есть задача. Прошу уточнить.

Примеры не рабочие, или не хватает соображалки применить найденные примеры? Очень часто люди свою безграмотность прикрывают ложными обвинениями в кривости примеров. А это не очень красиво.

P.S. Вопрос на засыпку. Зачем в приведённом коде нужны глобальные переменные URL и FN, если они ни где не используются?

if GetInetFile('wwwww', 'Project1.exe') then...

Я так понимаю приведённый код, это попытка сделать самообновление приложения из интернета. Используйте реальную версию приложения, которую Вы должны указывать в настройках проекта, а не строковые константы в коде. Особо удобно в таких случаях использовать так называемый билд.

из 5мб скачивается только 2,7 кб Потому что приведенный код кривой. Он работает только на ОЧЕНЬ хорошей линии, ибо предполагается, что передача по сети осуществляется быстрее, чем вы в цикле вычитываете данные из входного буфера. Если линия тонкая или сервак чуть притормозил, то срабатывает "until BufferLen = 0;". По уму нужно внутри ставить цикл ожидания данных while BufferLen = 0... с замером времени и выходом по таймауту, чтоб не зависнуть в ожидании данных навечно.

[casio23]

извиняюсь код рабочий, вот только почему то не пойму почему файлы *.exe не скачивает полностью? файлы *.rar отлично скачивает

[XE5]

А я не пойму, почему Вы не ответили на мой вопрос.

Не вижу в задаче указания на используемый загрузочный модуль. Вижу в коде синапс, но код не есть задача. Прошу уточнить.

[casio23]

Сообщение от XE5

А я не пойму, почему Вы не ответили на мой вопрос.

вот изменил для загрузки файла

function ExtractUrlFileName(url: string): string;
var
  A: LongInt;
begin
  // извлекаем название файла из ссылки
  result := '';
  A := LastDelimiter('/', url);
  if (A > 0) and (url[A] = '/') then
    result := Copy(url, A + 1, Length(url) - A);
end;

function GetInetFileSize(const FileUrl: string): integer;
var
  IdHTTP: TIdHTTP;
begin
  result := -1; // Ставим первоначальное значение -1, потом поймёте зачем
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.Head(FileUrl); // Мы получаем только заголовок нашего файла, где хранится размер файла, код запроса и т.п.
    if IdHTTP.ResponseCode = 200 then // Если файл существует, то... (200 это успешный код: HTTP OK)
      result := IdHTTP.Response.ContentLength; // В результат пихаем наш размер файла в байтах.
  except
    IdHTTP.Free;
  end;
end;

procedure TDownload.Execute;
const
  BufferSize = 1024;
var
  stream: TMemoryStream;
  FName: String;
  http: TIdHTTP;
begin
  FName := ExtractFilePath(Application.ExeName)+ ExtractUrlFileName(Form13.ed.Text);
  http := TIdHTTP.Create(nil);
  http.OnWork := OnWork;
  http.OnWorkBegin := OnWorkBegin;
  http.OnWorkEnd := OnWorkEnd;
  stream := TMemoryStream.Create;
  size := GetInetFileSize(Form13.ed.Text); // Узнаём размер файла
  if size > 0 then
    try
      sizes := floattostr(RoundTo(size / (1024 * 1024), -2)); // Переводим в МБ
      Form13.lb2.Caption := 'Размер на сервере: ' + sizes + ' MB.';
      // sizes:=floattostr(RoundTo(size/(1024) , -2)); //Переводим в KB
      http.get(Form13.ed.Text, stream); // Начинаем скачивание
      stream.SaveToFile(FName); // Сохраняем
    except
      FreeAndNil(http); // Завершаем HTTP
      FreeAndNil(stream); // Завершаем Stream
    end
  else
    Showmessage('Ошибка при скачивании файла!'); // Если размер файала меньше 0, то выводим сообщение.
end;

procedure TDownload.OnWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  Form13.gud.Progress := AWorkCount; // Вбимаем кол-во скачанного
  Form13.lb.Caption := 'Всего загружено: ' + floattostr
    (RoundTo(AWorkCount / (1024 * 1024), -2)) + ' MB.';
end;

procedure TDownload.OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  Form13.gud.MaxValue := AWorkCountMax; // За макс. граничей прогресса, у нас будет размер файла
  Form13.bt.Caption := 'Загружаем...';
end;

procedure TDownload.OnWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  Form13.gud.Progress := 0; // После завершения загрузки, прогресс = 0
  Form13.bt.Caption := 'Готово!';
end;

procedure TForm13.btClick(Sender: TObject);
begin
  TDownload.Create(false);
end;

загружает все прекрасно, но exe нет! Почему?подскажите...
Download.part1.rar

Download.part2.rar

[Пепел Феникса]

Сообщение от casio23

загружает все прекрасно, но exe нет! Почему?подскажите...

не юкоз случаем?