[firebase-br] testar fbclient.dll X versão do servidor

[Gabriel Bonzanini]

Para obter a versão da DLL, utilize esta função passando o caminho da DLL
por parâmetro:

function FileVersion(const FileName: string): String;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  Result := '';

  if(FileExists(FileName)) Then
  begin
    Try
      VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
      GetMem(VerInfo, VerInfoSize);
      GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
      VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);

      with VerValue^ do
      begin
        Result := IntToStr(dwFileVersionMS shr 16);
        Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
        Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
        Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
      end;

      FreeMem(VerInfo, VerInfoSize);
    Except
      Result := '0.0.0.0';
    End;
  end;
end;

Em 23 de maio de 2018 14:58, Carlos H. Cantu <listas em warmboot.com.br>
escreveu:

> Extraia a versão da DLL e verifique se é a que vc espera.
>
> []s
> Carlos H. Cantu
> eBook Guia de Migração para o FB 3 - www.firebase.com.br/guiafb3.php
> www.FireBase.com.br - www.firebirdnews.org - blog.firebase.com.br
>
> OB> prezados, boa tarde
>
> OB> preciso controlar na minha aplicação (Delphi 2010) se o fbclient.dll
> em uso
> OB> pelo cliente é compatível com a versão do servidor
>
> OB> ainda estou usando Firebird 2.5.2
>
> OB> obrigado
>
> OB> *Otavio Benini*
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://www.firebase.com.br/
> pesquisa_lista.html
>