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.2.9

Browse Source
This commit is contained in:
Salvador Díaz Fau
2019-10-30 10:26:48 +01:00
parent 2fe89069a4
commit f0106c20d7
16 changed files with 68 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/uCEFResponse.pas
View File

@ -65,7 +65,8 @@ type
procedure SetMimeType(const mimetype: ustring);
function GetCharset: ustring;
procedure SetCharset(const charset: ustring);
function GetHeader(const name: ustring): ustring;
function GetHeaderByName(const name: ustring): ustring;
procedure SetHeaderByName(const name, value: ustring; overwrite: boolean);
procedure GetHeaderMap(const headerMap: ICefStringMultimap);
procedure SetHeaderMap(const headerMap: ICefStringMultimap);
function GetURL: ustring;
@ -92,12 +93,21 @@ begin
Result := PCefResponse(FData)^.get_error(FData);
end;
function TCefResponseRef.GetHeader(const name: ustring): ustring;
function TCefResponseRef.GetHeaderByName(const name: ustring): ustring;
var
TempName : TCefString;
begin
TempName := CefString(name);
Result := CefStringFreeAndGet(PCefResponse(FData)^.get_header(PCefResponse(FData), @TempName));
Result := CefStringFreeAndGet(PCefResponse(FData)^.get_header_by_name(PCefResponse(FData), @TempName));
end;
procedure TCefResponseRef.SetHeaderByName(const name, value: ustring; overwrite: boolean);
var
TempName, TempValue : TCefString;
begin
TempName := CefString(name);
TempValue := CefString(value);
PCefResponse(FData)^.set_header_by_name(PCefResponse(FData), @TempName, @TempValue, ord(overwrite));
end;
procedure TCefResponseRef.GetHeaderMap(const headerMap: ICefStringMultimap);