(Delphi DLL) Outlook Calendar Delete Event

See more Outlook Calendar Examples

Removes the specified event from the containing calendar.

If the event is a meeting, deleting the event on the organizer's calendar sends a cancellation message to the meeting attendees.

For more information, see https://docs.microsoft.com/en-us/graph/api/event-delete?view=graph-rest-1.0&tabs=http

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
jsonToken: HCkJsonObject;
success: Boolean;
eventId: PWideChar;
sbUrl: HCkStringBuilder;
resp: HCkHttpResponse;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// Use your previously obtained access token here: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint).

jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/outlookCalendar.json');
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(jsonToken));
    Exit;
  end;
CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

// Specify the ID of the event to be deleted.
eventId := 'AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgENAAAA5_vF7TKKdE6bGCRqXyl2PQAEaDkEcAAAAA==';

sbUrl := CkStringBuilder_Create();
CkStringBuilder_Append(sbUrl,'https://graph.microsoft.com/v1.0/me/events/');
CkStringBuilder_Append(sbUrl,eventId);

resp := CkHttp_QuickRequest(http,'DELETE',CkStringBuilder__getAsString(sbUrl));
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;
Memo1.Lines.Add('Response status code = ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

// The send succeeded if the response status code = 204.
if (CkHttpResponse_getStatusCode(resp) <> 204) then
  begin
    // If the event for the given ID does not exist, you'll get a 404 response code with this response body:

    // 		{
    // 		  "error": {
    // 		    "code": "ErrorItemNotFound",
    // 		    "message": "The specified object was not found in the store.",
    // 		    "innerError": {
    // 		      "date": "2021-04-19T00:02:04",
    // 		      "request-id": "0eac929a-6ee9-42f8-bb56-39799331c6f4",
    // 		      "client-request-id": "0eac929a-6ee9-42f8-bb56-39799331c6f4"
    // 		    }
    // 		  }
    // 		}

    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
    Memo1.Lines.Add('Failed');
  end
else
  begin
    Memo1.Lines.Add('Event deleted.');
  end;

CkHttpResponse_Dispose(resp);

CkHttp_Dispose(http);
CkJsonObject_Dispose(jsonToken);
CkStringBuilder_Dispose(sbUrl);

end;