Add URL to Del.icio.us via HTTPS API

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Add a new URL to del.icio.us.

Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


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

'  Create a request and add the info:
Dim req As New Chilkat.HttpRequest()
req.AddParam("url","http://www.chilkatsoft.com/")
req.AddParam("description","Chilkat Software, Inc.")
req.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)
req.UseGet()

'  The path is: /v1/posts/add
req.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.
Dim domain As String
Dim port As Long
Dim ssl As Boolean
domain = "api.del.icio.us"
port = 443
ssl = true

Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    TextBox1.Refresh()
Else
    '  Check the XML returned:
    '  We should have a <result code="done" />
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
    TextBox1.Refresh()
End If