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
|
program basic;
{$IFDEF FPC}
{$MODE OBJFPC}
{$H+}
{$ENDIF}
{$IFDEF MSWINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}
uses libmagic;
const
MAGIC_MGC = {$IFDEF MSWINFOWS}'magic.mgc'{$ELSE}nil{$ENDIF};
var
filename: string;
cookie: magic_t;
begin
cookie := magic_open(MAGIC_ERROR_ or MAGIC_MIME);
magic_load(cookie, MAGIC_MGC);
filename := {$I %file%};
WriteLn('The content-type of ''', filename, ''' is: ',
magic_file(cookie, Pcchar(filename)));
magic_close(cookie);
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to exit ...');
ReadLn;
{$ENDIF}
end.
|
