Ignore:
Timestamp:
Mar 1, 2010, 4:04:25 PM (15 years ago)
Author:
maron
Message:

Přidání nuly za každý ukládaný textový řetězec, přidána změna znakové sady při připojení do databáze a možné nastavení pomocí parametru. Celý export otestován... funkční.

Location:
tools/dbc_export
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tools/dbc_export

    • Property svn:ignore

      •  

        old new  
        11bin
        22*.bak
         3backup

  • tools/dbc_export/DBCExport.pas

    r341 r348  
    2727    IndexTable: array of integer;
    2828    SQLquery: string;
     29    CharSet: string;
    2930    DisplayData: Boolean;
    3031    constructor Create(TheOwner: TComponent); override;
    … …  
    7778    Database.Hostname := GetOptionValue('t', 'host');
    7879  end else Database.Hostname := 'localhost';
     80  if HasOption('a', 'Charset') then begin
     81    Charset := GetOptionValue('a', 'Charset');
     82  end else Charset := 'utf8';
    7983  if HasOption('q', 'sql_query') then begin
    8084    SQLquery := GetOptionValue('q', 'sql_query');
    … …  
    115119  WriteLn('Usage: ', ExtractFileName(ExeName), ' [options]');
    116120  WriteLn('  -h --help        Show this help');
    117   WriteLn('  -u --user        Database user name');
     121  WriteLn('  -u --user        Database user name, default root');
    118122  WriteLn('  -p --password    Database password name');
    119   WriteLn('  -s --schema      Database schema name');
    120   WriteLn('  -t --host        Database host name');
     123  WriteLn('  -s --schema      Database schema name, default wowpreklad');
     124  WriteLn('  -t --host        Database host name, default localhost');
     125  WriteLn('  -a --Charset     Database Charset, default utf8');
    121126  WriteLn('  -f --file        Source DBC file name');
    122127  WriteLn('  -n --newfile     New created DBC file name');
    … …  
    169174begin
    170175  with DBC do begin
    171     SaveToFile(NewDBCFileName);
     176    if FileExists(DBCFileName) then
     177      SaveToFile(NewDBCFileName);
    172178    Free;
    173179  end;
    … …  
    185191  with DBC do begin
    186192    if (SQLquery <> '') then begin;
     193
    187194      Database.Connect;
     195//      Database.Query('CHARACTER SET '+CharSet);
     196      Database.Query('SET NAMES '+CharSet);
    188197      DBRows := Database.Query(SQLquery);
     198      CharSet:=Database.Charset;
    189199
    190200      CreateIndexTable(DBRows);
Note: See TracChangeset for help on using the changeset viewer.