Главная страница
Главная страница
Поиск по сайту
Каталог файлов
Гостевая книга
Новости сайта
Лента новостей
Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная".
Поиск по сайту  RSS канал 
Меню
Мини чат
Реклама


VIP Партнеры


Кланы и Команды



Статистика

Статистика пользователей

   Всего:
   Новых за месяц: 0
   Новых за неделю: 0
   Новых вчера: 0
   Новых сегодня: 0


Счетчик стран

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 655 Просмотров данной публикации: 655 Комментарии: 0 Комментариев к данной публикации: (0)

Код функции:

function TForm1.uto(url: string): string;

var data:TStringList; page, str:string;
begin
Result:='';
data:=TStringList.Create;
data.Add('url='+url);
data.Add('a=add');
page:=IdHTTP1.Post('http://u.to/', data);

str:=Copy(page, pos('blank\">http://u.to/', page)+length('blank\">http://u.to/'), length(page));
str:=Copy(str, 1, pos('</a>', str)-1);
Result:='http://u.to/'+str;
data.Free;
end;
Пользоваться так: 
Label1.Caption:=uto('http://hack-az.ru/'); 
Добавил: Win_ExcelПубликацию добавил: Win_Excel Дата: 10.12.2011Дата добавления публикации: 10.12.2011


Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Профиль


Top 5
    TOP Пользователей
    vasiliy_petrov245
    Сообщений: 433
    Комментариев: 0
    stepakov
    Сообщений: 428
    Комментариев: 0
    HACKERus
    Сообщений: 95
    Комментариев: 0
    vaskas122
    Сообщений: 79
    Комментариев: 0
    www1
    Сообщений: 63
    Комментариев: 0