mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-28 06:43:44 +02:00
58 lines
2.5 KiB
PHP
58 lines
2.5 KiB
PHP
(* ***** 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' }
|
|
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));
|
|
|