MSXML und Streams. Bin ich zu blöd?

[Henryk]

Hallo,

ich hab einigen Beispielcode im Netz gefunden, der aber bei mir einfach nicht kompiliert werden kann.

Delphi-Quellcode:

procedure Test(const Stream: TStream);
var
  Adapter: IStream;
  XMLDoc: IXMLDomDocument;
begin
  XMLDoc  := CoDOMDocument.Create();

  // Fehler in dieser Zeile aus den Beispielen: 
  // TStreamAdapter und IStream sind nicht kompatibel
  Adapter := TStreamAdapter.Create(Stream, soReference);

  // Fehler in dieser Zeile aus den Beispielen: 
  // OleVariant und IStream sind nicht kompatibel
  XMLDoc.load(Adapter);

  usw.

Was mache ich falsch? Bei den Beispielen scheint es ja zu funktionieren?

Grüsse

Henryk

[mkinzler]

Welcher Fehler meldet der Compiler als Grund?

[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

[mkinzler]

Hallo Achim,
ich habe mir den Code nicht angeschaut. Ich bin halt der Meinung, daß der Fragesteller die geanue Fehlermeldung angibt wenn er Hilfe erwartet.

[marabu]

Ich hatte die Fehlermeldung nicht reproduziert, sondern lediglich zitiert - allerdings ohne das Zitat als solches kenntlich zu machen:

Zitat von Henryk:

Delphi-Quellcode:

// ...
// Fehler in dieser Zeile aus den Beispielen: 
// TStreamAdapter und IStream sind nicht kompatibel
Adapter := TStreamAdapter.Create(Stream, soReference);
// ...

Freundliche Grüße

[mkinzler]

Das habe ich nicht gesehen.

[Henryk]

Hallo Achim,

was muss ich denn einbinden, damit mein Delphi D2005 den Typen IXMLDOMDocument2 kennt? Ich hab diesen Typen nirgendwo gefunden. Kopier ich dein Beispiel in meine WIN32-Anwendung und ersetze IXMLDOMDocument2 durch IXMLDOMDocument, bekomme ich trotzdem wieder den gleichen Fehler, dass IStream und TStreamAdapter nicht kompatibel sind.

Für IStream binde ich die Unit Ole2 ein.

Zitat von 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

Ich hatte zwischendurch auch weiter probiert und so geht es

Delphi-Quellcode:

...
  StringStream := TStringStream.Create('');
  XMLDoc       := CoDOMDocument.Create();

  try
    StringStream.CopyFrom(Stream, Stream.Size);
    XMLDoc.loadXML(StringStream.DataString);
...

Nur dieses sinnlose StringStream.CopyFrom gefällt mir aus Effizienzgründen nicht.

Grüsse

Henryk

[marabu]

Hallo Henryk,

ich habe mit D7 getestet und die Units ActiveX und MSXML2 eingebunden.

Gute Nacht