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

Fixed mime type in DATA URL

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-11-28 11:53:54 +01:00
parent a06523287c
commit f7ffd5c4c9
1 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
demos/MiniBrowser/uMiniBrowser.pas
View File

@ -201,6 +201,13 @@ type
procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer); const frame: ICefFrame; httpStatusCode: Integer);
procedure Memoryinfo1Click(Sender: TObject); procedure Memoryinfo1Click(Sender: TObject);
procedure Chromium1LoadError(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
errorCode: Integer; const errorText, failedUrl: ustring);
procedure Chromium1CertificateError(Sender: TObject;
const browser: ICefBrowser; certError: Integer;
const requestUrl: ustring; const sslInfo: ICefSslInfo;
const callback: ICefRequestCallback; out Result: Boolean);
protected protected
FResponse : TStringList; FResponse : TStringList;
@ -404,6 +411,16 @@ begin
InspectRequest(request); InspectRequest(request);
end; end;
procedure TMiniBrowserFrm.Chromium1CertificateError(Sender: TObject;
const browser: ICefBrowser; certError: Integer;
const requestUrl: ustring; const sslInfo: ICefSslInfo;
const callback: ICefRequestCallback; out Result: Boolean);
begin
CefDebugLog('Certificate error code:' + inttostr(certError) +
' - URL:' + requestUrl, CEF_LOG_SEVERITY_ERROR);
Result := False;
end;
procedure TMiniBrowserFrm.Chromium1Close(Sender: TObject; const browser: ICefBrowser; out Result: Boolean); procedure TMiniBrowserFrm.Chromium1Close(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
begin begin
if (browser <> nil) and (Chromium1.BrowserId = browser.Identifier) then if (browser <> nil) and (Chromium1.BrowserId = browser.Identifier) then
@ -614,6 +631,15 @@ begin
StatusBar1.Panels[1].Text := 'frame loaded : ' + quotedstr(frame.name); StatusBar1.Panels[1].Text := 'frame loaded : ' + quotedstr(frame.name);
end; end;
procedure TMiniBrowserFrm.Chromium1LoadError(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; errorCode: Integer;
const errorText, failedUrl: ustring);
begin
CefDebugLog('Error code:' + inttostr(errorCode) +
' - Error text :' + quotedstr(errorText) +
' - URL:' + failedUrl, CEF_LOG_SEVERITY_ERROR);
end;
procedure TMiniBrowserFrm.Chromium1LoadingProgressChange(Sender: TObject; procedure TMiniBrowserFrm.Chromium1LoadingProgressChange(Sender: TObject;
const browser: ICefBrowser; const progress: Double); const browser: ICefBrowser; const progress: Double);
begin begin
@ -917,7 +943,7 @@ begin
TempFile := TMemoryStream.Create; TempFile := TMemoryStream.Create;
TempFile.LoadFromFile(OpenDialog1.FileName); TempFile.LoadFromFile(OpenDialog1.FileName);
if (OpenDialog1.FilterIndex = 0) then if (OpenDialog1.FilterIndex = 1) then
TempDATA := 'data:text/html;charset=utf-8;base64,' + CefBase64Encode(TempFile.Memory, TempFile.Size) TempDATA := 'data:text/html;charset=utf-8;base64,' + CefBase64Encode(TempFile.Memory, TempFile.Size)
else else
TempDATA := 'data:application/pdf;charset=utf-8;base64,' + CefBase64Encode(TempFile.Memory, TempFile.Size); TempDATA := 'data:application/pdf;charset=utf-8;base64,' + CefBase64Encode(TempFile.Memory, TempFile.Size);