Delphi-Загрузка файлов с интернет сервера

Тема в разделе "Delphi - Сети", создана пользователем Artexoid, 12 фев 2005.

Статус темы:
Закрыта.
  1. Artexoid

    Artexoid Гость

    [​IMG]
    ═════════════════════════════════════════════════════════════════
    Помогите пожалуйста. Мне нужно организовать загрузку файла с интернет сервера (как показано на рисунке). Подскажите:
    -Как проверить есть ли файл на сервере?
    -Какой процедурой надо пользоваться для загрузки самого файла?
    -Как сделать так чтобы ProgressBar показывала % загрузки файла?
    -Как сделать чтобы Label показывал в байтах скалько байт загружено и сколько всего?
    Зарание огромное спасибо!!!
     
  2. ????

    ???? Гость

    Artexoid
    тынц - для начала
     
  3. Barmutik

    Barmutik Гость

    Воспользоваться компонентом TIndyHTTP.

    Мелкий пример использования .. откачка в потоке. В потом вызываются в Synchronize секции функции которые обновляют содерджимое на форме. У вас есть общее количество байт для скачки и сколько уже скачано... отсюда элементарно делаются проценты:

    Код (Text):
    procedure TDownloadThread.Execute;
    var
    Response: TFileStream;
    begin
    try
     Response := TFileStream.Create('Ваш файл на диске', fmCreate);
     FDownloadHTTP := TIdHTTP.Create(nil);
     try
      FDownloadHTTP.Request.Referer := 'xxx';
      FDownloadHTTP.OnWorkBegin := WorkBegin;
      FDownloadHTTP.OnWork := Work;
      FDownloadHTTP.Get('Ваш урл', Response);
     finally
      FDownloadHTTP.Free;
      Response.Free;
     end;
    except
    end;
    end;

    procedure TDownloadThread.WorkBegin(Sender: TObject;
    AWorkMode: TWorkMode; const AWorkCountMax: Integer);
    begin
    FMaxProgress := AWorkCountMax;
    Synchronize(FSetMaxProgress);
    end;

    procedure TDownloadThread.Work(Sender: TObject; AWorkMode: TWorkMode;
    const AWorkCount: Integer);
    begin
    FProgress := AWorkCount;
    Synchronize(FSetProgress);
    end;
     
  4. Artexoid

    Artexoid Гость

    Спасибо большое это мне помогло!!!!!
     
  5. Barmutik

    Barmutik Гость

    Это радует <_<
     
Загрузка...
Похожие Темы - Delphi Загрузка файлов
  1. cybert
    Ответов:
    0
    Просмотров:
    99
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    160
  3. antares
    Ответов:
    0
    Просмотров:
    443
  4. Луиза
    Ответов:
    0
    Просмотров:
    297
  5. avizer
    Ответов:
    5
    Просмотров:
    732
Статус темы:
Закрыта.

Поделиться этой страницей