TinyURL es un servicio gratuito que permite convertir una URL larga en un corta (acortador de URL), la cual es muy efectiva a la hora de usar servicios como Twitter.

Para usar este servicio en Delphi es necesario realizar una petición a: http://tinyurl.com/api-create.php?url={URL que se va a convertir aquí} Lo cual nos dará como respuesta la URL generada por TinyURL.

Un ejemplo realizado en Delphi Prism…

namespace ConsoleApplication;
 
interface
 
uses
  System.Net,
  System.IO;
 
type
  ConsoleApp = class
  public
    class function GetTinyUrl(sURL: String): String;
    class method Main(args: array of string);
  end;
 
implementation
 
class function ConsoleApp.GetTinyUrl(sURL: String): String;
const
  TinyAPI = 'http://tinyurl.com/api-create.php?url=';
var
  myWebRequest: WebRequest;
  myWebResponse: WebResponse;
  myStream: StreamReader;
  myTinyURL: String;
begin
  myWebRequest := WebRequest.Create(TinyAPI+sURL);
  myWebRequest.Method := 'GET';
  myWebResponse := myWebRequest.GetResponse();
  myStream := new StreamReader(myWebResponse.GetResponseStream);
  myTinyURL := String.Empty;
  myTinyURL := myStream.ReadToEnd();
  myWebResponse.Close();
  Result := myTinyURL;
end;
 
class method ConsoleApp.Main(args: array of string);
begin
    Console.WriteLine('Generar TinyURL...');
    Console.WriteLine(GetTinyUrl('http://daw-labs.com'));
    Console.ReadLine();
end;
 
end.

El resulado es:

Generar TinyURL...

http://tinyurl.com/5vde8s6