mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-16 00:05:55 +01:00
ca8bc9dff4
Added the PDS file to extract the HTML Help files using PasDoc Added more XML documentation Fixed some XML errors. Removed the license copy from the pas units. Updated the LICENSE.md file
131 lines
3.0 KiB
ObjectPascal
131 lines
3.0 KiB
ObjectPascal
unit uCEFPDFPrintCallback;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE OBJFPC}{$H+}
|
|
{$ENDIF}
|
|
|
|
{$I cef.inc}
|
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
{$MINENUMSIZE 4}
|
|
|
|
interface
|
|
|
|
uses
|
|
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
|
|
|
|
type
|
|
TCefPdfPrintCallbackOwn = class(TCefBaseRefCountedOwn, ICefPdfPrintCallback)
|
|
protected
|
|
procedure OnPdfPrintFinished(const path: ustring; ok: Boolean); virtual; abstract;
|
|
|
|
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;
|
|
end;
|
|
|
|
TCefCustomPDFPrintCallBack = class(TCefPdfPrintCallbackOwn)
|
|
protected
|
|
FEvents : Pointer;
|
|
|
|
procedure OnPdfPrintFinished(const path: ustring; aResultOK : Boolean); override;
|
|
|
|
public
|
|
constructor Create(const aEvents : IChromiumEvents); reintroduce;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.SysUtils,
|
|
{$ELSE}
|
|
SysUtils,
|
|
{$ENDIF}
|
|
uCEFMiscFunctions, uCEFLibFunctions;
|
|
|
|
procedure cef_pdf_print_callback_on_pdf_print_finished( self : PCefPdfPrintCallback;
|
|
const path : PCefString;
|
|
ok : Integer); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefPdfPrintCallbackOwn) then
|
|
TCefPdfPrintCallbackOwn(TempObject).OnPdfPrintFinished(CefString(path),
|
|
ok <> 0);
|
|
end;
|
|
|
|
constructor TCefPdfPrintCallbackOwn.Create;
|
|
begin
|
|
inherited CreateData(SizeOf(TCefPdfPrintCallback));
|
|
|
|
with PCefPdfPrintCallback(FData)^ do
|
|
on_pdf_print_finished := {$IFDEF FPC}@{$ENDIF}cef_pdf_print_callback_on_pdf_print_finished;
|
|
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
|
|
FProc := nil;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
// TCefCustomPDFPrintCallBack
|
|
|
|
constructor TCefCustomPDFPrintCallBack.Create(const aEvents : IChromiumEvents);
|
|
begin
|
|
inherited Create;
|
|
|
|
FEvents := Pointer(aEvents);
|
|
end;
|
|
|
|
destructor TCefCustomPDFPrintCallBack.Destroy;
|
|
begin
|
|
FEvents := nil;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TCefCustomPDFPrintCallBack.OnPdfPrintFinished(const path: ustring; aResultOK : Boolean);
|
|
begin
|
|
try
|
|
try
|
|
if (FEvents <> nil) then IChromiumEvents(FEvents).doPdfPrintFinished(aResultOK);
|
|
except
|
|
on e : exception do
|
|
if CustomExceptionHandler('TCefCustomPDFPrintCallBack.OnPdfPrintFinished', e) then raise;
|
|
end;
|
|
finally
|
|
FEvents := nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|