Add URL to Del.icio.us via HTTPS API

Add a new URL to del.icio.us.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loReq
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  del.icio.us uses HTTP-Auth, which means you only need
*  to set your login/password here:
loHttp.Login = "chilkatsoft"
loHttp.Password = "MyPassword"

*  Create a request and add the info:
loReq = CreateObject('Chilkat.HttpRequest')
loReq.AddParam("url","http://www.chilkatsoft.com/")
loReq.AddParam("description","Chilkat Software, Inc.")
loReq.AddParam("tags","chilkat components activex library software")

*  There are other optional params that can be added,
*  but we'll skip those.  More information is at:
*  http://del.icio.us/help/api/posts

*  Indicate the HTTP method desired (POST or GET)
loReq.UseGet()

*  The path is: /v1/posts/add
loReq.Path = "/v1/posts/add"

*  Notice that the URL is this:
*  https://api.del.icio.us/v1/posts/add?....
* 
*  The domain = api.del.icio.us
*  We're using HTTPS, so the port = 443, and we set the SSL argument to true (below)
*  The "path" part of the URL is "/v1/posts/add"

*  Send the HTTPS GET and get the response.  Note: This is a blocking call.
*  The method does not return until the full HTTPS response is received.

lcDomain = "api.del.icio.us"
lnPort = 443
lnSsl = 1

loResp = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loReq)
IF (loResp = NULL ) THEN
    ? loHttp.LastErrorText
ELSE
    *  Check the XML returned:
    *  We should have a <result code="done" />
    ? loResp.BodyStr
ENDIF

RELEASE loResp