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

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

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

    Artexoid Гость

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

    ???? Гость

    Репутация:
    0
    Artexoid
    тынц - для начала
     
  3. Barmutik

    Barmutik Гость

    Репутация:
    0
    Воспользоваться компонентом 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 Гость

    Репутация:
    0
    Спасибо большое это мне помогло!!!!!
     
  5. Barmutik

    Barmutik Гость

    Репутация:
    0
    Это радует <_<
     
Загрузка...
Похожие Темы - Delphi Загрузка файлов
  1. Stupak
    Ответов:
    0
    Просмотров:
    113
  2. cybert
    Ответов:
    0
    Просмотров:
    519
  3. Shouldercannon
    Ответов:
    0
    Просмотров:
    556
  4. antares
    Ответов:
    0
    Просмотров:
    811
  5. Луиза
    Ответов:
    0
    Просмотров:
    415
Статус темы:
Закрыта.

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