ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/fbsql/fbsql.lpr
(Generate patch)

Comparing ibx/trunk/examples/fbsql/fbsql.lpr (file contents):
Revision 228 by tony, Tue Apr 3 10:52:43 2018 UTC vs.
Revision 229 by tony, Tue Apr 10 13:32:36 2018 UTC

# Line 57 | Line 57 | type
57      FExtract: TIBExtract;
58      FOutputFile: TStream;
59      FDataOutputFormatter: TDataOutputFormatter;
60 +    FPromptedForPassword: string;
61      procedure LogHandler(Sender: TObject; Msg: string);
62      procedure ErrorLogHandler(Sender: TObject; Msg: string);
63      procedure loginPrompt(Database: TIBDatabase; LoginParams: TStrings);
# Line 204 | Line 205 | end;
205   procedure TFBSQL.loginPrompt(Database: TIBDatabase; LoginParams: TStrings);
206   var password: string;
207   begin
208 +  if LoginParams.Values['password'] <> '' then Exit;
209    write(LoginParams.Values['user_name'] + '''s Password:');
210    password := getpassword;
211    if password <> '' then

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines