#2 invalid cast in loadfromstream

[Tobias Grimm]

TDomDocument.loadFromStream() casts TStream to
TStringStream - this won't work, if you pass e.g. a
TFileStream.

This may be a solution:

function TDomDocument.loadFromStream(const stream:
TStream): boolean;
var
tmp: string;
begin
SetLength(tmp, stream.Size);
stream.Read(tmp[1], stream.Size);
Result := (self as IDomPersist).loadxml(tmp);
end;

bye,

Tobias