Como usar um arquivo CGZIP no Visual Basic 6

Escrito por lora covrett | Traduzido por francisco de castro
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar um arquivo CGZIP no Visual Basic 6
Anexar um arquivo compactado permite enviar mais dados do que normalmente é permitido pelo servidor de e-mail (Photodisc/Photodisc/Getty Images)

Um arquivo CGZIP foi compactado usando o Zip32.dll. Arquivos e pastas do Windows podem ser compactados e descompactados, e um arquivo compactado é salvo com a extensão ".zip". Os módulos Zip32.dll e Unzip32.dll são arquivos DLL do padrão C, distribuídos pela Info-ZIP. Ela é um grupo de desenvolvedores que oferece versões gratuitas de utilitários para compactar e descompactar arquivos. Você provavelmente já tem o Zip32.dll e o Unzip32.dll no seu computador porque eles são distribuídos em muitas aplicações, porém, se você não os tiver, eles podem ser encontrados sem valor de custo para download na internet.

Nível de dificuldade:
Desafiante

Outras pessoas estão lendo

Instruções

    Instruções

  1. 1

    Abra um novo projeto ActiveX DLL Visual Basic. Crie um módulo de código ".bas" com referências a funções disponíveis nos arquivos Zip32.dll e Unzip32.dll.

    Private Declare Function ZpArchive Lib "zip32.dll" _ (ByVal argc As Long, ByVal funame As String, ByRef argv As ZIPnames) As Long

    Private Declare Function Wiz_SingleEntryUnzip Lib "unzip32.dll" _ (ByVal ifnc As Long, ByRef ifnv As UNZIPnames, _ ByVal xfnc As Long, ByRef xfnv As UNZIPnames, _ dcll As DCLIST, Userf As USERFUNCTION) As Long

    Defina uma função public zip e unzip dentro deste módulo de código. Em seguida, nomeie o módulo como "MainDLL.bas".

  2. 2

    Adicione um novo módulo de classe para compactar e um para descompactar ao projeto. Estas duas classes referenciam as funções public zip e unzip definidas no "MainDLL.bas". Dê o nome de "CGZipFiles" e "CGUnzipFiles". Salve e compile o projeto DLL ActiveX, chamado "CGZipUnzip", como "CGZipUnzip.dll".

  3. 3

    Crie um novo projeto Standard EXE Visual Basic. Adicione uma referência para o "CGZipUnzip.dll" selecionando "Project", "References" e marque a caixa ao lado de CGZipUnzip.

  4. 4

    Declare uma variável de objeto para manter uma referência ao "CGZipUnzip". Use esse objeto para referenciar cada uma das chamadas de funções disponíveis de Zip32.dll e Unzip32.dll defindas no novo ActiveX dll "CGZipUnzip". O código a seguir define uma referência à DLL "CGZipUnzip", determina o nome do arquivo compactado, estabelece quais arquivos devem ser incluídos no arquivo zip e cria o arquivo zip. Se existir algum erro durante a criação do zip, eles são mostrados em uma caixa de mensagem para o usuário.

    Dim oZip As CGZipUnzip With oZip .ZipFileName = "\MYZIP.ZIP" .AddFile App.Path & "*.*" If .MakeZipFile <> 0 Then MsgBox .GetLastMessage End If End With Set oZip = Nothing

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível