CEF4Delphi/source/uCEFPDFPrintCallback.pas

157 lines
4.4 KiB
ObjectPascal
Raw Normal View History

2017-01-27 16:37:51 +01: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 <20> 2017 Salvador D<>az Fau. All rights reserved.
//
// ************************************************************************
// ************ 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 uCEFPDFPrintCallback;
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
{$ENDIF}
2017-02-05 20:56:46 +01:00
{$I cef.inc}
2017-01-27 16:37:51 +01:00
interface
uses
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
2017-01-27 16:37:51 +01:00
type
TCefPdfPrintCallbackOwn = class(TCefBaseRefCountedOwn, ICefPdfPrintCallback)
2017-01-27 16:37:51 +01:00
protected
procedure OnPdfPrintFinished(const path: ustring; ok: Boolean); virtual; abstract;
procedure InitializeVars; virtual; abstract;
2017-01-27 16:37:51 +01:00
public
constructor Create; virtual;
end;
TCefFastPdfPrintCallback = class(TCefPdfPrintCallbackOwn)
protected
FProc: TOnPdfPrintFinishedProc;
procedure OnPdfPrintFinished(const path: ustring; ok: Boolean); override;
public
constructor Create(const proc: TOnPdfPrintFinishedProc); reintroduce;
destructor Destroy; override;
procedure InitializeVars; override;
2017-01-27 16:37:51 +01:00
end;
TCefCustomPDFPrintCallBack = class(TCefPdfPrintCallbackOwn)
2017-01-27 16:37:51 +01:00
protected
FChromiumBrowser : TObject;
procedure OnPdfPrintFinished(const path: ustring; aResultOK : Boolean); override;
public
constructor Create(const aChromiumBrowser : TObject); reintroduce;
destructor Destroy; override;
procedure InitializeVars; override;
2017-01-27 16:37:51 +01:00
end;
implementation
uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFChromium;
procedure cef_pdf_print_callback_on_pdf_print_finished(self: PCefPdfPrintCallback; const path: PCefString; ok: Integer); stdcall;
begin
with TCefPdfPrintCallbackOwn(CefGetObject(self)) do OnPdfPrintFinished(CefString(path), ok <> 0);
end;
constructor TCefPdfPrintCallbackOwn.Create;
begin
2017-11-25 19:04:15 +01:00
CreateData(SizeOf(TCefPdfPrintCallback));
2017-01-27 16:37:51 +01:00
PCefPdfPrintCallback(FData).on_pdf_print_finished := cef_pdf_print_callback_on_pdf_print_finished;
2017-01-27 16:37:51 +01:00
end;
// TCefFastPdfPrintCallback
constructor TCefFastPdfPrintCallback.Create(const proc: TOnPdfPrintFinishedProc);
begin
FProc := proc;
inherited Create;
end;
procedure TCefFastPdfPrintCallback.OnPdfPrintFinished(const path: ustring; ok: Boolean);
begin
if assigned(FProc) then FProc(path, ok);
end;
destructor TCefFastPdfPrintCallback.Destroy;
begin
InitializeVars;
inherited Destroy;
end;
procedure TCefFastPdfPrintCallback.InitializeVars;
begin
FProc := nil;
2017-01-27 16:37:51 +01:00
end;
// TCefCustomPDFPrintCallBack
2017-01-27 16:37:51 +01:00
constructor TCefCustomPDFPrintCallBack.Create(const aChromiumBrowser : TObject);
2017-01-27 16:37:51 +01:00
begin
inherited Create;
FChromiumBrowser := aChromiumBrowser;
end;
destructor TCefCustomPDFPrintCallBack.Destroy;
begin
InitializeVars;
inherited Destroy;
end;
procedure TCefCustomPDFPrintCallBack.InitializeVars;
begin
FChromiumBrowser := nil;
end;
procedure TCefCustomPDFPrintCallBack.OnPdfPrintFinished(const path: ustring; aResultOK : Boolean);
2017-01-27 16:37:51 +01:00
begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then
TChromium(FChromiumBrowser).Internal_PdfPrintFinished(aResultOK);
2017-01-27 16:37:51 +01:00
end;
end.