Fórum Fazer downoad a primeira execucao e executar... #2026
20/01/2009
0
Fabricio Bolzan
Curtir tópico
+ 0Posts
20/01/2009
Wesley Yamazack
Aguardamos contato.
Att,
Wesley Yamazack
Gostei + 0
21/01/2009
Wesley Yamazack
Estamos aguardando sobre maiores esclarecimentos.
Att,
Wesley Y
Gostei + 0
22/01/2009
Wesley Yamazack
Att,
Wesley Y
Gostei + 0
23/01/2009
Fabricio Bolzan
Gostei + 0
23/01/2009
Wesley Yamazack
Esterei desenvolvendo o exemplo, e te enviando em breve.
Att,
Wesley Y
Gostei + 0
30/01/2009
Rodrigo Mourão
O que o consultor acima explicou está corretíssimo. Porém o problema de se implementar esta rotina e que para extrair a versão d um arquivo em um FTP teriamos que baixá-lo para verificar a versão o que não justifica, então vai uma saída que utilizo nas minhas aplicações.
Primeiro coloque seu arquivo Sql.exe em um diretorio FTP e junto com ele um arquivo .ini. O Arquivo deverá ter a seguinte estrutura:
[Config]
Data=dd/mm/yyyy
Versao=0.0.0.0
Ou seja, você irá conectar no FTP, baixar o ini e comparar com o que tem local, ou seja, você terá que ter um arquivo ini local tamém. Ao conectar no FTP baixe o arquivo .ini e leia a verão atual dele. Depois compara com a verão do Sql.exe que está na maquina do cliente lendo o ini local. Se a verão do FTP for maior então você irá baixar o arquivo sql.exe do FTP para a maquina do cliente e atualizar o ini local do cliente.
Acredito que isso resolva o seu problema.
Para executar o Download do FTP você deverá utilizar o componente IDFTP. O Codigo para conectar e baixar o arquico é :
Ftp.Host := 'ftp.seudominio.com';
Ftp.Username := 'seuusuario';
Ftp.Password := 'senha';
Ftp.Connect;
Ftp.ChangeDir('/www');
Ftp.Get('arquivo.ini','C:\Arquivo.ini');
Logo depois você deverá abrir o arquivo ini baixado com a classe TIniFiles e transformar a versao do arquivo num inteiro para poder comparar.
var
F: TIniFile;
versaosite, versaolocal: String;
Nsite, NLocal: Integer
begin
F := TIniFile.Create('C:\arquivo.ini')
versaosite := F.ReadString('Config','Versao','0');
NSite := StrToInt(StringReplace(versaosite,'.','',[rfReplaceAll]));
F := TIniFile.Create('C:\arquivolocal.ini')
versaolocal := F.ReadString('Config','Versao','0');
NLocal := StrToInt(StringReplace(versaolocal,'.','',[rfReplaceAll]));
If Nsite > NLocal then
begin
Ftp.Host := 'ftp.seudominio.com';
Ftp.Username := 'seuusuario';
Ftp.Password := 'senha';
Ftp.Connect;
Ftp.ChangeDir('/www');
Ftp.Get('sql.exe','C:\sql.exe');
end;
end;
Acredito que isso deva resolver o problema.
Estamos no aguardo!!!!
abs !!!!
Gostei + 0
31/01/2009
Fabricio Bolzan
Gostei + 0
03/02/2009
Rodrigo Mourão
Você realizou os testes ?? Podemos encerrar o chamado ??
Estamos no aguardo !!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador de Consultoria em Delphi
Gostei + 0
13/02/2009
Fabricio Bolzan
Gostei + 0
13/02/2009
Rodrigo Mourão
Solicito que seja aberto um novo chamado para que possa estar verificando !!
Obrigado !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)