233 |
|
Opts := TStringList.Create; |
234 |
|
NonOpts := TStringList.Create; |
235 |
|
try |
236 |
< |
ErrorMsg := CheckOptions('aAhbegu:i:o:p:r:s:t:',['help','user','pass','role'],Opts,NonOpts); |
236 |
> |
ErrorMsg := CheckOptions('aAhbegu:i:o:p:r:s:t:c:',['help','user','pass','role'],Opts,NonOpts); |
237 |
|
{Database name is last parameter if given and not an option} |
238 |
|
if (NonOpts.Count > 0) and ((Opts.Count = 0) or |
239 |
|
((Opts.ValueFromIndex[Opts.Count-1] <> NonOpts[NonOpts.Count-1])) or |
333 |
|
if HasOption('u','user') then |
334 |
|
FIBDatabase.Params.Values['user_name'] := GetOptionValue('u','user'); |
335 |
|
|
336 |
+ |
if HasOption('c','charset') then |
337 |
+ |
FIBDatabase.Params.Values['lc_ctype'] := GetOptionValue('c','charset'); |
338 |
+ |
|
339 |
|
{Validation} |
340 |
|
|
341 |
|
FIBDatabase.LoginPrompt := (FIBDatabase.Params.IndexOfName('user_name') <> -1) and |
449 |
|
writeln(stderr,' CSV for CSV format'); |
450 |
|
writeln(stderr,' INS for Insert Statement format'); |
451 |
|
writeln(stderr,'-u <username> open database with this username (defaults to SYSDBA)'); |
452 |
+ |
writeln(stderr,'-c <character set name> connection charset'); |
453 |
|
writeln; |
454 |
|
writeln(stderr,'Environment Variables:'); |
455 |
|
writeln(stderr,'ISC_USER Login user Name'); |