brauche hilfe zu stringstream

[kingkobold]

Hallo,

ich hab da ein Problem mit dem tstringstream.

Also in eine Datei Speichern funktioniert kein Problem aber das möchte ich ja nicht ich will einfach nur aus dem Stream etwas auslesen aber ich bin irgendwie zu doof dazu kann mir da vllt jemand helfen wäre sehr nice.

Benutze Delphi xe5 unter win8.1.

mfg

kingkobold

[AlexII]

Kannst Du vllt den Code zeigen und die Stelle wo es hackt?

[Sir Rufo]

Geht genauso wie das Schreiben Write... mit den Read... Methoden

[kingkobold]

Hallo,

erst mal Danke für die schnelle Antwort.

Also ich möchte aus eine Webseite etwas auslesen und den wert den ich suche dann weiterverarbeiten das geht hab ich ja hinbekommen das es in den Stream schreibt aber ich Checks halt nicht wie ich im Stream was suche bei ner Textdatei wäre es einfach einfach zeile für zeile.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var s: TstringStream;
lesen : string;

begin
s:= TstringStream.Create;

IdHTTP1.Get('http://localhost/test.html');
s.Position := 0;

lesen := // ja jetzt weiß ich nicht mehr weiter hätte es ja in ne schleife gelegt und jede zeile mit pos geprüft bekomme es aber nicht hin.

end;

wäre schön wenn mir das einer erklären könnte.

mfg

kingkobold

[Perlsau]

Du brauchst keinen Stream, um den Inhalt einer Website in einen String einzulesen. Die Get-Methode von TIdHTTP ist als Overload gekennzeichnet, was bedeutet, daß sie mit diversen Parametern aufgerufen werden kann, so z.B. auch als Funktion, die einen String zurückliefert:

lesen := IdHTTP1.Get('http://localhost/test.html');

[mkinzler]

Du verwendest den Stream ja nicht.
IdHTTP1.Get('http://localhost/test.html', s);

[kingkobold]

Hallo

@perlsau also steht das dann alles hintereinander in einem String?

@mkinzler ja wenn ich wüsste wie ich in dem Stream suchen kann würde ich den Stream ja verwenden.


mfg


kingkobold

[mkinzler]

Was willst Du suchen? Suchen kann man auch in einem String.

[kingkobold]

ich Suche nach einem wert der im quelltext hinter ?Tro= steht und 10 zeichen lang ist.

[mkinzler]

Dann lies die seite in einen String ein

such := Copy( Pos( lesen, '?Tro=') +5, 10);