home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frmCompress
- BorderStyle = 4 'Fixed ToolWindow
- Caption = "Compress - Expand"
- ClientHeight = 4845
- ClientLeft = 1890
- ClientTop = 3270
- ClientWidth = 7485
- Height = 5250
- Left = 1830
- MaxButton = 0 'False
- MDIChild = -1 'True
- ScaleHeight = 4845
- ScaleWidth = 7485
- ShowInTaskbar = 0 'False
- Top = 2925
- Width = 7605
- Begin VB.TextBox txt_Result
- BackColor = &H00C0C0C0&
- BorderStyle = 0 'None
- Height = 4110
- Left = 105
- Locked = -1 'True
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 0
- Top = 630
- Width = 7260
- End
- Begin Threed.SSPanel SSPanel1
- Align = 1 'Align Top
- Height = 480
- Left = 0
- TabIndex = 1
- Top = 0
- Width = 7485
- _Version = 65536
- _ExtentX = 13203
- _ExtentY = 847
- _StockProps = 15
- ForeColor = -2147483640
- BackColor = 12632256
- Begin VB.ComboBox cmb_Function
- Height = 315
- Left = 1365
- TabIndex = 2
- Top = 90
- Width = 4785
- End
- Begin Threed.SSCommand cmdNP
- Height = 300
- Index = 1
- Left = 7140
- TabIndex = 6
- Top = 90
- Width = 255
- _Version = 65536
- _ExtentX = 450
- _ExtentY = 529
- _StockProps = 78
- Caption = ">"
- BevelWidth = 1
- Font3D = 3
- RoundedCorners = 0 'False
- Outline = 0 'False
- End
- Begin Threed.SSCommand cmdNP
- Height = 300
- Index = 0
- Left = 6300
- TabIndex = 5
- Top = 90
- Width = 255
- _Version = 65536
- _ExtentX = 450
- _ExtentY = 529
- _StockProps = 78
- Caption = "<"
- BevelWidth = 1
- Font3D = 3
- RoundedCorners = 0 'False
- Outline = 0 'False
- End
- Begin VB.Label Label2
- Caption = "&Select a function"
- Height = 255
- Left = 90
- TabIndex = 4
- Top = 120
- Width = 1275
- End
- Begin Threed.SSCommand SSCommand1
- Default = -1 'True
- Height = 300
- Left = 6615
- TabIndex = 3
- Top = 90
- Width = 465
- _Version = 65536
- _ExtentX = 820
- _ExtentY = 529
- _StockProps = 78
- Caption = "&Go"
- BevelWidth = 1
- RoundedCorners = 0 'False
- Outline = 0 'False
- End
- End
- Attribute VB_Name = "frmCompress"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Option Base 1
- Private Const Iteration = 10
- Dim IsLoaded As Integer
- Dim TimerStartOk As Integer
- Dim TimerCloseOk As Integer
- Dim TimerHandle As Integer
- Dim TimerValue As Long
- Private Sub cmb_Function_Click()
- If (IsLoaded = False) Then Exit Sub
- Call cDisableFI(mdiT2W.Picture1)
- txt_Result = ""
- DoEvents
- Select Case cmb_Function.ListIndex
- Case 0
- Call TestFileCompress
- Case 1
- Call TestStringCompress
- Case 2
- Call TestLZARIcompress
- Case 3
- Call TestGZIPFileCompress
- Case 4
- Call TestGZIPStringCompress
- Case 5
- Call TestASHFileCompress
- End Select
- DoEvents
- Call cEnableFI(mdiT2W.Picture1)
- End Sub
- Private Sub cmdNP_Click(Index As Integer)
- Call sub_NextPrev(cmb_Function, Index)
- End Sub
- Private Sub Form_Activate()
- mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
- End Sub
- Private Sub Form_Load()
- IsLoaded = False
- Show
- Call sub_Load_Combo(cmb_Function, T2WDirInst + "_compres.t2w")
- IsLoaded = True
- End Sub
- Private Sub SSCommand1_Click()
- Call cmb_Function_Click
- End Sub
- Private Sub TestFileCompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim File1 As String
- Dim File2 As String
- Dim File3 As String
- strResult = ""
- strDisplay = ""
- File1 = T2WFileTest
- File2 = "autoexec.compressed"
- File3 = "autoexec.expanded"
- strDisplay = strDisplay & "File Compress '" & File1 & "' to '" & File2 & "' is " & cFileCompress(File1, File2) & vbCrLf
- strDisplay = strDisplay & "File Expand '" & File2 & "' to '" & File3 & "' is " & cFileExpand(File2, File3) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- lngResult = cFileCompress(File1, File2)
- Next i
- lngResult = cFileExpand(File2, File3)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
- Public Sub TestStringCompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim Str1 As String
- Dim Str2 As String
- Dim Str3 As String
- strResult = ""
- strDisplay = ""
- Str1 = "T2WIN-32, t2win-32, T2WIN-32, t2win-32, T2WIN-32, t2win-32"
- Str2 = cStringCompress(Str1)
- Str3 = cStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- Str1 = "t2win-32, t2win-32, t2win-32, t2win-32, t2win-32, t2win-32"
- Str2 = cStringCompress(Str1)
- Str3 = cStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- Str1 = String$(13, "a") + String$(11, "b") + String$(9, "c") + String$(7, "d") + String$(5, "e") + String$(3, "f") + String$(1, "g")
- Str2 = cStringCompress(Str1)
- Str3 = cStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- Str2 = cStringCompress(Str1)
- Next i
- Str3 = cStringExpand(Str2)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
- Private Sub TestLZARIcompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim File1 As String
- Dim File2 As String
- Dim File3 As String
- strResult = ""
- strDisplay = ""
- File1 = T2WFileTest
- File2 = "autoexec.lzaricompressed"
- File3 = "autoexec.lzariexpanded"
- strDisplay = strDisplay & "LZARI Compress '" & File1 & "' to '" & File2 & "' is " & cLZARIcompress(File1, File2) & vbCrLf
- strDisplay = strDisplay & "LZARI Expand '" & File2 & "' to '" & File3 & "' is " & cLZARIexpand(File2, File3) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- lngResult = cLZARIcompress(File1, File2)
- Next i
- lngResult = cLZARIexpand(File2, File3)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
- Private Sub TestGZIPFileCompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim File1 As String
- Dim File2 As String
- Dim File3 As String
- strResult = ""
- strDisplay = ""
- File1 = T2WFileTest
- File2 = "autoexec.gzipcompressed"
- File3 = "autoexec.gzipexpanded"
- strDisplay = strDisplay & "GZIP Compress '" & File1 & "' to '" & File2 & "' is " & cGZIPFileCompress(File1, File2) & vbCrLf
- strDisplay = strDisplay & "GZIP Expand '" & File2 & "' to '" & File3 & "' is " & cGZIPFileExpand(File2, File3) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- lngResult = cGZIPFileCompress(File1, File2)
- Next i
- lngResult = cGZIPFileExpand(File2, File3)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
- Private Sub TestGZIPStringCompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim Str1 As String
- Dim Str2 As String
- Dim Str3 As String
- strResult = ""
- strDisplay = ""
- Str1 = "T2WIN-32, t2win-32, T2WIN-32, t2win-32, T2WIN-32, t2win-32"
- Str2 = cGZIPStringCompress(Str1)
- Str3 = cGZIPStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- Str1 = "t2win-32, t2win-32, t2win-32, t2win-32, t2win-32, t2win-32"
- Str2 = cGZIPStringCompress(Str1)
- Str3 = cGZIPStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- Str1 = String$(13, "a") + String$(11, "b") + String$(9, "c") + String$(7, "d") + String$(5, "e") + String$(3, "f") + String$(1, "g")
- Str2 = cGZIPStringCompress(Str1)
- Str3 = cGZIPStringExpand(Str2)
- strDisplay = strDisplay & "String Compress '" & Str1 & "' is " & Format$(Len(Str1)) & " to " & Format$(Len(Str2)) & " bytes." & vbCrLf
- strDisplay = strDisplay & "String Expand is '" & Str3 & "'" & vbCrLf
- strDisplay = strDisplay & "Compare string contents (not sensitive) is " & IIf(LCase$(Str1) = LCase$(Str3), "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- Str2 = cGZIPStringCompress(Str1)
- Next i
- Str3 = cGZIPStringExpand(Str2)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
- Private Sub TestASHFileCompress()
- Dim lngResult As Long
- Dim strResult As String
- Dim strDisplay As String
- Dim i As Integer
- Dim order As Integer
- Dim File1 As String
- Dim File2 As String
- Dim File3 As String
- strResult = ""
- strDisplay = ""
- File1 = T2WFileTest
- File2 = "autoexec.ashcompressed"
- File3 = "autoexec.ashexpanded"
- order = 0
- strDisplay = strDisplay & "ASH Compress (order " & order & ")' " & File1 & "' to '" & File2 & "' is " & cASHFileCompress(File1, File2, order) & vbCrLf
- strDisplay = strDisplay & "ASH Expand (order " & order & ")' " & File2 & "' to '" & File3 & "' is " & cASHFileExpand(File2, File3, order) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- order = 1
- strDisplay = strDisplay & "ASH Compress (order " & order & ")' " & File1 & "' to '" & File2 & "' is " & cASHFileCompress(File1, File2, order) & vbCrLf
- strDisplay = strDisplay & "ASH Expand (order " & order & ")' " & File2 & "' to '" & File3 & "' is " & cASHFileExpand(File2, File3, order) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- order = 2
- strDisplay = strDisplay & "ASH Compress (order " & order & ")' " & File1 & "' to '" & File2 & "' is " & cASHFileCompress(File1, File2, order) & vbCrLf
- strDisplay = strDisplay & "ASH Expand (order " & order & ")' " & File2 & "' to '" & File3 & "' is " & cASHFileExpand(File2, File3, order) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- order = 3
- strDisplay = strDisplay & "ASH Compress (order " & order & ")' " & File1 & "' to '" & File2 & "' is " & cASHFileCompress(File1, File2, order) & vbCrLf
- strDisplay = strDisplay & "ASH Expand (order " & order & ")' " & File2 & "' to '" & File3 & "' is " & cASHFileExpand(File2, File3, order) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- order = 4
- strDisplay = strDisplay & "ASH Compress (order " & order & ")' " & File1 & "' to '" & File2 & "' is " & cASHFileCompress(File1, File2, order) & vbCrLf
- strDisplay = strDisplay & "ASH Expand (order " & order & ")' " & File2 & "' to '" & File3 & "' is " & cASHFileExpand(File2, File3, order) & vbCrLf
- strDisplay = strDisplay & "Compare File contents (not sensitive) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCrLf & vbCrLf
- txt_Result = strDisplay
- 'time the function
- TimerHandle = cTimerOpen()
- TimerStartOk = cTimerStart(TimerHandle)
- For i = 1 To Iteration
- lngResult = cASHFileCompress(File1, File2, 0)
- Next i
- lngResult = cASHFileExpand(File2, File3, 0)
- mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
- TimerCloseOk = cTimerClose(TimerHandle)
- End Sub
-