You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-11-23 21:34:53 +02:00
Update to CEF 3.3282.1731.gfc9a4fa
- Chromium 64.0.3282.119 which should include partial MP3 support. - Fixed stability issues when you closed the browser due to circular interface references. - Fixed TCefRTTIExtension thanks to Pier. - Added the JSRTTIExtension demo to test TCefRTTIExtension. - Added the TCustomResponseFilter class to filter the resource contents. - Added the ResponseFilterBrowser demo to test the new TCustomResponseFilter class.
This commit is contained in:
@@ -58,7 +58,6 @@ type
|
||||
TCefResolveCallbackOwn = class(TCefBaseRefCountedOwn, ICefResolveCallback)
|
||||
protected
|
||||
procedure OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); virtual; abstract;
|
||||
procedure InitializeVars; virtual; abstract;
|
||||
|
||||
public
|
||||
constructor Create; virtual;
|
||||
@@ -66,13 +65,13 @@ type
|
||||
|
||||
TCefCustomResolveCallback = class(TCefResolveCallbackOwn)
|
||||
protected
|
||||
FChromiumBrowser : IChromiumEvents;
|
||||
FEvents : Pointer;
|
||||
|
||||
procedure OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); override;
|
||||
|
||||
public
|
||||
constructor Create(const aChromiumBrowser : IChromiumEvents); reintroduce;
|
||||
constructor Create(const aEvents : IChromiumEvents); reintroduce;
|
||||
destructor Destroy; override;
|
||||
procedure InitializeVars; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@@ -126,28 +125,32 @@ end;
|
||||
|
||||
// TCefCustomResolveCallback
|
||||
|
||||
constructor TCefCustomResolveCallback.Create(const aChromiumBrowser : IChromiumEvents);
|
||||
constructor TCefCustomResolveCallback.Create(const aEvents : IChromiumEvents);
|
||||
begin
|
||||
inherited Create;
|
||||
|
||||
FChromiumBrowser := aChromiumBrowser;
|
||||
FEvents := Pointer(aEvents);
|
||||
end;
|
||||
|
||||
destructor TCefCustomResolveCallback.Destroy;
|
||||
begin
|
||||
InitializeVars;
|
||||
FEvents := nil;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TCefCustomResolveCallback.InitializeVars;
|
||||
begin
|
||||
FChromiumBrowser := nil;
|
||||
end;
|
||||
|
||||
procedure TCefCustomResolveCallback.OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings);
|
||||
begin
|
||||
if (FChromiumBrowser <> nil) then FChromiumBrowser.doResolvedHostAvailable(result, resolvedIps);
|
||||
try
|
||||
try
|
||||
if (FEvents <> nil) then IChromiumEvents(FEvents).doResolvedHostAvailable(result, resolvedIps);
|
||||
except
|
||||
on e : exception do
|
||||
if CustomExceptionHandler('TCefCustomResolveCallback.OnResolveCompleted', e) then raise;
|
||||
end;
|
||||
finally
|
||||
FEvents := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user