Aplicação para gerar um arquivo .zip

[FabioRubim 0]

Olá pessoal!

 

Eu vou começar a fazer uma aplicação que pega todos os arquivos de um diretório e compacta todos eles em um arquivo .zip...

 

E eu tenho 2 dúvidas...

 

1ª-Como faço para quando eu abrir um arquivo pelo OpenDialog( esta certo usar este?) e somente eu pegar o caminho da pasta, eu clico em abrir e em um edit box e na aplicação ir só o caminho do diretório onde estão todos os arquivos que desejo zipar??!?!

 

2ª-No Delphi tem algum modo para gerar arquivos .zip?? senão, onde encontro um componente? pois procurei e tive dificuldade...

 

obrigado! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Basta apenas adaptar esse code do Márcio Theis... ao invés de passar o arquivo passe apenas o nome da pasta...

 

http://forum.imasters.com.br/index.php?showtopic=206461

[FabioRubim 0]

Obrigado Hugo, vai ser de grande serventia....e eu achei essa função para abrir só o diretório SelectDirectory()...agora, como faço para nesta janela aparecer o botão para criar um novo diretório???obrigado!

[Hugo Slepicka 0]

veja esse exemplo que fiz:

 

ele usa apenas um DirectoryListBox para demonstrar a criação da pasta, mas o comando é simples...

 

Para baixá-lo clique no link abaixo:

 

http://www.simioobeso.org/hugo/forum/Folders.rar

 

 

Belê?

 

Qualquer dúvida posta aew... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[FabioRubim 0]

Obrigado Hugo, muito legal o que você passou, principalmente o uso do Update em "DirectoryListBox1.Update;"....-----outra coisa, esse aplicativo que estou desenvolvendo vai ser para rodar em windows 98, estou usando como BD o Access, mas desenvolvendo em WinXp Pro, estou usandoo Jet 4.0 vai rodar no windows 98?e pelo que entendi no help do BDS 2006 a função Shellexecute não funciona em win98, é isso mesmo? não fui testar ainda, não tenho windows 98 aqui <_< .....obrigado!

[Hugo Slepicka 0]

Que bom que gostou... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Cara, infelizmente não tenho essa info pra ti...

 

mas caso o ShellExecute não funcione existem outras maneiras de se executar o comando desejado...

 

você pode fazer um arquivo .BAT e mandar executá-lo com o WinExec... entre outras coisas...

 

Agora quanto a compatibilidade... apenas testando mesmo....

[FabioRubim 0]

Que isso, relaxa Hugo, você, todos aqui no iMasters me dão uma grande ajuda, fico grato a todos e no momento mais a você. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

...mas como de praxe, la vai, aqui mesmo ainda, nesta aplicação, eu to fazendo uma verificação na primeira tela que entra, uma tela onde só coloca o usuário, nada de senha, e se o usuário digitado no combobox não existir (caso a pessoa não procure na lista e digite novamente) eu mando procurar no BD se existe aquela pessoa, mas, como faço para procurar dentro do conteúdo do combobox que foi carregado do BD ? acho que é algo mais rápido e mais "econômico"......

 

 

Obrigado!

[Hugo Slepicka 0]

você pode fazer um FOR se estiver carregado na Combobox...

PS.: código abaixo sujeito a erros... to sem o Delphi aqui...

For i := 0 to Combo1.Itens.Count dobegin	if Combo1.Itens[i].Text = Usuario Then	Begin		showmessage('ta certo');	End	Else	Begin		showmessage('usuario incorreto');	End;End;

mas uma Query com um campo sendo filtrada é muito mais rápido na minha opinião... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[FabioRubim 0]

Ok,,, entendi, é que as vezes, penso eu, não é necessário acessar o BD...mas ok, obirgado Hugo. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Beleza.. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif