Context Navigation

UFormMain.pas

Last change on this file was 9, checked in by chronos, 4 years ago
Modified: Split search and generation phase.
File size: 927 bytes

Line
1	unit UFormMain;
2
3	{$mode Delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UPlaylist;
9
10	type
11
12	{ TFormMain }
13
14	TFormMain = class(TForm)
15	ButtonGenerate: TButton;
16	procedure ButtonGenerateClick(Sender: TObject);
17	procedure FormCreate(Sender: TObject);
18	procedure FormDestroy(Sender: TObject);
19	private
20
21	public
22	Playlist: TPlaylist;
23	end;
24
25	var
26	FormMain: TFormMain;
27
28
29	implementation
30
31	{$R *.lfm}
32
33	{ TFormMain }
34
35	procedure TFormMain.ButtonGenerateClick(Sender: TObject);
36	begin
37	end;
38
39	procedure TFormMain.FormCreate(Sender: TObject);
40	begin
41	Playlist := TPlaylist.Create;
42
43	if ParamCount >= 2 then begin
44	Playlist.SearchBaseDir := ParamStr(1);
45	Playlist.RemoteBaseDir := ParamStr(2);
46	Playlist.Search;
47	Playlist.GenerateXSPF;
48	Application.Terminate;
49	end;
50	end;
51
52	procedure TFormMain.FormDestroy(Sender: TObject);
53	begin
54	FreeAndNil(Playlist);
55	end;
56
57	end.
58

Note: See TracBrowser for help on using the repository browser.