Работа с WA (вебархив) - выдираем внутренние ссылки + определения дат снимков

Получаем снимки

var url, data:string; i:integer;

begin

ts.Free;

url:=edit1.text;



ts:=tstringlist.create();

ts.text:=idhttp1.Get('http://web.archive.org/web/timemap/link/'+url);

label1.Caption:='Снимков: '+inttostr(ts.Count-3);



for i:=3 to ts.Count-1 do begin

form2.listbox1.Items.add(copy(ts.ValueFromIndex,pos('datetime="',ts.ValueFromIndex)+15,

pos('GMT',ts.ValueFromIndex)-pos('datetime="',ts.ValueFromIndex)-16));

end;

form2.show;

в edit1.text домен = на выходе в Listbox все даты