| 222 |
|
procedure TTest4.RunTest(CharSet: AnsiString; SQLDialect: integer); |
| 223 |
|
var Attachment: IAttachment; |
| 224 |
|
DPB: IDPB; |
| 225 |
+ |
S: TStrings; |
| 226 |
+ |
i: integer; |
| 227 |
|
begin |
| 228 |
|
DPB := FirebirdAPI.AllocateDPB; |
| 229 |
|
DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName); |
| 230 |
|
DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword); |
| 231 |
|
DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet); |
| 232 |
|
DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect); |
| 233 |
+ |
// DPB.Add(isc_dpb_config).SetAsString('WireCompression=true'); |
| 234 |
|
|
| 235 |
|
writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName); |
| 236 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB); |
| 237 |
|
writeln(OutFile,'Database Open'); |
| 238 |
+ |
S := TStringList.Create; |
| 239 |
+ |
try |
| 240 |
+ |
Attachment.getFBVersion(S); |
| 241 |
+ |
for i := 0 to S.Count -1 do |
| 242 |
+ |
writeln(OutFile,S[i]); |
| 243 |
+ |
finally |
| 244 |
+ |
S.Free; |
| 245 |
+ |
end; |
| 246 |
|
DoQuery(Attachment); |
| 247 |
|
end; |
| 248 |
|
|
