[firebase-br] testar fbclient.dll X versão do servidor
Gabriel Bonzanini
gabriel.bonzanini em gmail.com
Dom Maio 27 18:13:45 -03 2018
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
>
Mais detalhes sobre a lista de discussão lista