Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
17th
Мар
Как на форме отобразить значения ТИЦ сайта?
Posted by Chas under Пост-обзор
Собственно вопрос, как узнать значения ТИЦ определенного сайта и записать значения в Edit?
kangreon:
var
s: string;
d: string;
i: integer;
begin
d := 'http://programmersforum.ru/';
s := 'http://bar-navig.yandex.ru/u?url=' + d + '&show=1';
s := http.get(s);
i := PosEx('value',s);
i := PosEx('"',s,i)+1;
d := Copy(s,i,PosEx('"',s,i)-i);
Edit1.text := d;