彩票走势图

• 将文件压缩为GZ格式
• 在接收驱动设备上解压GZ文件
• 将多个文件压缩为ZIP格式文件
• 在接收驱动设备上解压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