ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Extractor.pas

Comparing:
oup/rewrite/Tools/Extractor.pas (file contents), Revision 93 by alloc, Thu Jan 18 17:15:59 2007 UTC vs.
oup/current/Tools/Extractor.pas (file contents), Revision 111 by alloc, Wed Feb 21 03:28:48 2007 UTC

#	Line 35 | Line 35 | var
35
36		implementation
37		{$R *.dfm}
38	<	uses Main, Functions, Data, OniDataClass, FolderBrowser, Exporters;
38	>	uses Main, Functions, Data, ConnectionManager, FolderBrowser, Exporters;
39
40
41		procedure TForm_Extractor.FormCreate(Sender: TObject);
#	Line 69 | Line 69 | end;
69		procedure TForm_Extractor.btn_exportClick(Sender: TObject);
70		var
71		begintime: Double;
72	<	files:     LongWord;
73	<	i, done:   LongWord;
72	>	files:     Integer;
73	>	i, done:   Integer;
74		selonly:   Boolean;
75	<	fileid:    LongWord;
75	>	fileid:    Integer;
76		filename:  String;
77		path:      String;
78		begin
#	Line 104 | Line 104 | begin
104		begin
105		if (selonly and filelist.Selected[i]) or not selonly then
106		begin
107	<	fileid := Connection.ExtractFileID(filelist.Items.Strings[i]);
107	>	fileid := ConManager.Connection[ConnectionID].ExtractFileIDOfName(filelist.Items.Strings[i]);
108		filename := GetWinFilename(filelist.Items.Strings[i]);
109		if check_dat.Checked then
110	<	ExportDatFile(Connection, fileid, path + filename);
110	>	ExportDatFile(ConnectionID, fileid, path + filename);
111		if check_raw.Checked then
112	<	ExportRawFiles(Connection, fileid, path + filename);
112	>	ExportRawFiles(ConnectionID, fileid, path + filename);
113		if check_convert.Checked then
114	<	ExportConverted(Connection, fileid, path + filename);
114	>	ExportConverted(ConnectionID, fileid, path + filename);
115		Inc(done);
116		end;
117		if ((done mod 10) = 0) and (done >= 50) then

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)