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