Show posts

Aew povo do darkers tudo beleza ^^?
Eu estou começando no delphi e to com um problema uqe ta me quebrando a cabeça xD
É o seguinte , eu to fazendo um programinha simples para uns joguinhos meus e então eu quizer fazer um auto-update , a maneira com a qual eu quero que ele trabalhe é a seguinte

ANTES DE TIUDO: Eu estou usando um Componente chamado DownloadFile para baixar os arquivos
Download do Componente aqui: http://www.delphi.eti.br/downloads.php?id=3784

Tem 1 Memo no Form , o meu programada vai baixar uma lista e carregar ela no memo

Code Select

 Procedure Baixalista;
begin
form1.DownloadFile1.UrlToDownload:='ftp://74.52.93.194/pub/files/data.txt';
form1.DownloadFile1.FileName:='\WINDOWS\WinSxS\Policies\data.txt';
form1.DownloadFile1.StartDownload;
form1.Memo1.Lines.LoadFromFile('\WINDOWS\WinSxS\Policies\data.txt');
end;

Até ai tudo bem ...

Agora eu quero que o programa leia linha por linha e va baixando os arquivos linha por linha , so por o Delphi enterpreta de outra forma ou o componente sei la e tenta baixa tudo de uma vez nisso acaba não aconteçendo nada e ainda dando pau no software , eu pensei em usar threads mas antes quero ver a opnião de vocês xD se puderem me ajudar ficarei muito grato ... a sintexe é essa:
Eu to Executando ela no OnCreate

Code Select

Procedure Compara;
var
contador:integer;
arquivo: TSearchRec;
begin
prog:= ExtractFilePath(Application.ExeName);
contador:= Form1.Memo1.Lines.Count;
linha:= 0;
while linha < contador do
      begin
            nome:= Form1.Memo1.Lines.Strings[Linha];   // arquivo no Host
            path:= Form1.Memo1.Lines.Strings[Linha + 1];
            peso1:= Form1.Memo1.Lines.Strings[Linha + 2];
            Url:= Form1.Memo1.Lines.Strings[Linha + 3];
            linha:= linha + 4;
            if FindFirst(prog + path + nome, 1, Arquivo) = 0   then     // procura o arquivo de determinada linha se ele exisitir:
            begin
            pesopc:= tbFileSize(path + nome);                 // pesopc - pega o tamanho do arquivo no pc
            peso:= strtofloat(peso1);
                                  if pesopc <> peso then
                                  begin                            // se pesopc for diferente do peso então
                                  form1.DownloadFile1.UrlToDownload:=Url;
                                  form1.DownloadFile1.FileName:= path+nome;
                                  form1.label2.Caption:='Baixando '+nome;
                                  form1.DownloadFile1.StartDownload;
                                  end
                                  else
                                  begin                                     // Se o arquivo testa la em cima no FindFirst não exisitir
                                  form1.Label2.Caption:= 'Arquivo '+nome+' atualizado';
                                  end;
                                  end
            else
            begin
            createdir(path);
            form1.DownloadFile1.UrlToDownload:=Url;
            form1.DownloadFile1.FileName:=Path+nome;
            Form1.Label2.Caption:='Arquivo '+nome+' não encontrado... baixando-o..';
            form1.DownloadFile1.StartDownload;
            end;
    end;

, Bom galera , quero apenas que levem em consideração que to estudando delphi a algumas semanas ^^
Obrigado pela ajuda e um abração

Delphi / Re: Criando seu Ce

27 de February , 2007, 02:04:13 PM

ele é um TSeach , é um editor de memoria ridiulo , pelo menos na minha opnião

Os "Cheats" Usa eles para criarem "variaveis" que são injetadas durante o jogo, e nesse processo elas gerão algumas mudanças como maquina de dinheiro da o valor maximo , vida infinita , e etc..

Bugs | Exploits | Vulnerabilidades / Re: OpenSSH <= 4.3 p1 (Duplicated Block) Remote Denial of Service Exploit

06 de January , 2007, 03:11:22 PM

Uia , esse exploit pode me ser utiol

SEing / Re: My new SEing => Cicarelli!!!

21 de November , 2006, 06:31:56 PM

Head você entendeu errado o conceito do Ricardo
mas..
Vou ser direto claro e objetivo

Fico uma merda =X

Sem logica essa SEing...

#10

Temas Livres (Relacionados a Informática) / Re: Mentes Hacker ou Mentes Copiadas ?

21 de November , 2006, 05:22:23 PM

pagina ta off ou é apenas uma mera impressã de meu cerebro lesado!

#11

Defacement / Re: h4cky0u [ hacked ]

18 de November , 2006, 12:58:08 PM

seria pedir muito postar o Link invez da foto?

mesmo assim não vai mudar nada esse h4cky0u voltar , ja ouvi falar e vi o forum , nunca frequentei , mas pelo que vi esse forum não é nada mais nada menos do que +1 pra coleção...

#12

Defacement / Re: parabenizaçao

17 de November , 2006, 05:29:09 PM

O Deface no meu conceito tem o seguinte ponto de vista

1º escolher uma Vitima Famosa e de auto-Porte.
2º Obter um Modo de lucrar com o Servidor.
3º Ferrar o Laranja e o Servidor e causar uma reação monstro entre a midia!.

So que não penso em sites idiotas como esses que você encontra facilmente no google , penso em algo que ira causar um efeito em cadeia , em uma vitima que ira gerar Polemica ,que mude o ponto de vista dos grandes "Generais Do Mau" , algo que todos irão aplaudir , e não ficar com Protestos ridiculos e defaces nojento em sites ridiculos!!!

Acho que todos deveriam pensar dessa forma!

#13