Schönen guten Abend,

der unten beschriebene Code lädt ein RSS News Feed von Stern.de und schreibt es ihn in ein Memo (Code gekürzt). Funktioniert einwandfrei. Wenn ich jetzt aber die Procedure erneut ausführe, z.B.: weil ich die News aktualisieren will, kann das XMLDoc den Stream nicht erneut einlesen. Siehe Screenshot. Kann mir einer sagen woran das liegt? Bin noch Anfänger auf dem XML Gebiet.

zusammenfalten · markieren

Delphi-Quellcode:

...
var
  idget: TIdHTTP;
  XMLNode, StartItemNode : IXMLNode;
  i : integer;
begin
 idget := TIdHTTP.Create( Application );
 data := TMemoryStream.Create;
 Memo1.Lines.Clear;
 try
   IdGet.Get('http://www.stern.de/standard/rss.php?channel=all', data );
   data.Seek(0, soFromBeginning);

   XMLDoc.LoadFromStream(data);
   XMLDoc.Active := True;
 ...
 finally
   idget.Free;
   data.Free;
   XMLDoc.Free;
 end;
end;

Schon mal danke im voraus. Sven

Die Fehlermeldung weist darauf hin, daß mögicherweise auf eine nicht intantieertes Objekt zugegriffen wird

Ich denke mal, das liegt am

XMLDoc.Free; Du gibts XMLDoc in der Procedure frei, dort ist es aber nicht instanziert worden. Beim ersten Aufruf geht's gut, beim zweiten Aufruf greifst du ins leere. (Es sei denn, du hast XMLDoc kurz vorher wieder instanziert)


Gerd

Wie müßte ich es den richtig instanzieren? Was meint ihr damit eigentlich?

Sorry für die Fragen.

Gruß, Sven

Zitat von daywalker299:

Wie müßte ich es den richtig instanzieren? Was meint ihr damit eigentlich?

Folgendes hast du instanziert:

markieren

Delphi-Quellcode:

idget := TIdHTTP.Create( Application );
data := TMemoryStream.Create;

Und auch wieder freigegeben.

markieren

Delphi-Quellcode:

idget.Free;
data.Free;

XMLDoc gibts du frei, ohne daß du es instanziert hat. Wurde wohl woanders instanziert. Dann ist as aber in der Regel nicht deine Aufgabe es freizugeben. Nimm einfach folgende Zeile heraus.

XMLDoc.Free; Dann sollte auch der zweite Durchgang funktionieren.


Gerd

cool, danke. schönen abend noch.