четверг, 24 ноября 2011 г.

Delphi - Функция сокращения ссылок.

Данная функция сокращает ссылку через сервис u.to


Код функции:
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://vans-soft.blogspot.com/');

 

1 комментарий: