我来分享delphi下载文件代码。

访客 11分钟前 458 0

delphi下载文件代码

Delphi 下载文件代码

直接下载文件

procedure TForm1.btnDownloadClick(Sender: TObject);
var
  URL: String;
  FileName: String;
  Client: TIdHTTP;
begin
  // 获取要下载的文件的 URL
  URL := 'http://example.com/file.zip';  // 指定要保存文件的名称
  FileName := 'C:\Downloads\file.zip';  // 创建 IdHTTP 客户端
  Client := TIdHTTP.Create;  try
    // 下载文件
    Client.Get(URL, FileName);    // 下载成功
    ShowMessage('文件已成功下载至 ' + FileName);
  except
    // 下载失败
    ShowMessage('下载文件时出错：' + Client.IOHandler.LastError.Message);
  end;  // 清除
  Client.Free;
end;

登录后复制

使用进度条下载文件

procedure TForm1.btnDownloadClick(Sender: TObject);
var
  URL: String;
  FileName: String;
  Client: TIdHTTP;
  Bytes: TBytes;
  TotalBytes: Int64;
begin
  // 获取要下载的文件的 URL
  URL := 'http://example.com/file.zip';  // 指定要保存文件的名称
  FileName := 'C:\Downloads\file.zip';  // 创建 IdHTTP 客户端
  Client := TIdHTTP.Create;  try
    // 获取文件大小
    TotalBytes := Client.Head(URL).ContentLength;    // 设置进度条最大值
    ProgressBar1.Max := TotalBytes;    // 下载文件
    Client.Get(URL, FileName, nil,
      procedure(Sender: TIdHTTP; const BytesRead: Int64)
      begin
        // 更新进度条
        ProgressBar1.Position := BytesRead;
      end);    // 下载成功
    ShowMessage('文件已成功下载至 ' + FileName);
  except
    // 下载失败
    ShowMessage('下载文件时出错：' + Client.IOHandler.LastError.Message);
  end;  // 清除
  Client.Free;
end;

登录后复制

以上就是delphi下载文件代码的详细内容，更多请关注楠楠科技社其它相关文章！

标签： #代码 #文件 #delphi