Lazarus使用cef打开文件和下载设置

//下载
procedure TForm1.Chromium1BeforeDownload(Sender: TObject;
const browser: ICefBrowser; const downloadItem: ICefDownloadItem;
const suggestedName: ustring; const callback: ICefBeforeDownloadCallback);
begin
callback.Cont(ExtractFilePath(ParamStr(0)) + suggestedName, True);
end;

//打开文件

procedure TForm1.Chromium1FileDialog(Sender: TObject;
const browser: ICefBrowser; mode: TCefFileDialogMode; const title,
defaultFilePath: ustring; const acceptFilters: TStrings;
selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback; out
Result: Boolean);
var
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
FilterStr: string;
I,DialogType: Integer;
filePaths: TStringList;
begin
Result := True;
DialogType := mode - FILE_DIALOG_C;

// 构建过滤器
if acceptFilters.Count > 0 then
begin
FilterStr := '';
for I := 0 to acceptFilters.Count - 1 do
begin
if FilterStr <> '' then
FilterStr := FilterStr + '|';
FilterStr := FilterStr + acceptFilters[I] + ' (' +
acceptFilters[I] + ')|' + acceptFilters[I];
end;
end;

case DialogType of
FILE_DIALOG_OPEN_MULTIPLE, FILE_DIALOG_OPEN:
try
//打开文件对话框
OpenDialog := TOpenDialog.Create(nil);
if title <> '' then
OpenDialog.Title := title;
OpenDialog.Filter := FilterStr;

// 同步到主线程显示对话框
TThread.Synchronize(nil,
procedure
begin
// 禁用多选
if DialogType = FILE_DIALOG_OPEN then
OpenDialog.Options := OpenDialog.Options - [ofAllowMultiSelect];
if OpenDialog.Execute then
begin
FilePaths := TStringList.Create;
try
FilePaths.Add(OpenDialog.FileName);
callback.Cont(selectedAcceptFilter, FilePaths);
finally
FilePaths.Free;
end;
end
else
callback.Cancel;
end);
finally
OpenDialog.Free;
end;
FILE_DIALOG_SAVE:
begin
try
//保存文件对话框
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.FileName := ExtractFileName(defaultFilePath);
if title <> '' then
SaveDialog.Title := title;

SaveDialog.Filter := FilterStr;
// 同步到主线程显示对话框
TThread.Synchronize(nil,
procedure
begin
if SaveDialog.Execute then
begin
FilePaths := TStringList.Create;
try
FilePaths.Add(SaveDialog.FileName);
callback.Cont(selectedAcceptFilter, FilePaths);
finally
FilePaths.Free;
end;
end
else
callback.Cancel;
end);
finally
SaveDialog.Free;
end;
end;
else
begin
WriteLn('不支持对话窗口');
callback.Cancel;
Exit;
end;
end;
end;