• 將文件壓縮為GZ格式
• 在接收驅(qū)動設(shè)備上解壓GZ文件
• 將多個文件壓縮為ZIP格式文件
• 在接收驅(qū)動設(shè)備上解壓ZIP文件

• 壓縮文件
  
  　　Dim lError As Integer
  
  　　lError = sZip(txtFile.Text, txtZip.Text, chkSubs.Checked, 1234567890)
  
  　　If lError
  
  　MsgBox(lError)
  
  　　Else
  
  　MsgBox("File(s) zipped")
  
  　　End If
• 解壓文件
  　　Dim lError As Integer
  
  　　lError = sUnzip(txtZip.Text, txtFile.Text, chkSubs.Checked, 1234567890)
  
  　　If lError
  
  　　　MsgBox(lError)
  
  　　Else
  
  　　MsgBox("OK")
  
  　End If

The memory available on the devices is undoubtedly increasing as technology evolves, but so is the amount of data we are storing. We can now store more information about products and customers allowing a smoother daily run of the business.

 　　However, we may sometimes find that our data is still, too big. Imagine transferring a product catalogue over a GSM connection which may not only take a long time, but be costly in connection charges. The solution is to be able to transfer the data in a compressed format and decompress it on the device.Product FeaturesThe Sapphire GZip Utility makes file compression and decompression simple with the following features:

• Compress a file into the GZ file format
• Decompress a GZ file onto the device
• Compress multiple files into the Zip file format
• Decompress a Zip file on to the device

Sample Code
 　　Implementation couldn’t be easier, simply declare the DLL function as a function within your application and call it as though you wrote it yourself. Here’s a sample demo on how to compressing and decompress a file within VB.NET.

• Zipping a file
  
  　　　Dim lError As Integer
  
  　　　lError = sZip(txtFile.Text, txtZip.Text, chkSubs.Checked, 1234567890)
  
  　　　If lError <> 0 Then
  
  　　MsgBox(lError)
  
  　　 Else
  
  　　MsgBox("File(s) zipped")
  
  　　　End If
• 　Unzipping a file
  　　Dim lError As Integer
  
  　　　lError = sUnzip(txtZip.Text, txtFile.Text, chkSubs.Checked, 1234567890)
  
  　　　　If lError <> 0 Then
  
  　　MsgBox(lError)
  
  　　Else
  
  　　MsgBox("OK")
  
  　　　　　End If