memo komponente untersuchen (ein html code)

[andiak2]

Gibt es zufällig/ hat jemand so ein delphi programm geschrieben? Wo eine memo komponente untersucht wird?

Ich habe nämlich mittels Indy-komponenten mir ein programm gebastelt womit ich mir den html code einer seite anschauen kann.

Bisher einzige funktion die html seite local abzuspeichern...

ich würde gerne noch sachen wie bestimmte html codes rausfiltern und eventuell bilder (<img src")
per klick runterladen....



also bisher habe ich einmal dadurch wird die in Edit1.Text eingegeben url in das memo feld geladen

Delphi-Quellcode:

procedure TForm1.BTestClick(Sender: TObject);
var s : string;
begin
  s := IdHTTP.Get(Edit1.Text);
  Memo.Lines.Text := s;
end;

Und hiermit kann ich die seite als html datei speichern

Delphi-Quellcode:

procedure TForm1.BMiyClick(Sender: TObject);
var s : TFileStream;
    filename : TFileName;
begin
  if SaveDialog.Execute() then
  begin
    filename := SaveDialog.FileName;
    try
      s := TFileStream.Create(filename,fmCreate);
      IdHTTP.Get(Edit1.Text,s);
    finally
      s.Destroy;
    end
  end
end;