Сокращение интернет ссылок с помощью TinyURL

Опубиковано: 24.03.2013 г., автор: , просмотров: 6188

Всем привет. В данной статье я хочу рассказать о способе сокращении интернет ссылок – о сервисе TinyURL(http://tinyurl.com/). Это один из тех сайтов, которые преобразуют длинные, тяжело воспроизводимые URL ссылки в значительно более короткие. К примеру ссылка вида http://forum.delphiexpert.ru/index.php?action=forum (51 символ) преобразовывается сервисом в вид http://tinyurl.com/ctnsl8e (26 символов). Необходимость подобного преобразования может возникать в случае отправки больших ссылок в текстовых email письмах (длинная ссылка может сломать форматирование письма), Twitter также использует преобразование ссылок в более короткие из-за ограниченного размера сообщения (140 символов).

Итак, давайте начнем. Создаем новый проект File->New->VCL Form Application и кидаем на форму следующие компоненты: 2 TEdit, 2 TLabel, TButton и IdHTTP.

Должно выглядеть примерно так:

Работа с сервисом TinyURL

Для создания ссылок, TinyUr использует api, при обращении к которому с параметром-исходной ссылкой, нам возвращантся Tiny ссылка.

На событие OnClick кнопки пишем:

procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := IdHTTP1.Get(Format('http://tinyurl.com/api-create.php?url=%s', [Edit1.Text])); end;

Здесь в запрос подставляется исходная ссылка из поля Edit1, делается Get запрос с помощью IdHTTP, и результат выводится в поле Edit1. Запускаем приложении и проверяем что все работает правильно

Работа с сервисом TinyURL

Скачать исходник

А вообще удобнее работать при помощи смарт телевизоры.



Похожие материалы

    Последние из рубрики

    Влад 12 Апр 2013 в 00:00 #
    Владимир, очень и ещё раз очень рад, что снова появились уроки) Продолжайте, и огромное вам спасибо

    ОтменитьДобавить комментарий