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

Added uCEFApplicationCore.pas to project files

Browse Source 
- Replaced response.GetHeader by response.GetHeaderByName in ResponseFilterBrowser demo
This commit is contained in:
Salvador Díaz Fau
2019-11-09 17:31:59 +01:00
parent 048292b553
commit 36bb84fcf6
8 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -493,7 +493,7 @@ begin
FFilterInit := True;
CheckResponseHeaders(response);
UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
end
else
Result := nil;
@ -557,7 +557,7 @@ begin
try
FStreamCS.Acquire;
TempContentEncoding := trim(lowercase(response.GetHeader('Content-Encoding')));
TempContentEncoding := trim(lowercase(response.GetHeaderByName('Content-Encoding')));
if (length(TempContentEncoding) > 0) and (TempContentEncoding <> 'identity') then
begin
@ -568,7 +568,7 @@ begin
end
else
begin
TempContentLength := trim(response.GetHeader('Content-Length'));
TempContentLength := trim(response.GetHeaderByName('Content-Length'));
if (length(TempContentLength) > 0) and
TryStrToInt(TempContentLength, TempLen) and
@ -601,7 +601,7 @@ begin
// we still can use this event to know when the resource is complete
if IsMyResource(request) and CopyScriptBtn.Checked then
begin
UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
// Only send the message if this event is triggered before we have a OnFilter event with data_in = nil
if not(FRscCompleted) then
@ -624,7 +624,7 @@ begin
if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then
begin
CheckResponseHeaders(response);
UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
end;
end;

3
packages/CEF4Delphi.dpk
View File

@ -172,7 +172,8 @@ contains
uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
uCEFSentinel in '..\source\uCEFSentinel.pas';
uCEFSentinel in '..\source\uCEFSentinel.pas',
uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
end.

1
packages/CEF4Delphi.dproj
View File

@ -267,6 +267,7 @@
<DCCReference Include="..\source\uCEFResourceSkipCallback.pas"/>
<DCCReference Include="..\source\uCEFResourceReadCallback.pas"/>
<DCCReference Include="..\source\uCEFSentinel.pas"/>
<DCCReference Include="..\source\uCEFApplicationCore.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>

3
packages/CEF4Delphi_D7.dpk
View File

@ -169,6 +169,7 @@ contains
uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
uCEFSentinel in '..\source\uCEFSentinel.pas';
uCEFSentinel in '..\source\uCEFSentinel.pas',
uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
end.

3
packages/CEF4Delphi_FMX.dpk
View File

@ -177,7 +177,8 @@ contains
uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
uCEFSentinel in '..\source\uCEFSentinel.pas';
uCEFSentinel in '..\source\uCEFSentinel.pas',
uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
end.

1
packages/CEF4Delphi_FMX.dproj
View File

@ -293,6 +293,7 @@
<DCCReference Include="..\source\uCEFResourceSkipCallback.pas"/>
<DCCReference Include="..\source\uCEFResourceReadCallback.pas"/>
<DCCReference Include="..\source\uCEFSentinel.pas"/>
<DCCReference Include="..\source\uCEFApplicationCore.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>

6
packages/cef4delphi_lazarus.lpk
View File

@ -22,7 +22,7 @@
<Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
<License Value="MPL 1.1"/>
<Version Major="78" Minor="3" Release="1"/>
<Files Count="144">
<Files Count="145">
<Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/>
<UnitName Value="uCEFAccessibilityHandler"/>
@ -608,6 +608,10 @@
<HasRegisterProc Value="True"/>
<UnitName Value="uCEFSentinel"/>
</Item144>
<Item145>
<Filename Value="..\source\uCEFApplicationCore.pas"/>
<UnitName Value="uCEFApplicationCore"/>
</Item145>
</Files>
<RequiredPkgs Count="3">
<Item1>

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 59,
"InternalVersion" : 60,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "78.3.1.0"
}