ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/Extractor.pas
(Generate patch)

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 109 by alloc, Wed Feb 21 03:12:33 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 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)