pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Fixed D2010 issues with missing TEncoding types.

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-08-20 14:56:14 +02:00
parent 7ba82bd5ed
commit 5243ce887e
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@@ -117,7 +117,9 @@ type
procedure ReplaceLogo(data_in: Pointer; data_in_size: NativeUInt; var data_in_read: NativeUInt; data_out: Pointer; data_out_size : NativeUInt; var data_out_written: NativeUInt; var aResult : TCefResponseFilterStatus);
procedure UpdateRscEncoding(const aMimeType, aContentType : string);
function IsMyResource(const aRequest : ICefRequest) : boolean;
{$IFDEF DELPHI15_UP}
procedure GetResponseEncoding(const aContentType: string);
{$ENDIF}
public
{ Public declarations }
end;
@@ -477,11 +479,13 @@ procedure TResponseFilterBrowserFrm.UpdateRscEncoding(const aMimeType, aContentT
begin
FRscMimeType := aMimeType;
{$IFDEF DELPHI15_UP}
if (aMimeType = 'application/json') or
(aMimeType = 'text/json') or
(aMimeType = 'text/javascript') or
(aMimeType = 'application/javascript') then
GetResponseEncoding(aContentType);
{$ENDIF}
end;
procedure TResponseFilterBrowserFrm.Chromium1ResourceLoadComplete(Sender : TObject;
@@ -548,7 +552,7 @@ begin
StatusBar1.Panels[1].Text := 'Stream size : ' + inttostr(FStream.Size);
SetLength(LAS, FStream.Size);
FStream.Read(LAS[Low(LAS)], FStream.Size);
FStream.Read(LAS[1], FStream.Size);
if (FRscEncoding = TEncoding.UTF8) then
LS := UTF8Decode(LAS) // UTF8 Here
@@ -647,6 +651,7 @@ begin
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then GlobalCEFApp.OsmodalLoop := False;
end;
{$IFDEF DELPHI15_UP}
procedure TResponseFilterBrowserFrm.GetResponseEncoding(const aContentType: string);
var
LEncoding: String;
@@ -745,5 +750,6 @@ begin
FRscEncoding := TEncoding.Default;
end;
end;
{$ENDIF}
end.