Filestream als string->Pfadangabe

[davtix]

hab ma n bissel in der JvHtmlParser mit Erfolg darin rum gebastelt ^^.
Kopiert und dem Projekt hinzu gefügt.

Code:

  
  private
  
   FFileName: TFileName;
   FFileNameFS: TFileStream;     //hinzu

Code:

  published
    property FileName: TFileName read FFileName write SetFileName;
    property FileNameFS: TFileStream read FFileNameFs write FFileNameFs;                 //hizu

write FFileNameFs <<< ist hundert pro falsch ^^ ich brauch die nur zum lesen.

Code:

procedure TJvHTMLParser.SetFileName(Value: TFileName);
begin


  if FFileName <> Value then
  begin
    FFileName := Value;
    if not (csDesigning in ComponentState) then
      AnalyseFile;
  end;


  if FFilenameFS <> nil then   //<<< hinzu
  begin



  end;
end;

Code:

// (rom) reimplemented with a TStringList

procedure TJvHTMLParser.AnalyseFile;
var
  List: TStringList;
begin
  List := TStringList.Create;
  try


    if FileExists(FileName) then
    begin
      List.LoadFromFile(FileName);
      AnalyseString(List.Text);
    end;

    if assigned( FileNameFS ) then         //besser noch ändern <<<
    begin
      list.LoadFromStream( FileNameFS );

      AnalyseString(List.Text);
    end;


  finally
    List.Free;
  end;

end;

Das hab ich mal zum testen so getippselt.
Es Funktioniert. bis jetzt ohne Fehler. bei Einwand bitte melden