Filestream als string->Pfadangabe

[davtix]

@ schokohase ( list.LoadFromStream( FileNameFS ); // Was machen wir denn hier? )

ja, ich habe die beiden Dateien nicht im Kopf verbunden.


ich hab das mal zum testen mit der Originalen JvHtmlParser.pas gemacht

Code:

   FS1 := TfileStream.Create( extractfilepath ( application.ExeName) + '0.txt', fmCreate );  //fmOpenReadWrite
   memo2.Lines.LoadFromFile(  extractfilepath ( application.ExeName) + 'testdatei.txt'  );


  if not ( assigned( tempSL )) then tempSL := Tstringlist.Create;


//  tempSL.AddStrings( memo2.Lines );    //   --> SL
  memo2.Lines.SaveToStream( FS1 );        // --> FS

             //kontrolle
//  memo6.Lines.AddStrings( tempSL );          //SL
    FS1.Position := 0;
  memo6.Lines.LoadFromStream( FS1 );

dann :

Code:

//   JvHtmlParser1.Parser := tempSL;      /////<< hier Fehler " ist kein integer


   FS1.Position := 0;      //?
   JvHtmlParser1.Parser.LoadFromStream( FS1 );      /////<< NIX

ich hab ne html seite gespeichert und mal von <title> bis </title> als suche geschrieben

analyse button

Code:

JvHtmlParser1.ClearConditions;

  JvHtmlParser1.AddCondition( 'title' , '<title>' , '</title>' , 3);

  JvHtmlParser1.AnalyseFile;

3 = die ganze zeile ausspucken

Code:

procedure TJvHTMLParser.AddCondition(const Keyword: string;
  const StartTag: string; const EndTag: string; TextSelection: Integer);

im parser

Code:

  memo1.Lines.Add( '--------' );
  memo1.Lines.Add( '-' + key + '-' + results );

Wenn ich die Stringlist nehme sagt da Fehler " ist kein integer;
Wenn ich den fileStream nehme passiert nix.