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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
unit filecontentprovider;
{$mode objfpc}{$H+}
interface
uses
Classes, Controls, SysUtils, BaseContentProvider;
type
{ TFileContentProvider }
TFileContentProvider = class(TBaseContentProvider)
private
public
function CanGoBack: Boolean; override;
function CanGoForward: Boolean; override;
function GetHistory: TStrings; override;
function LoadURL(const {%H-}AURL: String; const {%H-}AContext: THelpContext=-1): Boolean; override;
procedure GoHome; override;
procedure GoBack; override;
procedure GoForward; override;
class function GetProperContentProvider(const AURL: String): TBaseContentProviderClass; override;
constructor Create(AParent: TWinControl; AImageList: TImageList); override;
end;
function RegisterFileType(const FileType: String; ContentProvider: TBaseContentProviderClass): Boolean;
implementation
var
FileContentProviders: TStringList;
function RegisterFileType(const FileType: String;
ContentProvider: TBaseContentProviderClass): Boolean;
begin
Result := False;
if FileContentProviders.IndexOf(FileType) > -1 then exit;
FileContentProviders.AddObject(FileType, TObject(ContentProvider));
end;
{ TFileContentProvider }
function TFileContentProvider.CanGoBack: Boolean;
begin
Result := False;
end;
function TFileContentProvider.CanGoForward: Boolean;
begin
Result := False;
end;
function TFileContentProvider.GetHistory: TStrings;
begin
Result:= nil;
end;
function TFileContentProvider.LoadURL(const AURL: String; const AContext: THelpContext=-1): Boolean;
begin
Result := False;
end;
procedure TFileContentProvider.GoHome;
begin
end;
procedure TFileContentProvider.GoBack;
begin
end;
procedure TFileContentProvider.GoForward;
begin
end;
class function TFileContentProvider.GetProperContentProvider(const AURL: String
): TBaseContentProviderClass;
var
fIndex: Integer;
fExt: String;
fFile: String;
fPos: Integer;
begin
Result := nil;
fFile := Copy(AUrl,8, Length(AURL));
fPos := Pos('://', fFile);
if fPos > 0 then begin
fFile := Copy(fFIle, 1, fPos-1);
end;
fExt := ExtractFileExt(fFile);
//WriteLn(fExt);
fIndex := FileContentProviders.IndexOf(fExt);
if fIndex = -1 then exit;
Result := TBaseContentProviderClass(FileContentProviders.Objects[fIndex]);
end;
constructor TFileContentProvider.Create(AParent: TWinControl; AImageList: TImageList);
begin
inherited Create(AParent, AImageList);
end;
initialization
FileContentProviders := TStringList.Create;
RegisterContentProvider('file://', TFileContentProvider);
finalization
FileContentProviders.Free;
end.
|
