You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-11-23 21:34:53 +02:00
Added support for Lazarus/FPC (windows 32bit)
This commit is contained in:
Salvador Díaz Fau
@@ -10,7 +10,7 @@
|
||||
// For more information about CEF4Delphi visit :
|
||||
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
||||
//
|
||||
// Copyright � 2018 Salvador D�az Fau. All rights reserved.
|
||||
// Copyright � 2018 Salvador Diaz Fau. All rights reserved.
|
||||
//
|
||||
// ************************************************************************
|
||||
// ************ vvvv Original license and comments below vvvv *************
|
||||
@@ -37,6 +37,10 @@
|
||||
|
||||
unit uCEFXmlReader;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE OBJFPC}{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF CPUX64}
|
||||
{$ALIGN ON}
|
||||
{$MINENUMSIZE 4}
|
||||
@@ -83,8 +87,7 @@ type
|
||||
function MoveToCarryingElement: Boolean;
|
||||
public
|
||||
class function UnWrap(data: Pointer): ICefXmlReader;
|
||||
class function New(const stream: ICefStreamReader;
|
||||
encodingType: TCefXmlEncodingType; const URI: ustring): ICefXmlReader;
|
||||
class function New(const stream: ICefStreamReader; encodingType: TCefXmlEncodingType; const URI: ustring): ICefXmlReader;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@@ -94,180 +97,180 @@ uses
|
||||
|
||||
function TCefXmlReaderRef.Close: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).close(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.close(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
class function TCefXmlReaderRef.New(const stream: ICefStreamReader;
|
||||
encodingType: TCefXmlEncodingType; const URI: ustring): ICefXmlReader;
|
||||
class function TCefXmlReaderRef.New(const stream: ICefStreamReader; encodingType: TCefXmlEncodingType; const URI: ustring): ICefXmlReader;
|
||||
var
|
||||
u: TCefString;
|
||||
TempURI : TCefString;
|
||||
begin
|
||||
u := CefString(URI);
|
||||
Result := UnWrap(cef_xml_reader_create(CefGetData(stream), encodingType, @u));
|
||||
TempURI := CefString(URI);
|
||||
Result := UnWrap(cef_xml_reader_create(CefGetData(stream), encodingType, @TempURI));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetAttributeByIndex(index: Integer): ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_attribute_byindex(FData, index));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_attribute_byindex(PCefXmlReader(FData), index));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetAttributeByLName(const localName,
|
||||
namespaceURI: ustring): ustring;
|
||||
function TCefXmlReaderRef.GetAttributeByLName(const localName, namespaceURI: ustring): ustring;
|
||||
var
|
||||
l, n: TCefString;
|
||||
TempLocalname, TempNamespaceURI : TCefString;
|
||||
begin
|
||||
l := CefString(localName);
|
||||
n := CefString(namespaceURI);
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_attribute_bylname(FData, @l, @n));
|
||||
TempLocalname := CefString(localName);
|
||||
TempNamespaceURI := CefString(namespaceURI);
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_attribute_bylname(PCefXmlReader(FData),
|
||||
@TempLocalname,
|
||||
@TempNamespaceURI));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetAttributeByQName(
|
||||
const qualifiedName: ustring): ustring;
|
||||
function TCefXmlReaderRef.GetAttributeByQName(const qualifiedName: ustring): ustring;
|
||||
var
|
||||
q: TCefString;
|
||||
TempName : TCefString;
|
||||
begin
|
||||
q := CefString(qualifiedName);
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_attribute_byqname(FData, @q));
|
||||
TempName := CefString(qualifiedName);
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_attribute_byqname(PCefXmlReader(FData), @TempName));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetAttributeCount: NativeUInt;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).get_attribute_count(FData);
|
||||
Result := PCefXmlReader(FData)^.get_attribute_count(PCefXmlReader(FData));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetBaseUri: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_base_uri(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_base_uri(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetDepth: Integer;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).get_depth(FData);
|
||||
Result := PCefXmlReader(FData)^.get_depth(PCefXmlReader(FData));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetError: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_error(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_error(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetInnerXml: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_inner_xml(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_inner_xml(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetLineNumber: Integer;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).get_line_number(FData);
|
||||
Result := PCefXmlReader(FData)^.get_line_number(PCefXmlReader(FData));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetLocalName: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_local_name(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_local_name(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetNamespaceUri: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_namespace_uri(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_namespace_uri(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetOuterXml: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_outer_xml(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_outer_xml(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetPrefix: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_prefix(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_prefix(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetQualifiedName: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_qualified_name(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_qualified_name(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetType: TCefXmlNodeType;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).get_type(FData);
|
||||
Result := PCefXmlReader(FData)^.get_type(PCefXmlReader(FData));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetValue: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_value(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_value(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.GetXmlLang: ustring;
|
||||
begin
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData).get_xml_lang(FData));
|
||||
Result := CefStringFreeAndGet(PCefXmlReader(FData)^.get_xml_lang(PCefXmlReader(FData)));
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.HasAttributes: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).has_attributes(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.has_attributes(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.HasError: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).has_error(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.has_error(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.HasValue: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).has_value(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.has_value(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.IsEmptyElement: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).is_empty_element(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.is_empty_element(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToAttributeByIndex(index: Integer): Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).move_to_attribute_byindex(FData, index) <> 0;
|
||||
Result := PCefXmlReader(FData)^.move_to_attribute_byindex(PCefXmlReader(FData), index) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToAttributeByLName(const localName,
|
||||
namespaceURI: ustring): Boolean;
|
||||
function TCefXmlReaderRef.MoveToAttributeByLName(const localName, namespaceURI: ustring): Boolean;
|
||||
var
|
||||
l, n: TCefString;
|
||||
TempLocalname, TempNamespaceURI : TCefString;
|
||||
begin
|
||||
l := CefString(localName);
|
||||
n := CefString(namespaceURI);
|
||||
Result := PCefXmlReader(FData).move_to_attribute_bylname(FData, @l, @n) <> 0;
|
||||
TempLocalname := CefString(localName);
|
||||
TempNamespaceURI := CefString(namespaceURI);
|
||||
Result := PCefXmlReader(FData)^.move_to_attribute_bylname(PCefXmlReader(FData),
|
||||
@TempLocalname,
|
||||
@TempNamespaceURI) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToAttributeByQName(
|
||||
const qualifiedName: ustring): Boolean;
|
||||
function TCefXmlReaderRef.MoveToAttributeByQName(const qualifiedName: ustring): Boolean;
|
||||
var
|
||||
q: TCefString;
|
||||
TempName : TCefString;
|
||||
begin
|
||||
q := CefString(qualifiedName);
|
||||
Result := PCefXmlReader(FData).move_to_attribute_byqname(FData, @q) <> 0;
|
||||
TempName := CefString(qualifiedName);
|
||||
Result := PCefXmlReader(FData)^.move_to_attribute_byqname(PCefXmlReader(FData), @TempName) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToCarryingElement: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).move_to_carrying_element(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.move_to_carrying_element(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToFirstAttribute: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).move_to_first_attribute(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.move_to_first_attribute(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToNextAttribute: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).move_to_next_attribute(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.move_to_next_attribute(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
function TCefXmlReaderRef.MoveToNextNode: Boolean;
|
||||
begin
|
||||
Result := PCefXmlReader(FData).move_to_next_node(FData) <> 0;
|
||||
Result := PCefXmlReader(FData)^.move_to_next_node(PCefXmlReader(FData)) <> 0;
|
||||
end;
|
||||
|
||||
class function TCefXmlReaderRef.UnWrap(data: Pointer): ICefXmlReader;
|
||||
begin
|
||||
if data <> nil then
|
||||
Result := Create(data) as ICefXmlReader else
|
||||
Result := Create(data) as ICefXmlReader
|
||||
else
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user