1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower Internet Professional
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 2000-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* ***** END LICENSE BLOCK ***** *)
{ Default MIME content type information. Update as necessary. }
type
TIpDefContentInfo = record
Typ : string; { content type, e.g. 'application' }
Sub : string; { content subtype, e.g. 'octet-stream' }
Enc : TIpMimeEncodingMethod; { encoding method, e.g. 'base64' } {!!.02}
end;
const
DefExtensionCount = 14;
DefExtensions : array[0..(DefExtensionCount-1)] of string =
('.bin', '.txt', '.rtf', '.doc', '.ps', '.tif',
'.gif', '.jpg', '.bmp', '.mov', '.avi', '.wav', '.aif', '.zip');
DefContent : array[0..(DefExtensionCount-1)] of TIpDefContentInfo = (
{bin} (Typ : 'application'; Sub : 'octet-stream'; Enc : embase64),
{txt} (Typ : 'text'; Sub : 'plain'; Enc : em8bit),
{rtf} (Typ : 'application'; Sub : 'msword'; Enc : em8bit),
{doc} (Typ : 'application'; Sub : 'msword'; Enc : embase64),
{ps} (Typ : 'application'; Sub : 'postscript'; Enc : em8bit),
{tif} (Typ : 'image'; Sub : 'tif'; Enc : embase64),
{gif} (Typ : 'image'; Sub : 'gif'; Enc : embase64),
{jpg} (Typ : 'image'; Sub : 'jpeg'; Enc : embase64),
{bmp} (Typ : 'image'; Sub : 'bmp'; Enc : embase64),
{mov} (Typ : 'video'; Sub : 'quicktime'; Enc : embase64),
{avi} (Typ : 'video'; Sub : 'avi'; Enc : embase64),
{wav} (Typ : 'video'; Sub : 'wave'; Enc : embase64),
{aif} (Typ : 'audio'; Sub : 'aif'; Enc : embase64),
{zip} (Typ : 'application'; Sub : 'x-zip-compressed'; Enc : embase64));
|
