84 |
|
end; |
85 |
|
|
86 |
|
procedure TForm1.IBDatabase1AfterConnect(Sender: TObject); |
87 |
+ |
var S: TStrings; |
88 |
|
begin |
89 |
|
IBTransaction1.Active := true; |
90 |
|
TableNameLookup.Active := true; |
91 |
|
Memo1.Lines.Add('Authentication Method = '+ IBDatabase1.AuthenticationMethod); |
92 |
|
Memo1.Lines.Add('Remote Protocol = ' + IBDatabase1.RemoteProtocol); |
93 |
|
Memo1.Lines.Add('Attachment SQLDialect = ' + IntToStr(IBDatabase1.DBSQLDialect)); |
94 |
+ |
S := TStringList.Create; |
95 |
+ |
try |
96 |
+ |
IBDatabase1.Attachment.getFBVersion(S); |
97 |
+ |
Memo1.Lines.AddStrings(S); |
98 |
+ |
finally |
99 |
+ |
S.Free; |
100 |
+ |
end; |
101 |
|
with IBDatabaseInfo1 do |
102 |
|
begin |
103 |
|
Memo1.Lines.Add('Firebird Library Pathname = ' + IBDatabase1.FirebirdAPI.GetFBLibrary.GetLibraryFilePath); |