{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence                                   }
{ Team Coherence is Copyright 2002 by Quality Software Components      }
{                                                                      }
{ For further information / comments, visit our WEB site at            }
{ http://www.TeamCoherence.com                                         }
{**********************************************************************}
{}
{ $Log:  10265: IdMIMETypes.pas 
{
{   Rev 1.0    2002.11.12 10:46:50 PM  czhower
}
unit IdMIMETypes;

{
2000-Mar-27 Pete Mee
 - ReturnMIMETypes should return the most relevant MIME type+encoding pair
   to the values passed - i.e., removes x- where it is unnecessary & modifies
   the type if it is known to be incorrect.  (Stupid-)Example:
   application/octet-stream + x-base64 should be application/octet-stream +
   base64... Warning: this file is expected to grow to become mainly constants!!
}

interface

const
     MIMESplit = '/';    {Do not Localize}
     MIMEXVal = 'x-';    {Do not Localize}

     MIMETypeApplication = 'application' + MIMESplit;    {Do not Localize}
     MIMETypeAudio = 'audio' + MIMESplit;    {Do not Localize}
     MIMETypeImage = 'image' + MIMESplit;    {Do not Localize}
     MIMETypeMessage = 'message' + MIMESplit;    {Do not Localize}
     MIMETypeMultipart = 'multipart' + MIMESplit;    {Do not Localize}
     MIMETypeText = 'text' + MIMESplit;    {Do not Localize}
     MIMETypeVideo = 'video' + MIMESplit;    {Do not Localize}
     MaxMIMEType = 6;

     // MIME Sub-Types
     MIMESubOctetStream = 'octet-stream';    {Do not Localize}
     MIMESubMacBinHex40 = 'mac-binhex40';    {Do not Localize}
     MaxMIMESubTypes = 1;

     // BinToASCII
     MIMEEncBase64 = 'base64'; // Correct MIME type    {Do not Localize}
     MIMEEncUUEncode = MIMEXVal + 'uu'; // A guess...    {Do not Localize}
     MIMEEncXXEncode = MIMEXVal + 'xx'; // A guess...    {Do not Localize}
     MaxMIMEBinToASCIIType = 2;

     // Message Digests - a MIME type probably doesn't exist for these...    {Do not Localize}
     MIMEEncRSAMD2 = MIMEXVal + 'rsa-md2';    {Do not Localize}
     MIMEEncRSAMD4 = MIMEXVal + 'rsa-md4';    {Do not Localize}
     MIMEEncRSAMD5 = MIMEXVal + 'rsa-md5';    {Do not Localize}
     MIMEEncNISTSHA = MIMEXVal + 'nist-sha';    {Do not Localize}
     MaxMIMEMessageDigestType = 3;

     // Compression Types
     MIMEEncRLECompress = MIMEXVal + 'rle-compress'; // Probably doesn't exist    {Do not Localize}
     MaxMIMECompressType = 0;

     MaxMIMEEncType = MaxMIMEBinToASCIIType + MaxMIMEMessageDigestType + 1 +
       MaxMIMECompressType + 1;

     // Only put long, frequent full values in. Keep this list short, otherwise
     // it'll be a nightmare & produce HUGE .exe files with LARGE useless    {Do not Localize}
     // sections (the above is bad enough on it's own!).    {Do not Localize}
     MIMEFullApplicationOctetStream = MIMETypeApplication + MIMESubOctetStream;

     // Returns true if matched, false if not.  If true, vars may be altered.
     function ReturnMIMEType(var MediaType, EncType : String) : Boolean;

var
   MIMEMediaType : array [0..MaxMIMEType] of String;

implementation

uses
  IdGlobal,
  SysUtils;

function ReturnMIMEType;
var
   MType, SType, EType : String;
   i : LongWord;
begin
     i := IndyPos(MIMESplit, MediaType);
     MType := Copy(MediaType, 1, i);
     SType := Copy(MediaType, i + 1, length(MediaType));
     EType := EncType;

     i:=PosInStrArray(LowerCase(MType),MIMEMediaType);
     case i of
       0 : begin
         // MIMETypeApplication - application/
       end;
       1 : begin
         // MIMETypeAudio - audio/
       end;
       2 : begin
         // MIMETypeImage - image/
       end;
       3 : begin
         // MIMETypeMessage - message/
       end;
       4 : begin
         // MIMETypeMultipart - multipart/
       end;
       5 : begin
         // MIMETypeText - text/
       end;
       6 : begin
         // MIMETypeVideo - video/
       end;
     else begin
          if LowerCase(Copy(MType, 1, 2)) = MIMEXVal then begin
             i:=PosInStrArray(LowerCase(Copy(MType, 3, length(MType))),MIMEMediaType);
             case i of
               0 : begin
                 // MIMETypeApplication - application/
                 MType := MIMETypeApplication;
               end;
               1 : begin
                 // MIMETypeAudio - audio/
                 MType := MIMETypeAudio;
               end;
               2 : begin
                 // MIMETypeImage - image/
                 MType := MIMETypeImage;
               end;
               3 : begin
                 // MIMETypeMessage - message/
                 MType := MIMETypeMessage;
               end;
               4 : begin
                 // MIMETypeMultipart - multipart/
                 MType := MIMETypeMultipart;
               end;
               5 : begin
                 // MIMETypeText - text/
                 MType := MIMETypeText;
               end;
               6 : begin
                 // MIMETypeVideo - video/
                 MType := MIMETypeVideo;
               end;
             end;
          end;
       end;
     end;

     result := false;
end;

initialization
  MIMEMediaType[0] := MIMETypeApplication;
  MIMEMediaType[1] := MIMETypeAudio;
  MIMEMediaType[2] := MIMETypeImage;
  MIMEMediaType[3] := MIMETypeMessage;
  MIMEMediaType[4] := MIMETypeMultipart;
  MIMEMediaType[5] := MIMETypeText;
  MIMEMediaType[6] := MIMETypeVideo;
end.
