Ola, amigo. To usando o zipmaster com arquivos exportados para xml:
Compactar:
with frmPrincipal do
begin
SaveDialog1.Filename:= 'Unidade'+IntToStr(Unidade);
SaveDialog1.Filter:= 'Zip Files(*.zip)|*.zip';
SaveDialog1.DefaultExt:= 'Zip';
if SaveDialog1.Execute then
begin
ZipMaster1.Load_Zip_Dll;
ZipMaster1.Load_Unz_Dll;
ZipMaster1.ZipFileName:= (SaveDialog1.FileName);
with ZipMaster1 do
begin
AddOptions:= [AddUpdate];
FSpecArgs.Clear;
FSpecArgs.Add('c:\Siscopol\exportar\beos.xml');
FSpecArgs.Add('c:\Siscopol\exportar\detalhebeos.xml');
FSpecArgs.Add('c:\Siscopol\exportar\pmbo.xml');
try
Add;
except
MessageDlg('Erro ao compactar arquivos!', mtInformation, [mbOk], 0);
Abort;
end;
if SuccessCnt >=1 then
MessageDlg('Dados exportados com sucesso!', mtInformation, [mbOk], 0)
else
MessageDlg('Nenhum arquivo adicionado!', mtInformation, [mbOk], 0);
end;
end;
end;
Descompactar:
if OpenDialog1.Execute then
begin
ZipMaster1.Load_Zip_Dll;
ZipMaster1.Load_Unz_Dll;
ZipMaster1.ZipFileName:= (OpenDialog1.FileName);
with ZipMaster1 do begin
if count = 0 then
MessageDlg('Não há arquivos no zip!', mtInformation, [mbOk], 0)
else begin
FSpecArgs.Clear;
FSpecArgs.Add('beos.xml');
FSpecArgs.Add('detalhebeos.xml');
FSpecArgs.Add('pmbo.xml');
ExtrBaseDir:= 'c:\siscopol\importar\';
ExtrOptions:= ExtrOptions + [ExtrOverwrite];
try
Extract;
MessageDlg('Importação realizada com sucesso!', mtInformation,
[mbOk], 0);
except
on Exception do MessageDlg('Erro de DLL requerida!', mtInformation,
[mbOk], 0);
end;
end;
end;
end;
Murillo Proença escreveu:
>
> Eu de novo,
>
> preciso gerar um arquivo zip pela minha aplicação Delphi e também
> descompactar o mesmo para extrair os arquivos. Qualquer dica tá
> valendo.
>
> Valeu
>
> Murillo Proença
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
