| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
 Enviada: Qua Jul 31, 2013 3:02 pm Assunto: Maneira correta de usar essa procedure{Resolvido} |
 |
|
Não estou conseguindo fazer uso dessa procedure corretamente:
tentei usando stringlist mas não funcionou...
o objetivo é comprimir vários arquivos e juntar em um só.
| Código: | | procedure CompressFiles(Files: TStrings; const FileName: string); overload; |
como usar essa procedure?
Editado pela última vez por SrJeff em Qua Jul 31, 2013 7:20 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qua Jul 31, 2013 3:04 pm Assunto: |
|
|
nunca usei essa funcao, mas provavelmente vc tem q criar um TStringList com o pasta/nome dos arquivos, e definir o nome do arquivo comprimido q sera gerado
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
| Enviada: Qua Jul 31, 2013 3:06 pm Assunto: |
|
|
Já tentei com stringlist e não funcionou....
tentei adicionar os nomes dos arquivos ao stringliste depois passar o objeto como parâmetro, e nada.
essa procedure é do componente JvMultiplezlib. |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qua Jul 31, 2013 3:07 pm Assunto: |
|
|
posta o codigo pra facilitar
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
| Enviada: Qua Jul 31, 2013 3:11 pm Assunto: |
|
|
| Código: |
var
juntar : TEmbutir;
i : integer;
begin
Files := TStringList.Create;
for I := 0 to Formesteganografia.LV.Items.Count - 1 do
begin
ShowMessage(lv.Items[i].SubItems.Strings[0]);
Files.add(lv.Items[i].SubItems.Strings[0]);
//ShowMessage(files[i]);
end;
juntar := TEmbutir.Create(True);
juntar.Priority := Tpnormal;
juntar.FreeOnTerminate := True;
juntar.Resume;
|
| Código: |
var
z : TJvZlibMultiple;
begin
inherited;
z := TJvZlibMultiple.Create(nil);
z.CompressFiles(Files,PegaTempDir + 'Tempcom.tmp');
FreeAndNil(z);
end;
|
|
|
| Voltar ao Topo |
|
|
mhgsimoes
Aprendiz
Registrado: Sexta-Feira, 7 de Dezembro de 2007
Mensagens: 142
Localização: Belo Horizonte / MG
|
| Enviada: Qua Jul 31, 2013 3:14 pm Assunto: |
|
|
| Poste o código do método "CompressFiles", se tiver o fonte dele. |
|
| Voltar ao Topo |
|
|
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
|
| Voltar ao Topo |
|
|
mhgsimoes
Aprendiz
Registrado: Sexta-Feira, 7 de Dezembro de 2007
Mensagens: 142
Localização: Belo Horizonte / MG
|
| Enviada: Qua Jul 31, 2013 4:10 pm Assunto: |
|
|
Mas o que está acontecendo? Está dando erro? Não dá erro mas não gera o arquivo? Qual o problema exato?
Chegou a fazer um teste mais simples? Passando os valores na mão, só pra ter certeza de que está tudo certo?
Tipo assim:
| Código: |
procedure TForm1.Button1Click(Str: TStrings);
var
ListaArquivos: TStringList;
z : TJvZlibMultiple;
begin
ListaArquivos := TStringList.Create;
z := TJvZlibMultiple.Create(nil);
try
ListaArquivos.Add('C:\a.txt');
ListaArquivos.Add('C:\b.txt');
z.CompressFiles(ListaArquivos, 'C:\destino.tmp');
finally
FreeAndNil(ListaArquivos);
FreeAndNil(z);
end;
end;
|
|
|
| Voltar ao Topo |
|
|
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
| Enviada: Qua Jul 31, 2013 7:01 pm Assunto: |
|
|
Desculpem pelas inconsistências nas informações... O problema é o seguinte, até consigo juntar os arquivos mas na hora de separar é que não funciona, inicialmente pensei que eu estivesse fazendo errado na hora de juntar, mas na verdade o que não está funcionando é para separar.
quando estou a descompactar o arquivo aconteci isso:
exemplo: junto c:\teste.txt + 123456789.mp3
crio o arquivo teste.z
na hora de descompactar indico o diretório
exemplo:
C:\temp\
mas o programa insiste em querer gerar o diretório mas o caminho completo dos arquivo gerando erro.
exemplo:
C:\temp\c:\teste.txt <---- |
|
| Voltar ao Topo |
|
|
mhgsimoes
Aprendiz
Registrado: Sexta-Feira, 7 de Dezembro de 2007
Mensagens: 142
Localização: Belo Horizonte / MG
|
| Enviada: Qua Jul 31, 2013 7:18 pm Assunto: |
|
|
| Poste o código de como você está fazendo a chamada para descomprimir os arquivos. |
|
| Voltar ao Topo |
|
|
SrJeff
Aprendiz
Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
|
| Enviada: Qua Jul 31, 2013 7:19 pm Assunto: |
|
|
Consegui resolver alterando o source do JvZlibMultiple
utilizei extractfilename(s);
obrigado por responderem... |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
