oup/current/Tool_Extractor.pas

unit Tool_Extractor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, StrUtils, ComCtrls;

type
  TForm_Extractor = class(TForm)
    group_select: TGroupBox;
    group_extract: TGroupBox;
    group_singlefiles: TGroupBox;
    btn_sel_dat: TButton;
    btn_sel_datraw: TButton;
    btn_sel_datraw_convert: TButton;
    btn_all_dat: TButton;
    btn_all_datraw: TButton;
    btn_all_datraw_convert: TButton;
    group_onefile: TGroupBox;
    btn_sel_files_toone: TButton;
    btn_all_files_toone: TButton;
    group_progress: TGroupBox;
    progress: TProgressBar;
    lbl_progress: TLabel;
    lbl_estimated: TLabel;
    btn_abort: TButton;
    saved: TSaveDialog;
    panel_extension: TPanel;
    lbl_filter: TLabel;
    combo_extension: TComboBox;
    check_zerobyte: TCheckBox;
    edit_filtername: TEdit;
    check_filtername: TCheckBox;
    list: TListBox;
    procedure LoadFileNames;
    procedure check_filternameClick(Sender: TObject);
    procedure check_zerobyteClick(Sender: TObject);
    procedure combo_extensionClick(Sender: TObject);
    procedure panel_extensionResize(Sender: TObject);
    procedure Recreatelist;

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure Extract(Sender: TObject);
  private
  public
  end;

var
  Form_Extractor: TForm_Extractor;

implementation

{$R *.dfm}

uses Main, Code_Functions, Data, Code_OniDataClass;


procedure TForm_Extractor.Recreatelist;
var
  i:    LongWord;
  exts: TStringArray;
begin
  combo_extension.Items.Clear;
  combo_extension.Items.Add('_All files_ (' + IntToStr(
    OniDataConnection.GetFilesCount) + ')');
  exts := OniDataConnection.GetExtensionsList;
  for i := 0 to High(exts) do
    combo_extension.Items.Add(exts[i]);
  combo_extension.ItemIndex := 0;
  combo_extensionClick(Self);
end;


procedure TForm_Extractor.LoadFileNames;
var
  Extension: String[4];
  no_zero_bytes: Boolean;
  pattern: String;
  files: TStringArray;
  i: LongWord;
begin
  Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
  no_zero_bytes := not check_zerobyte.Checked;
  pattern := '';
  if check_filtername.Checked then
    pattern := edit_filtername.Text;
  if Extension = '_All' then
    Extension := '';

  files := OniDataConnection.GetFilesList(extension, pattern, no_zero_bytes);
  list.Items.Clear;
  if Length(files) > 0 then
    for i := 0 to High(files) do
      list.Items.Add(files[i]);
end;


procedure TForm_Extractor.panel_extensionResize(Sender: TObject);
begin
  combo_extension.Width := panel_extension.Width - 5;
  edit_filtername.Width := panel_extension.Width - 5;
end;


procedure TForm_Extractor.combo_extensionClick(Sender: TObject);
begin
  LoadFileNames;
end;


procedure TForm_Extractor.check_zerobyteClick(Sender: TObject);
var
  i: Byte;
begin
  LoadFileNames;
end;


procedure TForm_Extractor.check_filternameClick(Sender: TObject);
begin
  edit_filtername.Enabled := not check_filtername.Checked;
  LoadFileNames;
end;


procedure TForm_Extractor.FormResize(Sender: TObject);
begin
  if Self.Width >= 450 then
  begin
  end
  else
    Self.Width := 450;
  if Self.Height >= 400 then
  begin
    group_progress.Height := group_extract.Height - 293;
  end
  else
    Self.Height := 400;
end;


procedure TForm_Extractor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;


procedure TForm_Extractor.FormCreate(Sender: TObject);
begin
  btn_sel_dat.Caption    := 'Selected files' + CrLf + '(dat contents only)';
  btn_sel_datraw.Caption := 'Selected files' + CrLf + '(dat+raw contents)';
  btn_sel_datraw_convert.Caption :=
    'Selected files' + CrLf + '(dat+raw contents)' + CrLf + '(with convert if possible)';
  btn_all_dat.Caption    := 'All files in list' + CrLf + '(dat contents only)';
  btn_all_datraw.Caption := 'All files in list' + CrLf + '(dat+raw contents)';
  btn_all_datraw_convert.Caption :=
    'All files in list' + CrLf + '(dat+raw contents)' + CrLf + '(with convert if possible)';
  btn_sel_files_toone.Caption := 'Selected files' + CrLf + '(dat contents only)';
  btn_all_files_toone.Caption := 'All files in list' + CrLf + '(dat contents only)';
end;


procedure TForm_Extractor.Extract(Sender: TObject);
var
  sel_only:  Boolean;
  dat_only:  Boolean;
  convert:   Boolean;
  one_file:  Boolean;
  settings:  TExportSet;
  files:     LongWord;
  i, done:   LongWord;
  begintime: Double;
begin
  sel_only := Pos('sel', TButton(Sender).Name) > 0;
  dat_only := not (Pos('datraw', TButton(Sender).Name) > 0);
  convert  := Pos('convert', TButton(Sender).Name) > 0;
  one_file := Pos('toone', TButton(Sender).Name) > 0;
  if dat_only then
    settings := [DO_dat]
  else
    settings := [DO_dat, DO_raw];
  if convert then
    settings := settings + [DO_convert];
  if one_file then
    settings := settings + [DO_toone];
  progress.Position := 0;

  if saved.Execute then
  begin
    begintime := Time;
    group_progress.Visible := True;
    group_select.Enabled := False;
    group_singlefiles.Enabled := False;
    group_onefile.Enabled := False;
    lbl_estimated.Caption := 'Estimated finishing time: unknown';
    if one_file then
    begin
      if FileExists(saved.FileName) then
      begin
        if MessageBox(Self.Handle, PChar(
          'File already exists. Do you want to overwrite it?'), PChar('Warning!'), MB_YESNO) =
          ID_YES then
        begin
          DeleteFile(saved.FileName);
        end
        else
        begin
          group_progress.Visible    := False;
          group_select.Enabled      := True;
          group_singlefiles.Enabled := True;
          group_onefile.Enabled     := True;
          Exit;
        end;
      end;
      i := FileCreate(saved.FileName);
      FileClose(i);
      i := 0;
    end;
    if sel_only then
    begin
      files := list.SelCount;
      lbl_progress.Caption := 'Files done: 0/' + IntToStr(files);
      progress.Max := files;
      done  := 0;
      for i := 0 to list.Count - 1 do
      begin
        if list.Selected[i] then
        begin
          if one_file then
          begin
            ExportFile(OniDataConnection.ExtractFileID(
              list.Items.Strings[list.ItemIndex]), ExtractFileName(saved.FileName),
              settings, ExtractFileDir(saved.FileName));
          end
          else
          begin
            ExportFile(OniDataConnection.ExtractFileID(
              list.Items.Strings[list.ItemIndex]), list.Items.Strings[i], settings, 'D:');
          end;
          Inc(done);
        end;
        if ((done mod 10) = 0) and (done >= 50) then
          lbl_estimated.Caption := 'Estimated finishing time: ' + TimeToStr(
            (Time - begintime) / done * files + begintime);
        if (i mod 10) = 0 then
        begin
          progress.Position    := done;
          lbl_progress.Caption := 'Files done: ' + IntToStr(done) + '/' + IntToStr(files);
          Application.ProcessMessages;
        end;
      end;
    end
    else
    begin
      files := list.Count;
      lbl_progress.Caption := 'Files done: 0/' + IntToStr(files);
      progress.Max := files;
      for i := 0 to list.Count - 1 do
      begin
        if one_file then
        begin
          ExportFile(OniDataConnection.ExtractFileID(
            list.Items.Strings[list.ItemIndex]), ExtractFileName(saved.FileName),
            settings, ExtractFileDir(saved.FileName));
        end
        else
        begin
          ExportFile(OniDataConnection.ExtractFileID(
            list.Items.Strings[list.ItemIndex]), list.Items.Strings[i], settings, 'D:');
        end;
        if ((i mod 10) = 0) and (i >= 50) then
          lbl_estimated.Caption := 'Estimated finishing time: ' + TimeToStr(
            (Time - begintime) / i * files + begintime);
        if (i mod 5) = 0 then
        begin
          progress.Position    := i;
          lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(files);
          Application.ProcessMessages;
        end;
      end;
    end;
    group_progress.Visible    := False;
    group_select.Enabled      := True;
    group_singlefiles.Enabled := True;
    group_onefile.Enabled     := True;
  end;
end;

end.
Revision:	43
Committed:	Mon Dec 18 23:35:30 2006 UTC (19 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	8656 byte(s)
Log Message:	DevTree 0.33a.
#	Content
1	unit Tool_Extractor;
2
3	interface
4
5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, StdCtrls, ExtCtrls, StrUtils, ComCtrls;
8
9	type
10	TForm_Extractor = class(TForm)
11	group_select: TGroupBox;
12	group_extract: TGroupBox;
13	group_singlefiles: TGroupBox;
14	btn_sel_dat: TButton;
15	btn_sel_datraw: TButton;
16	btn_sel_datraw_convert: TButton;
17	btn_all_dat: TButton;
18	btn_all_datraw: TButton;
19	btn_all_datraw_convert: TButton;
20	group_onefile: TGroupBox;
21	btn_sel_files_toone: TButton;
22	btn_all_files_toone: TButton;
23	group_progress: TGroupBox;
24	progress: TProgressBar;
25	lbl_progress: TLabel;
26	lbl_estimated: TLabel;
27	btn_abort: TButton;
28	saved: TSaveDialog;
29	panel_extension: TPanel;
30	lbl_filter: TLabel;
31	combo_extension: TComboBox;
32	check_zerobyte: TCheckBox;
33	edit_filtername: TEdit;
34	check_filtername: TCheckBox;
35	list: TListBox;
36	procedure LoadFileNames;
37	procedure check_filternameClick(Sender: TObject);
38	procedure check_zerobyteClick(Sender: TObject);
39	procedure combo_extensionClick(Sender: TObject);
40	procedure panel_extensionResize(Sender: TObject);
41	procedure Recreatelist;
42
43	procedure FormCreate(Sender: TObject);
44	procedure FormClose(Sender: TObject; var Action: TCloseAction);
45	procedure FormResize(Sender: TObject);
46	procedure Extract(Sender: TObject);
47	private
48	public
49	end;
50
51	var
52	Form_Extractor: TForm_Extractor;
53
54	implementation
55
56	{$R *.dfm}
57
58	uses Main, Code_Functions, Data, Code_OniDataClass;
59
60
61
62
63	procedure TForm_Extractor.Recreatelist;
64	var
65	i: LongWord;
66	exts: TStringArray;
67	begin
68	combo_extension.Items.Clear;
69	combo_extension.Items.Add('_All files_ (' + IntToStr(
70	OniDataConnection.GetFilesCount) + ')');
71	exts := OniDataConnection.GetExtensionsList;
72	for i := 0 to High(exts) do
73	combo_extension.Items.Add(exts[i]);
74	combo_extension.ItemIndex := 0;
75	combo_extensionClick(Self);
76	end;
77
78
79
80
81	procedure TForm_Extractor.LoadFileNames;
82	var
83	Extension: String[4];
84	no_zero_bytes: Boolean;
85	pattern: String;
86	files: TStringArray;
87	i: LongWord;
88	begin
89	Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
90	no_zero_bytes := not check_zerobyte.Checked;
91	pattern := '';
92	if check_filtername.Checked then
93	pattern := edit_filtername.Text;
94	if Extension = '_All' then
95	Extension := '';
96
97	files := OniDataConnection.GetFilesList(extension, pattern, no_zero_bytes);
98	list.Items.Clear;
99	if Length(files) > 0 then
100	for i := 0 to High(files) do
101	list.Items.Add(files[i]);
102	end;
103
104
105
106
107	procedure TForm_Extractor.panel_extensionResize(Sender: TObject);
108	begin
109	combo_extension.Width := panel_extension.Width - 5;
110	edit_filtername.Width := panel_extension.Width - 5;
111	end;
112
113
114
115
116	procedure TForm_Extractor.combo_extensionClick(Sender: TObject);
117	begin
118	LoadFileNames;
119	end;
120
121
122
123
124	procedure TForm_Extractor.check_zerobyteClick(Sender: TObject);
125	var
126	i: Byte;
127	begin
128	LoadFileNames;
129	end;
130
131
132
133
134	procedure TForm_Extractor.check_filternameClick(Sender: TObject);
135	begin
136	edit_filtername.Enabled := not check_filtername.Checked;
137	LoadFileNames;
138	end;
139
140
141
142
143	procedure TForm_Extractor.FormResize(Sender: TObject);
144	begin
145	if Self.Width >= 450 then
146	begin
147	end
148	else
149	Self.Width := 450;
150	if Self.Height >= 400 then
151	begin
152	group_progress.Height := group_extract.Height - 293;
153	end
154	else
155	Self.Height := 400;
156	end;
157
158
159
160
161	procedure TForm_Extractor.FormClose(Sender: TObject; var Action: TCloseAction);
162	begin
163	Action := caFree;
164	end;
165
166
167
168
169	procedure TForm_Extractor.FormCreate(Sender: TObject);
170	begin
171	btn_sel_dat.Caption := 'Selected files' + CrLf + '(dat contents only)';
172	btn_sel_datraw.Caption := 'Selected files' + CrLf + '(dat+raw contents)';
173	btn_sel_datraw_convert.Caption :=
174	'Selected files' + CrLf + '(dat+raw contents)' + CrLf + '(with convert if possible)';
175	btn_all_dat.Caption := 'All files in list' + CrLf + '(dat contents only)';
176	btn_all_datraw.Caption := 'All files in list' + CrLf + '(dat+raw contents)';
177	btn_all_datraw_convert.Caption :=
178	'All files in list' + CrLf + '(dat+raw contents)' + CrLf + '(with convert if possible)';
179	btn_sel_files_toone.Caption := 'Selected files' + CrLf + '(dat contents only)';
180	btn_all_files_toone.Caption := 'All files in list' + CrLf + '(dat contents only)';
181	end;
182
183
184
185
186	procedure TForm_Extractor.Extract(Sender: TObject);
187	var
188	sel_only: Boolean;
189	dat_only: Boolean;
190	convert: Boolean;
191	one_file: Boolean;
192	settings: TExportSet;
193	files: LongWord;
194	i, done: LongWord;
195	begintime: Double;
196	begin
197	sel_only := Pos('sel', TButton(Sender).Name) > 0;
198	dat_only := not (Pos('datraw', TButton(Sender).Name) > 0);
199	convert := Pos('convert', TButton(Sender).Name) > 0;
200	one_file := Pos('toone', TButton(Sender).Name) > 0;
201	if dat_only then
202	settings := [DO_dat]
203	else
204	settings := [DO_dat, DO_raw];
205	if convert then
206	settings := settings + [DO_convert];
207	if one_file then
208	settings := settings + [DO_toone];
209	progress.Position := 0;
210
211	if saved.Execute then
212	begin
213	begintime := Time;
214	group_progress.Visible := True;
215	group_select.Enabled := False;
216	group_singlefiles.Enabled := False;
217	group_onefile.Enabled := False;
218	lbl_estimated.Caption := 'Estimated finishing time: unknown';
219	if one_file then
220	begin
221	if FileExists(saved.FileName) then
222	begin
223	if MessageBox(Self.Handle, PChar(
224	'File already exists. Do you want to overwrite it?'), PChar('Warning!'), MB_YESNO) =
225	ID_YES then
226	begin
227	DeleteFile(saved.FileName);
228	end
229	else
230	begin
231	group_progress.Visible := False;
232	group_select.Enabled := True;
233	group_singlefiles.Enabled := True;
234	group_onefile.Enabled := True;
235	Exit;
236	end;
237	end;
238	i := FileCreate(saved.FileName);
239	FileClose(i);
240	i := 0;
241	end;
242	if sel_only then
243	begin
244	files := list.SelCount;
245	lbl_progress.Caption := 'Files done: 0/' + IntToStr(files);
246	progress.Max := files;
247	done := 0;
248	for i := 0 to list.Count - 1 do
249	begin
250	if list.Selected[i] then
251	begin
252	if one_file then
253	begin
254	ExportFile(OniDataConnection.ExtractFileID(
255	list.Items.Strings[list.ItemIndex]), ExtractFileName(saved.FileName),
256	settings, ExtractFileDir(saved.FileName));
257	end
258	else
259	begin
260	ExportFile(OniDataConnection.ExtractFileID(
261	list.Items.Strings[list.ItemIndex]), list.Items.Strings[i], settings, 'D:');
262	end;
263	Inc(done);
264	end;
265	if ((done mod 10) = 0) and (done >= 50) then
266	lbl_estimated.Caption := 'Estimated finishing time: ' + TimeToStr(
267	(Time - begintime) / done * files + begintime);
268	if (i mod 10) = 0 then
269	begin
270	progress.Position := done;
271	lbl_progress.Caption := 'Files done: ' + IntToStr(done) + '/' + IntToStr(files);
272	Application.ProcessMessages;
273	end;
274	end;
275	end
276	else
277	begin
278	files := list.Count;
279	lbl_progress.Caption := 'Files done: 0/' + IntToStr(files);
280	progress.Max := files;
281	for i := 0 to list.Count - 1 do
282	begin
283	if one_file then
284	begin
285	ExportFile(OniDataConnection.ExtractFileID(
286	list.Items.Strings[list.ItemIndex]), ExtractFileName(saved.FileName),
287	settings, ExtractFileDir(saved.FileName));
288	end
289	else
290	begin
291	ExportFile(OniDataConnection.ExtractFileID(
292	list.Items.Strings[list.ItemIndex]), list.Items.Strings[i], settings, 'D:');
293	end;
294	if ((i mod 10) = 0) and (i >= 50) then
295	lbl_estimated.Caption := 'Estimated finishing time: ' + TimeToStr(
296	(Time - begintime) / i * files + begintime);
297	if (i mod 5) = 0 then
298	begin
299	progress.Position := i;
300	lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(files);
301	Application.ProcessMessages;
302	end;
303	end;
304	end;
305	group_progress.Visible := False;
306	group_select.Enabled := True;
307	group_singlefiles.Enabled := True;
308	group_onefile.Enabled := True;
309	end;
310	end;
311
312	end.