Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная". |
|
|
|
|
Всего:
Новых за месяц: 0
Новых за неделю: 0
Новых вчера: 0
Новых сегодня: 0
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
 |
|
 | Просмотров данной публикации: 7362 |  | Комментариев к данной публикации: (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/');
|
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
|
|
