1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
CEF4Delphi/source/uCEFDialogHandler.pas

181 lines
6.8 KiB
ObjectPascal
Raw Permalink Normal View History

2017-01-27 17:37:51 +02:00
unit uCEFDialogHandler;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
2017-02-05 21:56:46 +02:00
{$I cef.inc}
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
{$MINENUMSIZE 4}
2017-01-27 17:37:51 +02:00
interface
uses
2017-02-05 21:56:46 +02:00
{$IFDEF DELPHI16_UP}
2017-01-27 17:37:51 +02:00
System.Classes,
2017-02-05 21:56:46 +02:00
{$ELSE}
Classes,
{$ENDIF}
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
2017-01-27 17:37:51 +02:00
type
TCefDialogHandlerOwn = class(TCefBaseRefCountedOwn, ICefDialogHandler)
2017-01-27 17:37:51 +02:00
protected
2024-06-14 19:17:43 +02:00
function OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; const acceptFilters, accept_extensions, accept_descriptions: TStrings; const callback: ICefFileDialogCallback): Boolean; virtual;
procedure RemoveReferences; virtual;
2017-01-27 17:37:51 +02:00
public
constructor Create; virtual;
end;
TCustomDialogHandler = class(TCefDialogHandlerOwn)
protected
FEvents : Pointer;
2024-06-14 19:17:43 +02:00
function OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title: ustring; const defaultFilePath: ustring; const acceptFilters, accept_extensions, accept_descriptions: TStrings; const callback: ICefFileDialogCallback): Boolean; override;
2017-01-27 17:37:51 +02:00
procedure RemoveReferences; override;
2017-01-27 17:37:51 +02:00
public
constructor Create(const events : IChromiumEvents); reintroduce; virtual;
destructor Destroy; override;
2017-01-27 17:37:51 +02:00
end;
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils,
{$ELSE}
SysUtils,
{$ENDIF}
2018-03-29 20:02:04 +02:00
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFileDialogCallback, uCEFStringList;
2017-01-27 17:37:51 +02:00
2018-02-26 19:40:51 +02:00
function cef_dialog_handler_on_file_dialog(self : PCefDialogHandler;
browser : PCefBrowser;
mode : TCefFileDialogMode;
const title : PCefString;
const default_file_path : PCefString;
accept_filters : TCefStringList;
2024-06-14 19:17:43 +02:00
accept_extensions : TCefStringList;
accept_descriptions : TCefStringList;
2018-02-26 19:40:51 +02:00
callback : PCefFileDialogCallback): Integer; stdcall;
2017-01-27 17:37:51 +02:00
var
2024-06-14 19:17:43 +02:00
TempFilters : TStringList;
TempExtensions : TStringList;
TempDescriptions : TStringList;
TempCefFilters : ICefStringList;
TempCefExtensions : ICefStringList;
TempCefDescriptions : ICefStringList;
TempObject : TObject;
2017-01-27 17:37:51 +02:00
begin
2024-06-14 19:17:43 +02:00
TempFilters := nil;
TempExtensions := nil;
TempDescriptions := nil;
Result := Ord(False);
2018-02-26 19:40:51 +02:00
2017-01-27 17:37:51 +02:00
try
2018-02-26 19:40:51 +02:00
try
2018-03-29 20:02:04 +02:00
TempObject := CefGetObject(self);
2018-02-26 19:40:51 +02:00
2018-03-29 20:02:04 +02:00
if (TempObject <> nil) and (TempObject is TCefDialogHandlerOwn) then
2018-02-26 19:40:51 +02:00
begin
2024-06-14 19:17:43 +02:00
TempFilters := TStringList.Create;
TempCefFilters := TCefStringListRef.Create(accept_filters);
TempCefFilters.CopyToStrings(TempFilters);
TempExtensions := TStringList.Create;
TempCefExtensions := TCefStringListRef.Create(accept_extensions);
TempCefExtensions.CopyToStrings(TempExtensions);
TempDescriptions := TStringList.Create;
TempCefDescriptions := TCefStringListRef.Create(accept_descriptions);
TempCefDescriptions.CopyToStrings(TempDescriptions);
2018-03-29 20:02:04 +02:00
Result := Ord(TCefDialogHandlerOwn(TempObject).OnFileDialog(TCefBrowserRef.UnWrap(browser),
mode,
CefString(title),
CefString(default_file_path),
2024-06-14 19:17:43 +02:00
TempFilters,
TempExtensions,
TempDescriptions,
2018-03-29 20:02:04 +02:00
TCefFileDialogCallbackRef.UnWrap(callback)));
2018-02-26 19:40:51 +02:00
end;
except
on e : exception do
if CustomExceptionHandler('cef_dialog_handler_on_file_dialog', e) then raise;
2017-01-27 17:37:51 +02:00
end;
finally
2024-06-14 19:17:43 +02:00
if (TempFilters <> nil) then FreeAndNil(TempFilters);
if (TempExtensions <> nil) then FreeAndNil(TempExtensions);
if (TempDescriptions <> nil) then FreeAndNil(TempDescriptions);
2017-01-27 17:37:51 +02:00
end;
end;
constructor TCefDialogHandlerOwn.Create;
begin
2018-03-29 20:02:04 +02:00
inherited CreateData(SizeOf(TCefDialogHandler));
2017-01-27 17:37:51 +02:00
PCefDialogHandler(FData)^.on_file_dialog := {$IFDEF FPC}@{$ENDIF}cef_dialog_handler_on_file_dialog;
2017-01-27 17:37:51 +02:00
end;
2018-03-29 20:02:04 +02:00
function TCefDialogHandlerOwn.OnFileDialog(const browser : ICefBrowser;
mode : TCefFileDialogMode;
const title : ustring;
const defaultFilePath : ustring;
const acceptFilters : TStrings;
2024-06-14 19:17:43 +02:00
const accept_extensions : TStrings;
const accept_descriptions : TStrings;
2018-03-29 20:02:04 +02:00
const callback : ICefFileDialogCallback): Boolean;
2017-01-27 17:37:51 +02:00
begin
Result := False;
end;
procedure TCefDialogHandlerOwn.RemoveReferences;
begin
//
end;
2017-01-27 17:37:51 +02:00
// TCustomDialogHandler
constructor TCustomDialogHandler.Create(const events : IChromiumEvents);
2017-01-27 17:37:51 +02:00
begin
inherited Create;
FEvents := Pointer(events);
2017-01-27 17:37:51 +02:00
end;
destructor TCustomDialogHandler.Destroy;
begin
RemoveReferences;
inherited Destroy;
end;
procedure TCustomDialogHandler.RemoveReferences;
begin
FEvents := nil;
end;
function TCustomDialogHandler.OnFileDialog(const browser : ICefBrowser;
mode : TCefFileDialogMode;
const title : ustring;
const defaultFilePath : ustring;
2018-03-29 20:02:04 +02:00
const acceptFilters : TStrings;
2024-06-14 19:17:43 +02:00
const accept_extensions : TStrings;
const accept_descriptions : TStrings;
const callback : ICefFileDialogCallback): Boolean;
2017-01-27 17:37:51 +02:00
begin
if (FEvents <> nil) then
Result := IChromiumEvents(FEvents).doOnFileDialog(browser, mode, title, defaultFilePath,
2024-06-14 19:17:43 +02:00
acceptFilters, accept_extensions, accept_descriptions, callback)
else
Result := inherited OnFileDialog(browser, mode, title, defaultFilePath,
2024-06-14 19:17:43 +02:00
acceptFilters, accept_extensions, accept_descriptions, callback);
2017-01-27 17:37:51 +02:00
end;
end.