Thema: Delphi Text in Memo finden

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 

Re: Text in Memo finden

  Alt 10. Mai 2007, 20:01
Hallo Tommy,

du musst das Ergebnis der Funktion auch seiner Verwendung zuführen:

 Memo1.Text := ReplaceBetween('<head>', '</head>', Memo1.Text); Es gibt aber auch noch einen zuverlässigeren Weg:

Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
var
  doc: IDispatch;
  ec: IHTMLElementCollection;
  title: IHTMLTitleElement;
begin
  doc := GetDocument(Memo.Text);
  // oder direkt aus dem Internet mit
  // doc := GetDocument(HTTP.Get('http://localhost'));
  with doc as IHTMLDocument3 do
  begin
    ec := getElementsByTagName('title');
    if ec.length > 0 then
    begin
      title := ec.item(0, null) as IHTMLTitleElement;
      title.text := 'potzblitz';
    end;
    Memo.Lines.Text := documentElement.outerHTML;
  end;
end;
Natürlich brauchst du noch die Funktion GetDocument:

Delphi-Quellcode:
function GetDocument(const markup: WideString): IDispatch;
var
  doc: OleVariant;
begin
  Result := CoHtmlDocument.Create;
  doc := Result;
  doc.Open;
  doc.Write(markup);
  doc.Close;
end;
Dabei darfst du nicht vergessen die Units ActiveX und Mshtml einzubinden.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat