Fehler bei Laden einer URL in einen Stream

[jfheins]

Bei folgendem Quelltext

Delphi-Quellcode:

 IdHTTP1 := TIdHTTP.Create(Self);
 IdHTTP1.Get(Edit2.Text, Stream);
 ListBox1.Items.LoadFromStream(Stream);
 IdHTTP1.Free; // Hier ist der grüne Pfeil links am Rand

kommen folgende Fehlermeldungen:

Code:

---------------------------
Wortkette
---------------------------
Zugriffsverletzung bei Adresse 00415B04 in Modul 'Wortkette.exe'. Lesen von Adresse 00000000.
---------------------------
OK   
---------------------------

[Sprint]

Das kann verschiedene Gründe haben.
Ersteinmal musst du vor dem laden das Stream wieder auf Position 0 setzen.
Kann auch sein, das du gar kein TStream erstellt hast oder das was mit der URL nicht stimmt.

Ein Beispiel wie's aussehen kann...

Delphi-Quellcode:

var
  MS: TMemoryStream;
  HTTP: TIdHTTP;
  URL: String;
  SL: TStringList;
begin

  HTTP := TIdHTTP.Create(nil);
  MS := TMemoryStream.Create;
  SL := TStringList.Create;
  URL := 'http://www.delphipraxis.net';

  try
    HTTP.Get(URL, MS);
    MS.Position := 0;
    SL.LoadFromStream(MS);
    ShowMessage(SL.Text);
  finally
    SL.Free;
    MS.Free;
    HTTP.Free;
  end;

end;

[himitsu]

Also, da ja der Preil in der Zeile ist, die als nächstes ausgeführt wird, ist wohlk der Fehler in "ListBox1.Items.LoadFromStream(Stream);" zu suchen, da die ja der letzte Befehl war, welcher ausgeführt wurde.

Vermutlich wurde der Stream nicht richtig installiert, oder es ist ein anderer Fehler.

Hast du den Stream auch initialisiert?
Und IdHTTP1 wird wirklich erstellt und ist nicht zufällig eine fertige Komponente auf deinem Form?
Die gewünschte Datei existiert auch?
...



PS: Wieso machst du es eigentlich über 'nen Stream ... ein String reicht doch auch?
z.B.:

Delphi-Quellcode:

IdHTTP1 := TIdHTTP.Create(Self);
ListBox1.Items.Text := IdHTTP1.Get(Edit2.Text);
IdHTTP1.Free;

[jfheins]

Erledigt.

siehe himitsu unten