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

Comparing ibx/trunk/runtime/nongui/IBDatabase.pas (file contents):
Revision 265 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 266 by tony, Wed Dec 26 18:34:32 2018 UTC

# Line 210 | Line 210 | type
210      FUseDefaultSystemCodePage: boolean;
211      FUseHiddenPassword: boolean;
212      FFirebirdAPI: IFirebirdAPI;
213 +    FWireCompression: boolean;
214      procedure EnsureInactive;
215      function GetAuthenticationMethod: string;
216      function GetDBSQLDialect: Integer;
# Line 311 | Line 312 | type
312      property TraceFlags: TTraceFlags read FTraceFlags write FTraceFlags;
313      property UseDefaultSystemCodePage: boolean read FUseDefaultSystemCodePage
314                                                 write FUseDefaultSystemCodePage;
315 +    property WireCompression: boolean read FWireCompression write FWireCompression;
316      property AfterConnect;
317      property AfterDisconnect;
318      property BeforeConnect;
# Line 503 | Line 505 | type
505                                            write SetTransaction;
506    end;
507  
508 < function GenerateDPB(FirebirdAPI: IFirebirdAPI; sl: TStrings): IDPB;
508 > function GenerateDPB(FirebirdAPI: IFirebirdAPI; sl: TStrings; WireCompression: boolean): IDPB;
509   function GenerateTPB(FirebirdAPI: IFirebirdAPI; sl: TStrings): ITPB;
510  
511  
# Line 1094 | Line 1096 | begin
1096       begin
1097         FDBParamsChanged := False;
1098         if not FUseHiddenPassword and (not LoginPrompt and not (csDesigning in ComponentState)) or (FHiddenPassword = '') then
1099 <         DPB := GenerateDPB(FirebirdAPI,TempDBParams)
1099 >         DPB := GenerateDPB(FirebirdAPI,TempDBParams,WireCompression)
1100         else
1101         begin
1102            TempDBParams.Values['password'] := FHiddenPassword;
1103 <          DPB := GenerateDPB(FirebirdAPI,TempDBParams);
1103 >          DPB := GenerateDPB(FirebirdAPI,TempDBParams,WireCompression);
1104         end;
1105       end;
1106  
# Line 2316 | Line 2318 | end;
2318    parameter buffer, and return it and its length
2319    in DPB and DPBLength, respectively. }
2320  
2321 < function GenerateDPB(FirebirdAPI: IFirebirdAPI; sl: TStrings): IDPB;
2321 > function GenerateDPB(FirebirdAPI: IFirebirdAPI; sl: TStrings; WireCompression: boolean): IDPB;
2322   var
2323    i, j: Integer;
2324    DPBVal: UShort;
# Line 2387 | Line 2389 | begin
2389        end;
2390      end;
2391    end;
2392 +  if WireCompression then
2393 +    Result.Add(isc_dpb_config).SetAsString('WireCompression=true');
2394   end;
2395  
2396   { GenerateTPB -

Diff Legend

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