How to create tinyurl in Delphi

Question

I have a chat program written in Delphi 7 that I would like to replace with a long URL with a smaller tinyurl. I am Googled, but have not found anything useful yet.

Answer 1

Try http://www.scripting.com/stories/2007/06/27/tinyurlHasAnApi.html

Answer 2

You can use the Google Shortener API .

Using REST, you can send the JSON value as follows:

{"longUrl": "http://stackoverflow.com/"} 

and the result will look like this:

 { "kind": "urlshortener#url", "id": "http://goo.gl/lgNaMv", "longUrl": "http://stackoverflow.com/" } 

You need to implement authentication. Regards.