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; |
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; |
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; |