使用 Delphi 和 Indy 通过 Progress 事件以编程方式从 Internet 下载文件

本文介绍了使用 Delphi 和 Indy 通过 Progress 事件以编程方式从 Internet 下载文件的处理方法，对大家解决问题具有一定的参考价值

问题描述

我需要一种使用 Delphi 通过 HTTP 从 Internet 下载文件的方法，其中包括一个 Progress 事件，我正在寻找一种使用 Indy 组件的方法.

I need a way to download a file from the Internet using Delphi via HTTP, Which include an Progress event, I'm looking for a method which uses the Indy components.

我使用的是 Delphi 7.

I am using Delphi 7.

推荐答案

我已经编写了这个示例，仅使用一个 HTTP GET，使用 Indy 10，希望它也适用于 Indy 9:

I've coded this example, using just one HTTP GET, with Indy 10, hope it works with Indy 9 too:

uses
  {...} IdHTTP, IdComponent;

type
  TFormMain = class(TForm)
    {...}
  private
    {...}
    procedure HttpWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
  end;
{...}

procedure TFormMain.Button1Click(Sender: TObject);
var
  Http: TIdHTTP;
  MS: TMemoryStream;
begin
  Http := TIdHTTP.Create(nil);
  try
    MS := TMemoryStream.Create;
    try
      Http.OnWork:= HttpWork;

      Http.Get('http://live.sysinternals.com/ADExplorer.exe', MS);
      MS.SaveToFile('C:ADExplorer.exe');

    finally
      MS.Free;
    end;
  finally
    Http.Free;
  end;
end;

procedure TFormMain.HttpWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
var
  Http: TIdHTTP;
  ContentLength: Int64;
  Percent: Integer;
begin
  Http := TIdHTTP(ASender);
  ContentLength := Http.Response.ContentLength;

  if (Pos('chunked', LowerCase(Http.Response.TransferEncoding)) = 0) and
     (ContentLength > 0) then
  begin
    Percent := 100*AWorkCount div ContentLength;

    MemoOutput.Lines.Add(IntToStr(Percent));
  end;
end;

这篇关于使用 Delphi 和 Indy 通过 Progress 事件以编程方式从 Internet 下载文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，WP2

使用 Delphi 和 Indy 通过 Progress 事件以编程方式从 Internet 下载文件

问题描述

推荐答案

admin_action_{$_REQUEST[‘action’]}

admin_footer-{$GLOBALS[‘hook_suffix’]}

customize_save_{$this->id_data[‘base’]}

customize_value_{$this->id_data[‘base’]}

get_comment_author_url

network_admin_edit_{$_GET[‘action’]}

network_sites_updated_message_{$_GET[‘updated’]}

pre_wp_is_site_initialized

WordPress 的SEO 教学：如何在网站中加入关键字（Meta Keywords）与Meta 描述（Meta Description）？

谷歌的SEO是什么