Chromium 文件下载

Chromium 文件下载

1.下载

在onBeforeDownload事件中添加如下语句：
callback.Cont(ExtractFilePath(ParamStr(0)) + suggestedName, True);
最后一个参数，true显示保存对话窗口；false 不显示保存对话窗口。

2.进度显示

在onDownloadUpdated事件中添加如下语句：

procedure TForm1.Chromium1DownloadUpdated(Sender: TObject;
  const browser: ICefBrowser; const downloadItem: ICefDownloadItem;
  const callback: ICefDownloadItemCallback);
var
  i : nativeint;
begin 
  if downloadItem.IsComplete then
    StatusBar.SimpleText := '100%'
  else
  BEGIN
    i := downloadItem.PercentComplete;
    StatusBar.SimpleText := IntToStr(i) + '%';
  end;
end;