XML Daten über RSS Feed aktualisieren - Laufzeitfehler

[Piro]

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.

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

[mkinzler]

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

[bernau]

Ich denke mal, das liegt am

Delphi-Quellcode:

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

[Piro]

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

Sorry für die Fragen.

Gruß, Sven

[bernau]

Zitat:

Zitat von daywalker299

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

Folgendes hast du instanziert:

Delphi-Quellcode:

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

Und auch wieder freigegeben.

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.

Delphi-Quellcode:

XMLDoc.Free;

Dann sollte auch der zweite Durchgang funktionieren.


Gerd

[Piro]

cool, danke. schönen abend noch.