ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/client/FBAttachment.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBAttachment.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC

# Line 38 | Line 38 | unit FBAttachment;
38   interface
39  
40   uses
41 <  Classes, SysUtils, {$IFDEF WINDOWS} windows, {$ENDIF} IB,  FBParamBlock, FBActivityMonitor;
41 >  Classes, SysUtils, {$IFDEF WINDOWS} windows, {$ENDIF} IB,  FBParamBlock,
42 >  FBActivityMonitor, FBClientAPI;
43  
44   type
45    TCharsetMap = record
# Line 68 | Line 69 | type
69      FCodePage: TSystemCodePage;
70      FRemoteProtocol: AnsiString;
71      FAuthMethod: AnsiString;
72 <    constructor Create(DatabaseName: AnsiString; DPB: IDPB;
72 >    constructor Create(api: TFBClientAPI; DatabaseName: AnsiString; DPB: IDPB;
73        RaiseExceptionOnConnectError: boolean);
74      procedure CheckHandle; virtual; abstract;
75      function GenerateCreateDatabaseSQL(DatabaseName: AnsiString; aDPB: IDPB): AnsiString;
# Line 80 | Line 81 | type
81      procedure SetParameters(SQLParams: ISQLParams; params: array of const);
82    public
83      destructor Destroy; override;
84 +    function getFirebirdAPI: IFirebirdAPI;
85      function getDPB: IDPB;
86      function AllocateBPB: IBPB;
87      function AllocateDIRB: IDIRB;
# Line 112 | Line 114 | type
114      function Prepare(transaction: ITransaction; sql: AnsiString; aSQLDialect: integer): IStatement; overload; virtual; abstract;
115      function Prepare(transaction: ITransaction; sql: AnsiString): IStatement; overload;
116      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
117 <                       aSQLDialect: integer; GenerateParamNames: boolean=false): IStatement; overload; virtual; abstract;
117 >                       aSQLDialect: integer; GenerateParamNames: boolean=false;
118 >                       CaseSensitiveParams: boolean = false): IStatement; overload; virtual; abstract;
119      function PrepareWithNamedParameters(transaction: ITransaction; sql: AnsiString;
120 <                       GenerateParamNames: boolean=false): IStatement; overload;
120 >                       GenerateParamNames: boolean=false;
121 >                       CaseSensitiveParams: boolean = false): IStatement; overload;
122      function GetEventHandler(Events: TStrings): IEvents; overload; virtual; abstract;
123      function GetEventHandler(Event: AnsiString): IEvents; overload;
124  
# Line 298 | Line 302 | begin
302    FHasDefaultCharSet := CharSetID2CodePage(FCharSetID,FCodePage) and (FCharSetID > 1);
303   end;
304  
305 < constructor TFBAttachment.Create(DatabaseName: AnsiString; DPB: IDPB;
306 <  RaiseExceptionOnConnectError: boolean);
305 > constructor TFBAttachment.Create(api: TFBClientAPI; DatabaseName: AnsiString;
306 >  DPB: IDPB; RaiseExceptionOnConnectError: boolean);
307   begin
308    inherited Create;
309 <  FFirebirdAPI := FirebirdAPI; {Keep reference to interface}
309 >  FFirebirdAPI := api.GetAPI; {Keep reference to interface}
310    FSQLDialect := 3;
311    FDatabaseName := DatabaseName;
312    FDPB := DPB;
# Line 449 | Line 453 | begin
453    inherited Destroy;
454   end;
455  
456 + function TFBAttachment.getFirebirdAPI: IFirebirdAPI;
457 + begin
458 +  Result := FFirebirdAPI;
459 + end;
460 +
461   function TFBAttachment.getDPB: IDPB;
462   begin
463    Result := FDPB;
# Line 456 | Line 465 | end;
465  
466   function TFBAttachment.AllocateBPB: IBPB;
467   begin
468 <  Result := TBPB.Create;
468 >  Result := TBPB.Create(FFirebirdAPI as TFBClientAPI);
469   end;
470  
471   function TFBAttachment.AllocateDIRB: IDIRB;
472   begin
473 <  Result := TDIRB.Create;
473 >  Result := TDIRB.Create(FFirebirdAPI as TFBClientAPI);
474   end;
475  
476   procedure TFBAttachment.ExecImmediate(TPB: array of byte; sql: AnsiString;
# Line 584 | Line 593 | begin
593   end;
594  
595   function TFBAttachment.PrepareWithNamedParameters(transaction: ITransaction;
596 <  sql: AnsiString; GenerateParamNames: boolean): IStatement;
596 >  sql: AnsiString; GenerateParamNames: boolean; CaseSensitiveParams: boolean): IStatement;
597   begin
598 <  Result := PrepareWithNamedParameters(transaction,sql,FSQLDialect,GenerateParamNames);
598 >  Result := PrepareWithNamedParameters(transaction,sql,FSQLDialect,GenerateParamNames,CaseSensitiveParams);
599   end;
600  
601   function TFBAttachment.GetEventHandler(Event: AnsiString): IEvents;
# Line 757 | Line 766 | var i: integer;
766   begin
767    Result := false;
768    for i := Low(CharSetMap) to High(CharSetMap) do
769 <    if AnsiCompareStr(CharSetMap[i].CharSetName, CharSetName) = 0 then
769 >    if AnsiCompareText(CharSetMap[i].CharSetName, CharSetName) = 0 then
770      begin
771        CharSetID := CharSetMap[i].CharSetID;
772        Result := true;
# Line 765 | Line 774 | begin
774      end;
775  
776      for i := 0 to Length(FUserCharSetMap) - 1 do
777 <      if AnsiCompareStr(FUserCharSetMap[i].CharSetName, CharSetName) = 0 then
777 >      if AnsiCompareText(FUserCharSetMap[i].CharSetName, CharSetName) = 0 then
778        begin
779          CharSetID := FUserCharSetMap[i].CharSetID;
780          Result := true;

Diff Legend

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