(Delphi DLL) Mime CurrentDateTime

The CurrentDateTime property is provide as a convenient way of getting the current date/time in RFC822 format, which is often needed for the MIME Date header field.

It is not actually a property of the MIME object. It simply returns the current date/time of the system.

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, Mime;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mime: HCkMime;

begin
mime := CkMime_Create();
CkMime_SetBody(mime,'this is a test');
CkMime_putContentType(mime,'text/plain');

// The CurrentDateTime property is just a convenient way of
// get the current date/time in RFC 822 format.  It saves us
// the trouble of looking elsewhere for this common need.
CkMime_SetHeaderField(mime,'Date',CkMime__currentDateTime(mime));

Memo1.Lines.Add(CkMime__getMime(mime));

// The result:

// 	Content-Type: text/plain
// 	Date: Sat, 01 Oct 2016 10:18:49 -0500
// 
// 	this is a tes

CkMime_Dispose(mime);

end;