ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IB.pas
(Generate patch)

Comparing ibx/trunk/runtime/IB.pas (file contents):
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC vs.
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC

# Line 43 | Line 43 | uses
43   {$ELSE}
44    unix,
45   {$ENDIF}
46 <  SysUtils, Classes, IBExternals, IBUtils, DB, IBXConst;
46 >  SysUtils, Classes, IBExternals, IBUtils, DB, IBXConst, CustApp;
47  
48   type
49 +  TIBGUIInterface = interface
50 +    function ServerLoginDialog(const AServerName: string;
51 +                               var AUserName, APassword: string): Boolean;
52 +    function LoginDialogEx(const ADatabaseName: string;
53 +                               var AUserName, APassword: string;
54 +                               NameReadOnly: Boolean): Boolean;
55 +    procedure SetCursor;
56 +    procedure RestoreCursor;
57 +  end;
58 +
59    TTraceFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect,
60       tfTransact, tfBlob, tfService, tfMisc);
61    TTraceFlags = set of TTraceFlag;
# Line 189 | Line 199 | type
199      ibxeThreadFailed,
200      ibxeFieldSizeError,
201      ibxeTransactionNotEnding,
202 <    ibxeDscInfoTokenMissing
202 >    ibxeDscInfoTokenMissing,
203 >    ibxeNoLoginDialog
204      );
205  
206    TStatusVector              = array[0..19] of ISC_STATUS;
# Line 346 | Line 357 | const
357      SThreadFailed,
358      SFieldSizeError,
359      STransactionNotEnding,
360 <    SDscInfoTokenMissing
360 >    SDscInfoTokenMissing,
361 >    SNoLoginDialog
362    );
363  
364 + const
365 +  IBGUIInterface: TIBGUIInterface = nil;
366 +
367 +
368   var
369    IBCS: TRTLCriticalSection;
370  

Diff Legend

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