[firebase-br] Como saber a versão do FB (1.0, 1.5, 2.0)?

[Juvencio Leite]

Jeferson, obrigado pela ajuda, mas o problema e o seguinte: eu preciso saber
a versão do servidor que está rodando na maquina, pois eu uso o Fb 1.5 e meu
sistema, apresentou algumas falhas numa maquina rodando o 2.0, então o que
eu preciso saber e a versão do servidor FB na maquina. Desculpem se me
expressei mal. Grato.

Em 17/02/08, Jeferson Oliveira <jefersonfoliveira em gmail.com> escreveu:
>
> Em 16/02/08, Juvencio Leite escreveu:
> > Bom Dia Lista, tem alguma forma de saber qual e a versão do Firebird
> > (1.0, 1.5, 2.0) que esta rodando na maquina do cliente?
>
> Pelo DOS, pode obter essa informação com GBAK.
>
> Pelo servidor basta:
> gbak -z
>
> Pela estação pode obter essa informação atavés da execução de um
> backup. É claro que não quer executar o backup completo só para isso,
> então passe um caminho de destino inválido como parâmetro:
>
> gbak -z -b servidor:c:\CaminhoValido\ParaBancoExistente.fdb
> C:\CaminhoInvalido\Banco.fbk
>
>
> Se utiliza Delphi, pode utilizar a classe TIBServerProperties. Veja um
> exemplo:
>
> uses
>   IBServices;
>
> function ObterVersaoServidor(const Servidor: string; const Usuario: string
> =
>     'SYSDBA'; const Senha: string = 'masterkey'): string;
> var
>   IBServerProperties: TIBServerProperties;
> begin
>   IBServerProperties := TIBServerProperties.Create(nil);
>   try
>     IBServerProperties.ServerName := Servidor;
>     IBServerProperties.LoginPrompt := False;
>     IBServerProperties.Params.Add(Format('user_name=%s', [Usuario]));
>     IBServerProperties.Params.Add(Format('password=%s', [Senha]));
>     IBServerProperties.Active := True;
>     try
>       IBServerProperties.Options := IBServerProperties.Options +
> [Version];
>       IBServerProperties.FetchVersionInfo;
>       Result := Format('%s %s %d',
> [IBServerProperties.VersionInfo.ServerVersion,
>         IBServerProperties.VersionInfo.ServerImplementation,
>         IBServerProperties.VersionInfo.ServiceVersion]);
>     finally
>       IBServerProperties.Active := False;
>     end;
>   finally
>     IBServerProperties.Free;
>   end;
> end;
>

-- 
====================================
Desenvolvimento para aplicativos comerciais
com eficiência e segurança.
'A Análise determina a necessidade.
Se nunca andou de Helicoptero, isso não significa que
o mesmo não sirva para nada.'
خوفنسيو يته دا سيلفا

===================================