Changeset 336 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 10:32:23 AM (14 years ago)

Author:

george

Message:

• Přidáno: Načítání parametrů volání z příkazové řádky.

File:

• tools/dbc_export/DBCExport.pas (modified) (6 diffs)

tools/dbc_export/DBCExport.pas

@@ -19 +19 @@
     DBC: TDBC;
     Database: TSqlDatabase;
+    DBCFileName: string;
+    NewDBCFileName: string;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -32 +34 @@
 begin
   // Quick check parameters
-  ErrorMsg := CheckOptions('h', 'help');
-  if ErrorMsg <> '' then begin
-    ShowException(Exception.Create(ErrorMsg));
-    Halt;
-  end;
+  //ErrorMsg := CheckOptions('h', 'help');
+  //if ErrorMsg <> '' then begin
+  //  ShowException(Exception.Create(ErrorMsg));
+  //  Halt;
+  //end;
 
   // Parse parameters
@@ -43 +45 @@
     Halt;
   end;
+  if HasOption('f', 'file') then begin
+    DBCFileName := GetOptionValue('f', 'file');
+    NewDBCFileName := Copy(DBCFileName, 1, Length(DBCFileName) -
+      Length(ExtractFileExt(DBCFileName))) + '-2.dbc';
+  end else begin
+    WriteLn('Source DBC file not specified.');
+    Halt;
+  end;
+  if HasOption('n', 'newfile') then begin
+    NewDBCFileName := GetOptionValue('n', 'newfile');
+  end;
+
+  if HasOption('s', 'schema') then begin
+    Database.Database := GetOptionValue('s', 'schema');
+  end else Database.Database := 'wowpreklad';
+  if HasOption('u', 'user') then begin
+    Database.UserName := GetOptionValue('u', 'user');
+  end else Database.UserName := 'root';
+  if HasOption('p', 'password') then begin
+    Database.Password := GetOptionValue('p', 'password');
+  end else Database.Password := '';
+  if HasOption('t', 'host') then begin
+    Database.Hostname := GetOptionValue('t', 'host');
+  end else Database.Hostname := 'localhost';
+
+
   ShowDBC;
 
@@ -53 +81 @@
   inherited Create(TheOwner);
   StopOnException := True;
+  Database := TSqlDatabase.Create;;
 end;
 
 destructor TDBCExport.Destroy;
 begin
+  Database.Destroy;
   inherited Destroy;
 end;
@@ -62 +92 @@
 procedure TDBCExport.WriteHelp;
 begin
-  { add your help code here }
-  WriteLn('Usage: ', ExeName, ' -h');
+  WriteLn('Usage: ', ExtractFileName(ExeName), ' [options]');
+  WriteLn('  -h --help      Show this help');
+  WriteLn('  -u --user      Database user name');
+  WriteLn('  -p --password  Database password name');
+  WriteLn('  -s --schema    Database schema name');
+  WriteLn('  -t --host      Database host name');
+  WriteLn('  -f --file      Source DBC file name');
+  WriteLn('  -n --newfile   New created DBC file name');
 end;
 
@@ -73 +109 @@
   DBC := TDBC.Create;
   with DBC do begin
-    LoadFromFile('Spell.dbc');
-    //LoadColumnStrings(1);
-    //LoadColumnStrings(127);
-    (*for Y := 0 to Length(Cells) - 1 do begin
-      Text := '';
-      for X := 0 to Length(Cells[Y]) - 1 do
-       if VarIsStr(Cells[Y, X]) then Text := Text + Cells[Y, X] + ', '
-        else Text := Text + IntToStr(Cells[Y, X]) + ', ';
-      WriteLn(Text);
-    end;
-    *)
-    WriteLn('Save');
-    SaveToFile('Spell2.dbc');
+    if FileExists(DBCFileName) then begin
+      LoadFromFile(DBCFileName);
+      //LoadColumnStrings(1);
+      //LoadColumnStrings(127);
+      (*for Y := 0 to Length(Cells) - 1 do begin
+        Text := '';
+        for X := 0 to Length(Cells[Y]) - 1 do
+         if VarIsStr(Cells[Y, X]) then Text := Text + Cells[Y, X] + ', '
+          else Text := Text + IntToStr(Cells[Y, X]) + ', ';
+        WriteLn(Text);
+      end;
+      *)
+      WriteLn('Save');
+      SaveToFile(NewDBCFileName);
+    end else WriteLn('File ' + DBCFileName + ' not exists.');
     Free;
   end;