Tweet
Galera agora a duvida e a seguinte .... queria comprimir...varios arquivos gerados com o nome teste e a HORA do momento que foram cirados ... direto pelo delphi sem usar componentes pois nao quero meu programa tenho q ser enviado com Dll's
O codigo que eu consegui chegar mais perto ate agora foi o seguinte
FileIni, FileOut: TFileStream;
Zip: TCompressionStream;
begin
FileIni:=TFileStream.Create('C:\teste\teste*.gif', fmOpenRead and fmShareExclusive);
FileOut:=TFileStream.Create('C:\teste\teste*.zip', fmCreate or fmShareExclusive);
Zip:=TCompressionStream.Create(clMax, FileOut);
Zip.CopyFrom(FileIni, FileIni.Size);
Zip.Free;
FileOut.Free;
FileIni.Free;
end;
o problema e que e nao consigo compactar a pasta inteira da "ERRO ACESSO NEGADO"
e o comando FileIni:=TFileStream.Create('C:\teste\teste*.gif', fmOpenRead and fmShareExclusive); nao funciona o "*" para incluir todos os arquivos ...
Obrigado por quem puder ajudar...
O codigo que eu consegui chegar mais perto ate agora foi o seguinte
FileIni, FileOut: TFileStream;
Zip: TCompressionStream;
begin
FileIni:=TFileStream.Create('C:\teste\teste*.gif', fmOpenRead and fmShareExclusive);
FileOut:=TFileStream.Create('C:\teste\teste*.zip', fmCreate or fmShareExclusive);
Zip:=TCompressionStream.Create(clMax, FileOut);
Zip.CopyFrom(FileIni, FileIni.Size);
Zip.Free;
FileOut.Free;
FileIni.Free;
end;
o problema e que e nao consigo compactar a pasta inteira da "ERRO ACESSO NEGADO"
e o comando FileIni:=TFileStream.Create('C:\teste\teste*.gif', fmOpenRead and fmShareExclusive); nao funciona o "*" para incluir todos os arquivos ...
Obrigado por quem puder ajudar...
Comment