Hente ut <Title> fra en side

[W0odY]

noen som vet åssen man kan hente ut det som

står i: "<tite>dette skal jeg ha tak i</title>" fra en side..

[Format71]

Hvor skal du hente det ut fra? Er det en fil, et text-buffer eller en browser-komponent?

 

Det finnes html-parsere du kan bruke (f.eks. i jvcl) og jeg mener at du kan bruke enkelte xml-parsere hvis du er heldig. Ellers er det jo bare å søke:

 

(utestet kode....)

startpos := pos('<title>', htmlbuffer);
if startpos > 0 then
 startpos := startpos + length('<title>');
endpos := pos('</title>');
if (startpos > 0) and (endpos > 0) then
 title := copy(htmlbuffer, startpos, endpos - startpos);

 

-Vegar

[W0odY]

skal hente ut i fra en webside...

[Maranai]

IdHttp1 er en indy component. (IdHTTP1: TIdHTTP

 

 

procedure funkerDen();

var

P1,P2, L : Integer;

myfinaltext : string;

begin

form1.IdHTTP1.HandleRedirects:=true;

form1.Memo1.Text := form1.idhttp1.get('http://www.dinside.com/bla.html');

L := Length('<title>');

P1 := Pos('<title>',form1.Memo1.Text);

P2 := Pos('</title>',form1.Memo1.Text);

myfinaltext := Copy(form1.Memo1.Text,P1 + L, P2 - P1 - L);

ShowMessage(myfinaltext);

end;