1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-12-04 09:26:52 +02:00
CEF4Delphi/source/uCEFDialogHandler.pas

198 lines
7.2 KiB
ObjectPascal
Raw Normal View History

2017-01-27 17:37:51 +02:00
// ************************************************************************
// ***************************** CEF4Delphi *******************************
// ************************************************************************
//
// CEF4Delphi is based on DCEF3 which uses CEF3 to embed a chromium-based
// browser in Delphi applications.
//
// The original license of DCEF3 still applies to CEF4Delphi.
//
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2019 Salvador Diaz Fau. All rights reserved.
2017-01-27 17:37:51 +02:00
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
// ************************************************************************
(*
* Delphi Chromium Embedded 3
*
* Usage allowed under the restrictions of the Lesser GNU General Public License
* or alternatively the restrictions of the Mozilla Public License 1.1
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
*
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
* Web site : http://www.progdigy.com
* Repository : http://code.google.com/p/delphichromiumembedded/
* Group : http://groups.google.com/group/delphichromiumembedded
*
* Embarcadero Technologies, Inc is not permitted to use or redistribute
* this source code without explicit permission.
*
*)
unit uCEFDialogHandler;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$IFNDEF CPUX64}{$ALIGN ON}{$ENDIF}
{$MINENUMSIZE 4}
2017-01-27 17:37:51 +02:00
2017-02-05 21:56:46 +02:00
{$I cef.inc}
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
2018-03-29 20:02:04 +02:00
function OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; const acceptFilters: TStrings; selectedAcceptFilter: Integer; 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;
2018-03-29 20:02:04 +02:00
function OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title: ustring; const defaultFilePath: ustring; const acceptFilters: TStrings; selectedAcceptFilter: Integer; 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;
selected_accept_filter : Integer;
callback : PCefFileDialogCallback): Integer; stdcall;
2017-01-27 17:37:51 +02:00
var
2018-03-29 20:02:04 +02:00
TempSL : TStringList;
TempCefSL : ICefStringList;
TempObject : TObject;
2017-01-27 17:37:51 +02:00
begin
2018-02-26 19:40:51 +02:00
TempSL := nil;
2018-03-29 20:02:04 +02:00
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
2018-03-29 20:02:04 +02:00
TempSL := TStringList.Create;
TempCefSL := TCefStringListRef.Create(accept_filters);
TempCefSL.CopyToStrings(TempSL);
Result := Ord(TCefDialogHandlerOwn(TempObject).OnFileDialog(TCefBrowserRef.UnWrap(browser),
mode,
CefString(title),
CefString(default_file_path),
TempSL,
selected_accept_filter,
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
2018-02-26 19:40:51 +02:00
if (TempSL <> nil) then FreeAndNil(TempSL);
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;
selectedAcceptFilter : Integer;
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;
selectedAcceptFilter : Integer;
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,
acceptFilters, selectedAcceptFilter, callback)
else
Result := inherited OnFileDialog(browser, mode, title, defaultFilePath,
acceptFilters, selectedAcceptFilter, callback);
2017-01-27 17:37:51 +02:00
end;
end.