blob: f6c0a600cc24dbc8bdcbf3b1f22809aba14d2d44 (
plain)
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
|
{$mode objfpc}
{$h+}
program testmime;
uses classes,fpmimetypes;
Var
L : TstringList;
I : integer;
FN : String;
begin
FN:=Paramstr(1);
{$ifdef unix}
if (FN='') then
FN:='/etc/mime.types';
{$endif}
MimeTypes.LoadFromFile(FN);
L:=TStringList.Create;
try
MimeTypes.GetKNownMimeTypes(L);
For I:=0 to L.Count-1 do
Writeln('Type ',i,' : ',L[i],' : ',MimeTypes.GetMimeExtensions(L[i]));
MimeTypes.GetKnownExtensions(L);
For I:=0 to L.Count-1 do
Writeln('Extension ',i,' : ',L[i],' : ',MimeTypes.GetMimeType(L[i]));
finally
L.Free;
end;
end.
|