Modify Content-Disposition Header Fields in MIME

Demonstrates how to edit the Content-Disposition header in MIME sub-parts.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: CHILKATMIMELib_TLB.IChilkatMime;
success: Integer;
numParts: Integer;
i: Integer;
mimePart: CHILKATMIMELib_TLB.IChilkatMime;
filename: String;
disposition: String;

begin

//  The intent of this example is to modify Content-Disposition
//  header fields from this:
// 
//  Content-Disposition: attachment; filename="a4 manuscript.pdf"; size=0;
//  	creation-date="Thu, 12 Apr 2007 06:39:10 GMT";
//  	modification-date="Thu, 12 Apr 2007 06:39:10 GMT"
// 
//  to this:
// 
//  content-disposition: attachment;
//  	 filename="a4 manuscript.pdf"
// 

mime := CoChilkatMime.Create();

success := mime.UnlockComponent('Anything for 30-day trial');
if (success = 0) then
  begin
    ShowMessage('Failed to unlock');

  end;

success := mime.LoadMimeFile('testMime.txt');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;

//  This example assumes the header fields to be modified
//  are located directly beneath the top-level MIME part.

numParts := mime.NumParts;

for i := 0 to numParts - 1 do
  begin
    mimePart := mime.GetPart(i);

    disposition := mimePart.Disposition;
    if (disposition = 'attachment') then
      begin
        filename := mimePart.Filename;
        //  AddHeaderField replaces the existing field if it already exists.
        //  Discard the contents of the existing Content-Disposition
        //  and replace it with "attachment".
        mimePart.AddHeaderField('content-disposition','attachment');

        //  Now add the filename attribute:
        mimePart.Filename := filename;
      end;

  end;

success := mime.SaveMime('modifiedMime.txt');


end;