-
Notifications
You must be signed in to change notification settings - Fork 3
Expand file tree
/
Copy pathAudioHash.dpr
More file actions
47 lines (36 loc) · 1.66 KB
/
Copy pathAudioHash.dpr
File metadata and controls
47 lines (36 loc) · 1.66 KB
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
{********************************************************************
| This Source Code is subject to the terms of the |
| Mozilla Public License, v. 2.0. If a copy of the MPL was not |
| distributed with this file, You can obtain one at |
| https://mozilla.org/MPL/2.0/. |
| |
| 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. |
********************************************************************}
{ This coded uses:
TNT Delphi Unicode Controls (compatiable with the last free version)
to handle a few unicode tasks.
And optionally, the FastMM/FastCode/FastMove libraries:
http://sourceforge.net/projects/fastmm/
And code snippets from Yanniel Alvarez :
http://www.yanniel.info/2012/01/open-subtitles-api-in-delphi.html
And the MediaInfo DLL and Headers to read the ID3/TAG meta-data:
https://mediaarea.net/en/MediaInfo
- tested with v0.7.92.1 of "mediainfo.dll"
}
program AudioHash;
uses
FastMM4,
FastMove,
FastCode,
Forms,
MainUnit in 'MainUnit.pas' {MainForm},
misc_utils_unit in 'misc_utils_unit.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.