uses
IBCAdmin;
procedure TForm2.FormCreate(Sender: TObject);
var
IBCServerProperties: TIBCServerProperties;
LServerVersion:
string;
begin
IBCServerProperties:= TIBCServerProperties.Create(
nil);
IBCServerProperties.Server:= '
localhost';
IBCServerProperties.Username:= '
##';
IBCServerProperties.Password:= '
##';
IBCServerProperties.Attach;
IBCServerProperties.FetchVersionInfo;
LServerVersion:= IBCServerProperties.VersionInfo.ServerVersion;
MessageBox(0, PChar(LServerVersion), '
Server-Info', 0);
end;