POINT Software Programming/PPROG1.ISO/pascal/cx201/vbcxf.frm

Visual Basic Form | 1994-03-01 | 7.4 KB | 254 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "CXF"
   Height          =   5445
   Left            =   1065
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5040
   ScaleWidth      =   5055
   Top             =   1140
   Width           =   5175
   Begin TextBox dtext
      Height          =   285
      Left            =   2160
      TabIndex        =   2
      Text            =   "c:\test2.cxf"
      Top             =   960
      Width           =   2535
   End
   Begin TextBox ctext
      Height          =   285
      Left            =   2160
      TabIndex        =   1
      Text            =   "c:\test1.cxf"
      Top             =   600
      Width           =   2535
   End
   Begin TextBox itext
      Height          =   285
      Left            =   2160
      TabIndex        =   0
      Top             =   240
      Width           =   2535
   End
   Begin CommandButton decompress
      Caption         =   "decompress"
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   2160
      Width           =   1935
   End
   Begin Frame method
      Caption         =   "Compression"
      Height          =   2175
      Left            =   2760
      TabIndex        =   6
      Top             =   1440
      Width           =   1935
      Begin OptionButton methodd
         Caption         =   "CX_METHODD"
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   1800
         Width           =   1695
      End
      Begin OptionButton methodc
         Caption         =   "CX_METHODC"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   1440
         Width           =   1695
      End
      Begin OptionButton method3
         Caption         =   "CX_METHOD3"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   1080
         Width           =   1695
      End
      Begin OptionButton method2
         Caption         =   "CX_METHOD2"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   720
         Width           =   1695
      End
      Begin OptionButton method1
         Caption         =   "CX_METHOD1"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Value           =   -1  'True
         Width           =   1695
      End
   End
   Begin Timer ptimer
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   2280
      Top             =   2760
   End
   Begin CommandButton Cancel
      Caption         =   "Cancel"
      Enabled         =   0   'False
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   2880
      Width           =   1935
   End
   Begin CommandButton Compress
      Caption         =   "Compress"
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   1440
      Width           =   1935
   End
   Begin Label notice
      Caption         =   "The evaluation object code runs MUCH slower than the object code that may be purchased.  Use TEST.EXE for EXACT size and speed measurements."
      Height          =   615
      Left            =   240
      TabIndex        =   17
      Top             =   4320
      Width           =   4575
   End
   Begin Label dlabel
      Caption         =   "Decompressed File:"
      Height          =   255
      Left            =   360
      TabIndex        =   16
      Top             =   960
      Width           =   1815
   End
   Begin Label olabel
      Caption         =   "Compressed File:"
      Height          =   255
      Left            =   360
      TabIndex        =   15
      Top             =   600
      Width           =   1575
   End
   Begin Label ilabel
      Caption         =   "Input File:"
      Height          =   255
      Left            =   360
      TabIndex        =   14
      Top             =   240
      Width           =   975
   End
   Begin Label size
      Height          =   255
      Left            =   360
      TabIndex        =   13
      Top             =   3840
      Width           =   2055
   End
   Begin Label progress
      Height          =   255
      Left            =   2760
      TabIndex        =   7
      Top             =   3840
      Width           =   2055
   End
Dim continue As Integer
Dim bytes As Long
Dim start As Single
Sub Cancel_Click ()
    continue = False
End Sub
Sub Compress_Click ()
    Dim method As Integer
    Dim i As Integer
    If method1.Value Then method = CX_METHOD1
    If method2.Value Then method = CX_METHOD2
    If method3.Value Then method = CX_METHOD3
    If methodc.Value Then method = CX_METHODC
    If methodd.Value Then method = CX_METHODD
    src$ = itext.Text
    dst$ = ctext.Text
    start_progress
    i = cx_compress_file(dst$, src$, method, CX_MAX_BUFFER, CX_C_MAXTEMP, continue, bytes)
    stop_progress
    If Not continue Then
        MsgBox "Canceled by operator", MB_ICONOK, "CXF"
    Else
        If i = 0 Then
            size.Caption = diffstr(filelength(dst$), filelength(src$))
            MsgBox "File Compressed", MB_ICONOK, "CXF"
        Else
            s$ = cx_error_message(itol(i))
            MsgBox s$, MB_ICONOK, "CXF ERROR"
        End If
    End If
End Sub
Sub decompress_Click ()
    Dim i As Integer
    src$ = ctext.Text
    dst$ = dtext.Text
    start_progress
    i = cx_decompress_file(dst$, src$, continue, bytes)
    stop_progress
    If Not continue Then
        MsgBox "Canceled by operator", MB_ICONOK, "CXF"
    Else
        If i = 0 Then
            size.Caption = diffstr(filelength(dst$), filelength(src$))
            MsgBox "File Decompressed", MB_ICONOK, "CXF"
        Else
            s$ = cx_error_message(itol(i))
            MsgBox s$, MB_ICONOK, "CXF ERROR"
        End If
    End If
End Sub
Function diffstr (a As Long, b As Long) As String
    diffstr = Format(a / b, "###0.00") + " of input"
End Function
Function filelength (s As String) As Long
    Dim h As Integer
    Dim l As Long
    h = binio_open(s, BINIO_OPEN_READ)
    If h = -1 Then
        filelength = -1
    Else
        l = binio_length(h)
        If l = -1 Then filelength = -1 Else filelength = l
        k% = binio_close(h)
    End If
End Function
Sub ptimer_Timer ()
    Dim t As Single
    t = Timer - start
    If t = 0# Then
        progress.Caption = "0 K/sec"
    Else
        progress.Caption = Format$(bytes / (t * 1024), "###0.00") + " K/sec"
    End If
End Sub
Sub start_progress ()
    compress.Enabled = False
    decompress.Enabled = False
    cancel.Enabled = True
    size.Caption = ""
    progress.Caption = ""
    continue = True
    bytes = 0
    start = Timer
    ptimer.Enabled = True
End Sub
Sub stop_progress ()
    compress.Enabled = True
    decompress.Enabled = True
    cancel.Enabled = False
    ptimer.Enabled = False
    ptimer_Timer
End Sub