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

Comparing ibx/trunk/runtime/nongui/IBXServices.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 73 | Line 73 | type
73      FProtocol: TProtocol;
74      FServerVersionNo: array [1..4] of integer;
75      FExpectedDB: string;
76 +    FWireCompression: boolean;
77      procedure CheckActive;
78      procedure CheckInactive;
79      procedure CheckServerName;
# Line 121 | Line 122 | type
122      property Params: TStrings read FParams write SetParams;
123      property ServerName: string read FServerName write SetServerName;
124      property TraceFlags;
125 +    property WireCompression: boolean read FWireCompression write FWireCompression;
126      property AfterConnect;
127      property AfterDisconnect;
128      property BeforeConnect;
# Line 2825 | Line 2827 | begin
2827        end;
2828      end;
2829    end;
2830 +  if WireCompression then
2831 +    Result.Add(isc_spb_config).AsString := 'WireCompression=true';
2832   end;
2833  
2834   function TIBXServicesConnection.GetFirebirdAPI: IFirebirdAPI;

Diff Legend

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