• Главная
  • Исходники Delphi
  • Справочники Delphi
  • Книги Delphi
  • Основы Delphi
  • Ссылки
  • Форум
  • Блоги

Последние записи

  • Как запустить программу указанную в Edit.Text
  • Скачать файл с использованием потока
  • Поиск слова в Memo
  • Распаковщик формата .img из GTA San Andreas
  • Подсчет количества повторяющихся букв в файле
  • Простейший скрипт загрузки картинки с помощью php
  • Рассылка. Выпуск 154
  • Получение картинки с веб-камеры
  • Скопировать определённый кусок image
  • Сделать printscreen экрана и сохранить

made in programmersforum 6

programmersforum6

  • assembler
  • Basic
  • c/c++
  • CMS
  • Delphi
  • HTML
  • Java
  • JavaScript
  • Linux
  • php
  • Ruby
  • sql
  • Win Api
  • Windows
  • Апгрейды
  • Архив
  • Блоги
  • Веб-аналитика
  • Железо
  • Журнал
  • Заметки
  • Имейдж
  • Интервью
  • Исходники
  • Новости
  • Общалка
  • Операционные системы
  • Пост-обзор
  • Профлитература
  • Рассылка
  • Реклама
  • си шарп
  • Софт
  • Статьи
  • Топик-обзор
  • Файлы



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;

тема на форуме

Похожие статьи

  • Проверка занятости логина на странице с помощью indy
  • Соединение двух компьютеров через интернет с помощью сокетов?
  • Как нажать на кнопочку с именем submit_way_selection2 на сайте?
  • Авторизация на mail.ru с помощью indy
  • Как сделать обновление программы с сайта?
  • Прием данных/отсылка в поток Indy10
  • ProgressBar для скачивания
  • Как отправить письмо средствами Delphi?
  • Пример получения даты и температуры с сайта
  • Пример программы принимающей сообщения с @mail.ru
Теги: Delphi | интернет | ТИЦ














© Copyright "Клуб программистов" – материалы по Delphi и С++. Создание и продвижние сайта - Веб-сателлит.