MSXML und Streams. Bin ich zu blöd?

[marabu]

Hallo Markus,

er meldet, dass TStreamAdapter und IStream nicht kompatibel sind.

So geht es:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  fs: TFileStream;
  dom: IXMLDOMDocument2;
begin
  dom := CoDomDocument.Create;
  dom.async := False;
  fs := TFileStream.Create(ParamStr(1), fmOpenRead or fmShareDenyWrite);
  if dom.load(TStreamAdapter.Create(fs, soReference) as IStream)
    then ShowMessage(dom.xml)
    else ShowMessage(dom.parseError.reason);
  fs.Free;
end;

Freundliche Grüße