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 78.3.1

Browse Source 
- Added TChromium.LoadString using a DATA URL
- Added TChromium.LoadResource using a DATA URL
This commit is contained in:
Salvador Díaz Fau
2019-11-07 11:01:25 +01:00
parent f180972f22
commit 172e7ba9e4
9 changed files with 229 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -764,7 +764,7 @@ begin
' with error ' + errorText +
' (' + inttostr(errorCode) + ').</h2></body></html>';
frame.LoadURL(CefGetDataURI(TempString, 'text/html'));
Chromium1.LoadString(TempString, frame);
end;
procedure TMiniBrowserFrm.Chromium1LoadingProgressChange(Sender: TObject;
@ -1107,7 +1107,6 @@ end;
procedure TMiniBrowserFrm.OpenfilewithaDAT1Click(Sender: TObject);
var
TempDATA : string;
TempFile : TMemoryStream;
begin
TempFile := nil;
@ -1123,11 +1122,9 @@ begin
TempFile.LoadFromFile(OpenDialog1.FileName);
if (OpenDialog1.FilterIndex = 1) then
TempDATA := CefGetDataURI(TempFile.Memory, TempFile.Size, 'text/html', 'utf-8')
Chromium1.LoadResource(TempFile, 'text/html', 'utf-8')
else
TempDATA := CefGetDataURI(TempFile.Memory, TempFile.Size, 'application/pdf', 'utf-8');
Chromium1.LoadURL(TempDATA);
Chromium1.LoadResource(TempFile, 'application/pdf', 'utf-8');
end;
except
on e : exception do