ZLIB Delphi

Question

Boa noite pessoal,
estou usando este c&oacute;digo para selecionar os arquivos para compress&atilde;o e depois enviar para uma fun&ccedil;&atilde;o de compress&atilde;o:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  if (Trim(OpenDialog1.FileName)  '') and (OpenDialog1.Files.Count > 0) then
    CompressFiles(OpenDialog1.Files,'C:\Compactado.zlib');
end;

Por&eacute;m queria saber como fa&ccedil;o para predefinir os arquivos para compress&atilde;o, j&aacute; tentei usar no lugar de OpenDialog1.Files o caminho do arquivo, mas n&atilde;o funcionou porque deve ser um TString. Alguem sabe como resolver?

Abra&ccedil;&atilde;o!

Answer

TString na verdade &eacute; uma lista de strings, e n&atilde;o uma s&oacute;.  H&aacute; tamb&eacute;m outro componente muito bom para zipar e deszipar arquivos. &Eacute; o ZipForge.

Voc&ecirc; pode baixa-lo em:
http://www.componentace.com/download/download.php?editionid=12

voc&ecirc; pode tamb&eacute;m encontrar v&aacute;rios exemplos de seu uso em:
http://www.componentace.com/zip-delphi.htm

Answer

Cara, teria como criar uma TString com o nome dos arquivos que existem em um determinado diret&oacute;rio?

Abra&ccedil;&atilde;o!

Answer

Sim, tem como.  Voc&ecirc; pode fazer da seguinte forma:

Files:=TStringList.Create;
  Files.Add('arquivo1');
  Files.Add('arquivo2');
  Files.Add('arquivo3');

depois voc&ecirc; pode percorrer toda a lista usando o while() ou o for(), de acordo com a quantidade de itens atrav&eacute;s da propriedade count.  Por exemplo

for i := 0 to Files.Count -1 do
  ShowMessage(Files);

Neste exemplo, [I]Files  &eacute; uma vari&aacute;vel do tipo TStringList.

Ferramentas

Mover Tópico