pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3163.1670.g934eaba

Browse Source 
- Added 2 overloaded versions of TChromium.RetrieveHTML
- Modified TCefBrowserRef.GetFrameIdentifiers and TCefBrowserRef.GetFrameNames functions
This commit is contained in:
Salvador Díaz Fau
2017-09-24 12:48:04 +02:00
parent 9656a1323f
commit 9c33c49353
19 changed files with 450 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
source/uCEFTask.pas
View File

@ -84,11 +84,16 @@ type
protected
FChromiumBrowser : TObject;
FFrameName : ustring;
FFrame : ICefFrame;
FFrameIdentifier : int64;
procedure Execute; override;
public
constructor Create(const aChromiumBrowser : TObject; const aFrameName : ustring); reintroduce;
constructor Create(const aChromiumBrowser : TObject; const aFrameName : ustring); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame); reintroduce; overload;
constructor Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64); reintroduce; overload;
destructor Destroy; override;
end;
TCefDeleteCookiesTask = class(TCefTaskOwn)
@ -196,12 +201,49 @@ begin
FChromiumBrowser := aChromiumBrowser;
FFrameName := aFrameName;
FFrame := nil;
FFrameIdentifier := 0;
end;
constructor TCefGetHTMLTask.Create(const aChromiumBrowser : TObject; const aFrame : ICefFrame);
begin
inherited Create;
FChromiumBrowser := aChromiumBrowser;
FFrameName := '';
FFrame := aFrame;
FFrameIdentifier := 0;
end;
constructor TCefGetHTMLTask.Create(const aChromiumBrowser : TObject; const aFrameIdentifier : int64);
begin
inherited Create;
FChromiumBrowser := aChromiumBrowser;
FFrameName := '';
FFrame := nil;
FFrameIdentifier := aFrameIdentifier;
end;
destructor TCefGetHTMLTask.Destroy;
begin
FFrame := nil;
inherited Destroy;
end;
procedure TCefGetHTMLTask.Execute;
begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameName);
begin
if (FFrame <> nil) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrame)
else
if (FFrameIdentifier <> 0) then
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameIdentifier)
else
TChromium(FChromiumBrowser).Internal_GetHTML(FFrameName);
end;
end;