To get OXML compiled under XE8 there's one change necessary in OXmlDOMVendor.pas in line 443, as the interface for Stream.See() seems to has changed:
function TDOMIStreamAdapter.Seek(Offset: Longint; Origin: Word): Longint;
var
Pos: Largeint;
begin
FStream.Seek(Offset, Origin, Pos);
Result := Longint(Pos);
end;
needs to get:
function TDOMIStreamAdapter.Seek(Offset: Longint; Origin: Word): Longint;
var
Pos: Largeint;
begin
{$IFDEF VER290}FStream.Seek(int64(Offset), Origin, uint64(Pos));
{$ELSE}FStream.Seek(Offset, Origin, Pos);{$ENDIF}
Result := Longint(Pos);
end;
Last edit: Anonymous 2015-04-07
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
View and moderate all "General Discussion" comments posted by this user
Mark all as spam, and block user from posting to "Discussion"
To get OXML compiled under XE8 there's one change necessary in OXmlDOMVendor.pas in line 443, as the interface for Stream.See() seems to has changed:
function TDOMIStreamAdapter.Seek(Offset: Longint; Origin: Word): Longint;
var
Pos: Largeint;
begin
FStream.Seek(Offset, Origin, Pos);
Result := Longint(Pos);
end;
needs to get:
function TDOMIStreamAdapter.Seek(Offset: Longint; Origin: Word): Longint;
var
Pos: Largeint;
begin
{$IFDEF VER290}FStream.Seek(int64(Offset), Origin, uint64(Pos));
{$ELSE}FStream.Seek(Offset, Origin, Pos);{$ENDIF}
Result := Longint(Pos);
end;
Last edit: Anonymous 2015-04-07
OK, thanks, I'll check that ASAP.
Fixed in revision 69.
View and moderate all "General Discussion" comments posted by this user
Mark all as spam, and block user from posting to "Discussion"
Looks good, thanks.