Pascal (Lazarus/Delphi)

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.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Mime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mime: TMime;

begin
  success := False;

  mime := TMime.Create;
  mime.SetBody('this is a test');
  mime.ContentType := '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.
  mime.SetHeaderField('Date',mime.CurrentDateTime);

  WriteLn(mime.GetMime());

  //  The result:

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


  mime.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.