Boa tarde Rafael Jorge.
E para atualizar sim , mais não o executável e sim o arquivo do Rave
que esta separado do executável.
A atualização do executável já esta funcionando normalmente, só
atualiza o meu executável quando a versão do arquivo for maior que a versão
que o cliente está.
O que estou tentando fazer agora é a atualização dos meus relatórios
que estão em um arquivo do rave separado do executável. O que eu estou
precisando saber é se tem como colocar a versão no arquivo do Rave, que nem
o Delphi faz no Arquivo .exe do meu projeto quando compilo ele entendeu.
Dessa maneira aproveito toda a lógica que faço para atualizar o .exe
e faço atualizar o arquivo do Rave Tb checando as versões dos arquivos.
Espero ter esclarecido um pouco mais.
Desde já agradeço a atenção.
Paulo C. Valadares
-----Mensagem original-----
Assunto: Re: Adicionar versão no Arquivo
deve ser pra atualizar um executavel que tem os relatorio externos ne?
bem se for isso pq vc nao pega a data do executavel?
pq ai vc compara a data do arquivo do rave com o que o cliente tem e se ele
for maior entao tem que atualizar.
bem. se for isso o que vc tiver querendo mesmo.
agora se vc quizer mostrar a versao do executavel dentro do rave tem uma
funcao no delphi que retorna isso. ai vc cria um aparametro no rave e passa
do delphi pra ele.
a funcao ta logo abaxio:
Function VersaoExe: String;
type
PFFI = ^vs_FixedFileInfo;
var
F : PFFI;
Handle : Dword;
Len : Longint;
Data : Pchar;
Buffer : Pointer;
Tamanho : Dword;
Parquivo: Pchar;
Arquivo : String;
begin
Arquivo := Application.ExeName;
Parquivo := StrAlloc(Length(Arquivo) + 1);
StrPcopy(Parquivo, Arquivo);
Len := GetFileVersionInfoSize(Parquivo, Handle);
Result := '';
if Len > 0 then
begin
Data:=StrAlloc(Len+1);
if GetFileVersionInfo(Parquivo,Handle,Len,Data) then
begin
VerQueryValue(Data, '\',Buffer,Tamanho);
F := PFFI(Buffer);
Result := Format('%d.%d.%d.%d',
[HiWord(F^.dwFileVersionMs),
LoWord(F^.dwFileVersionMs),
HiWord(F^.dwFileVersionLs),
Loword(F^.dwFileVersionLs)]);
end;
StrDispose(Data);
end;
StrDispose(Parquivo);
end;
bom proveito
t+
Em 29 de junho de 2010 14:12, simoesluciano
<simoesluci...@yahoo.com.br>escreveu:
>
>
> Já pensou em calcular o CRC do arquivo e armazenar no banco? Assim você
> poderia fazer uma comparação.
>
> Luciano C. Simões
>
> --- Em delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>,
> "Paulo Cesar Valadares" <pa...@...> escreveu
>
> >
> > A função que retorna a versão eu também tenho, o problema e colocar a
> versão
> > dentro do arquivo .RAV entendeu ???
> >
> >
> >
> > Desde já agradeço.
> >
>
>
>
--
_________________________
Rafael jorge alves
Desenvolvedor/analista
Ativa Soluções em TI.
Recife - PE
__________ Informação do ESET NOD32 Antivirus, versão da vacina 5238
(20100629) __________
A mensagem foi verificada pelo ESET NOD32 Antivirus.
http://www.eset.com
