Add URL to Del.icio.us via HTTPS API

Add a new URL to del.icio.us.

Download Chilkat HTTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
req: TChilkatHttpRequest;
domain: String;
port: Integer;
ssl: Integer;
resp: IChilkatHttpResponse;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(http.LastErrorText);

  end;

//  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:
req := TChilkatHttpRequest.Create(Self);
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.

domain := 'api.del.icio.us';
port := 443;
ssl := 1;

resp := http.SynchronousRequest(domain,port,ssl,req.DefaultInterface);
if (resp = nil ) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    //  Check the XML returned:
    //  We should have a <result code="done" />
    Memo1.Lines.Add(resp.BodyStr);
  end;


end;