Всем привет. В данной статье я хочу рассказать о способе сокращении интернет ссылок – о сервисе 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.
Должно выглядеть примерно так:
Для создания ссылок, 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. Запускаем приложении и проверяем что все работает правильно
А вообще удобнее работать при помощи смарт телевизоры.
Похожие материалы
Последние из рубрики
- Delphi урок - учимся парсить ссылки на странице
- Delphi основы работы с мышкой
- Delphi видео урок - генерация QR кода