[AJUDA] Auto Update..

[mateus007mts 14]

Bom Galera eu to criando aqui um componente de auto update..

 

eu fiz assim :

 

criei um novo projeto botei o IDFtp1

e nele botei o seguinte codico :

 

var

WebCheats : TFileStream;

begin

IdFTP1.Host := 'host do ftp..';

IdFTP1.Username := 'usernameftp';

IdFTP1.Password := 'passowordftp';

IdFTP1.Port := (21);

begin

{como o IdFTP nao aceita substituir nenhum arquivo, temos que checar primeiro se o arquivo existe}

if not FileExists('C:\index.html') then begin

WebCheats := TFileStream.Create('C:\index.htm', fmCreate);

IdFTP1.Get('

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

WebCheats);

end else

DeleteFile('C:\index.htm');

WebCheats := TFileStream.Create('C:\index.htm', fmCreate);

IdFTP1.Get('

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

WebCheats);

IdFTP1.Disconnect;

O Codico funciona normal o problema é que o programa abre e feicha...

 

ele feicha tão rapido que nem da pra ver abrindo mais ele abre sem erros mais feicha sozin, e o pior é que ele não baixa nada...

 

Alguém sabe como resolver isso ?

 

@@EDIT

 

Acabei de ver que essa é a área errada não tinha visto a area de ajuda ali, porfavor moderadores não feichem o topico se poderem apenas mover ele para a area certa ficarei grato..

 

pesso desculpas pelo ocorrido.

[Owner 8]

Teste esse código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[mateus007mts 14]

Manim deu apenas um pequeno erro no "Direc :="

o erro deu no ":="

 

Expected : But receveid := at line 29...

[Owner 8]

Ah, desculpa passei o código errado, seria assim:

procedure TForm1.Button1Click(Sender: TObject);

var

direc, name, line, dir, repli : string;

begin

Direc := 'pasta_local_onde_vai_jogar_o_download';

name := 'nome_do arquivo.extensão';

line := 'pasta_local_onde_vai_jogar_o_download_+_nome_do arquivo.extensão';

dir := '/pasta_onde_esta_o_arquivo_no_servidor';

repli := ''; // se vai sobrepor o arquivo coloque 'S'

begin

if not (DirectoryExists(direc)) then

begin

ShowMessage('Erro. Diretório inexistente!');

abort;

end;

 

if (FileExists(line)) then

BEGIN

if repli = 'S' THEN

BEGIN

DeleteFile(line);

END

else

BEGIN

ShowMessage('o arquivo ja existe neste local');

IdFTP1.Disconnect;

abort;

END;

end;

if NOT (FileExists(line)) then

BEGIN

with IdFTP1 do try

Username := 'nome_do_ususario_do_ftp';

Password := 'senha_do ftp';

Host := 'ip_do_servidor_ftp';

Connect;

ChangeDir(dir);

finally

end;

begin

try

begin

IdFTP1.Get(Name, Line, false);

end;

finally

IdFTP1.Disconnect;

end;

end;

end;

end;

Tenta assim :D

[mateus007mts 14]

codico funcionando normalmente valeu ai mano ! porfavor se não for pedi muito poderia mandar seu msn por PM ?

 

DUVIDA RESPONDIDA ALGUM MOD PODE FEICHAR O TOPICO ?

[Jm' 1.002]

Dúvida Resolvida.

 

Fechado.