Fórum TFileListBox Versus Componente TCab #297798
29/09/2005
0
Salve Colegas!
Seguinte, estou querendo compactar arquivos e diretórios com o componente TCab. bom a coisa funciona tipo o winzip. eu primeiro vou adicionando os arquivos e pastas em um TFileListBox, e depois digo pro Tcab ir lá e compactar os arquivos e pastas.
O problema é bem simples... vejam abaixo o meu código e o erro:
O problema está nessa linha: ´aCabWr.AddFiles(Lista_B.Items, ´´, [cafsoRecurseSubdirs]);
´
O erro gerado é o seguinte:
como eu mato essa charada?
[]´s
Seguinte, estou querendo compactar arquivos e diretórios com o componente TCab. bom a coisa funciona tipo o winzip. eu primeiro vou adicionando os arquivos e pastas em um TFileListBox, e depois digo pro Tcab ir lá e compactar os arquivos e pastas.
O problema é bem simples... vejam abaixo o meu código e o erro:
var
aCabWr: TSTCabWriter;
j : integer;
begin
aCabWr := TSTCabWriter.Create(nil);
try
aCabWr.CompressionType := cctLzx;
aCabWr.Open(Edit_DestB.Text);
aCabWr.AddFiles(Lista_B.Items, ´´, [cafsoRecurseSubdirs]);
aCabWr.Close;
finally
aCabWr.Free;
StatusBar1.Panels[1].Text := ´Backup realizado com sucesso.´;
end;
end;
O problema está nessa linha: ´aCabWr.AddFiles(Lista_B.Items, ´´, [cafsoRecurseSubdirs]);
´
O erro gerado é o seguinte:
[Error] U_Principal.pas(113): Incompatible types: ´String´ and ´TStrings´
como eu mato essa charada?
[]´s
Mahdak
Curtir tópico
+ 0
Responder
Posts
30/09/2005
Mahdak
sobe
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)