home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
SOFTWARE
/
LIBS
/
VBLZH.ZIP
/
README.TXT
(
.txt
)
< prev
next >
Wrap
Text File
|
1995-08-13
|
11KB
|
271 lines
VBLZH.DLL by Philip Bush - Copyright 1995
File Compression/Decompression, file functions, and disk
space functions for Visual Basic
SHAREWARE FEE $15
Registration Benefits: - Unlimited redistribution rights.
- Receive the latest registered
version by floppy disk.
- Removes shareware notice from
compression/decompression status
window.
Borland Delphi (pascal) VBLZH.DLL source code $99.
Philip Bush
Macware
748 N. Hwy 67, Suite 163
Florissant, MO 63031
check/money order/cash/Visa/Mastercard payments accepted
phone: (314) 838-7620 email: WWHH86A@PRODIGY.COM
INTRODUCTION:
VBLZH.DLL is user-supported software provided to you at no
charge on a trial basis. If you use the software and find
it of value, please send $15.00 for a registered copy and
support the shareware concept. Registered users receive
the most current version on disk, are provided with
information about program updates and are entitled to user
support.
You are encouraged to share this software with others, and/or
to post it to bulletin boards, provided that it is distributed
complete with documentation and in unmodified form and that no
fee or other consideration is charged or accepted.
All commercial, business and government users must register
each developer copy in use. Please contact me for multiple
copy or site license terms.
Registered users may distribute the VBLZH.DLL to an unlimited
number of end users (run-time) along with their compiled
applications. Inquire if you have special needs, I'm sure we
can come to a fair agreement.
The Visual Basic program TEST.EXE (and VB source code:
TEST.MAK, TEST.FRM, VBLZH.BAS) demonstrates the functions
contained in VBLZH.DLL. Feel free to copy and use the source
code in any manner.
NOTES:
I am willing to add functionality to the DLL. Send any your
requests to the address listed at the top or e-mail. Future
ideas could include disk formatting/set date & time stamp/
Win '95 support/?. I'm putting this version out as shareware
to "test the waters". It was originally written by me for a
commercial program. I don't want to invest lots of additional
time in development if the DLL isn't going to be used!
The DLL's size is 196K, in large part because of the
compression/decompression status window. Send a request with
your registration if you want a copy without a status window
(it is approx 25k).
I always like to get replies with or without the registration
fee. Send your suggestions. I also am available for contract
programming (VB & Delphi).
LEGAL & WARRANTIES:
PHILIP BUSH/MACWARE MAKES NO WARRANTIES, EXPRESS OR IMPLIED,
AND SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTIES OF
MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR PURPOSE.
The customer's sole remedies are set forth in the warranty
clause above. Philip Bush/MacWare liability for damages
shall not exceed the current registration fee for the
product. In no event will Philip Bush/MacWare be liable for
any special, incidental or consequential damages even if
Philip Bush/MacWare has been advised of the possibility of
the same.
REFERENCE:
The files included in the VBLZH.DLL package (VBLZH.ZIP):
FILE_ID.DIZ short description
README.TXT this file (long description)
TEST.EXE compiled VB example program
TEST.FRM example program VB source: main form
TEST.MAK example program VB source: project file
VBLZH.BAS example program VB source: basic declarations
VBLZH.DLL the DLL
The information listed below is included in the VBLZH.BAS file.
**SUMMARY**
LZH lzh compression & decompression of files, includes status Window
DelFile% deletes file from a disk
RenFile% renames a file
GetFileSize& file size in bytes
FileExist% does file exist
CopyFile% copies a file
RetrieveFileName$ retrieves the file name from fully or partially qualified path name
RetrieveFilePath$ retrieves the file path from fully or partially qualified path name
FileDate& date of the file named by FName as a LongInt (use CVDATE to evaluate)
FileExtension$ returns a string containing the three-character extension
FSearch$ searches through directories for a particular file name
FAttribDescr$ returns a file attribute description (/ delimited text description)
FAttribVal% returns file attribute value
FileSetAttrib% set a file's attributes
DiskFreeSpace& returns a disk's free space in bytes
DiskSpace& returns disk size in bytes
**DECLARE**
Declare Sub LZH Lib "LZH.DLL" (ByVal fromfile$, ByVal tofile$, ByVal action$, errc&, inf&, otf&)
Declare Function DelFile% Lib "LZH.DLL" (ByVal Fname$)
Declare Function RenFile% Lib "LZH.DLL" (ByVal Old$,ByVal New$)
Declare Function GetFileSize& Lib "LZH.DLL" (ByVal Fname$)
Declare Function FileExist% Lib "LZH.DLL" (ByVal Fname$)
Declare Function CopyFile% Lib "LZH.DLL" (ByVal FromF$, ByVal ToF$)
Declare Function RetrieveFileName$ Lib "LZH.DLL" (ByVal FName$)
Declare Function RetrieveFilePath$ Lib "LZH.DLL" (ByVal FName$)
Declare Function FileDate& Lib "LZH.DLL" (ByVal FName$)
Declare Function FileExtension$ Lib "LZH.DLL" (ByVal FName$)
Declare Function FileSearch$ Lib "LZH.DLL" (ByVal Name$, Byval DirList$)
Declare Function FAttribVal% Lib "LZH.DLL" (ByVal FName$)
Declare Function FAttribDescr$ Lib "LZH.DLL" (ByVal FName$)
Declare Function FileSetAttrib% Lib "LZH.DLL" (ByVal FName$, ByVal attr%)
Declare Function DiskSpace& Lib "LZH.DLL" (ByVal driveltr$)
**INSTRUCTIONS**
*LZH file compression & decompression
usage:
fromfile$ = original file
tofile$ = destination file (caution, will be overwritten!)
action$ = "E" = compresss (encode) "D" = uncompress (decode)
returns:
errc& (error codes):
errc& = -1 no error encountered
errc& = 1 Error reading input file
errc& = 2 Error writing output file
errc& = 3 Error opening input
errc& = 4 Error opening output
errc& = 5 Error: use [D] for Decompression or [E] for Compression
errc& = 6 overflow read error - usually during decode on a non-compressed file
errc& = 7 overflow write error - usually during decode on a non-compressed file
errc& = 8 Error getting filesize
inf& = original file size in bytes
otf& = destination file size in bytes
Declare Sub LZH Lib "VBLZH.DLL" (ByVal fromfile$, ByVal tofile$, ByVal action$, errc&, inf&, otf&)
*Delete File
-1 = successful, 0 = failed (file cannot be deleted or does not exist)
Declare Function DelFile% Lib "VBLZH.DLL" (ByVal Fname$)
*RenFile function attempts to change the name of the file specified by Old to New
-1 = successful, false = failed (will not rename if new already exists)
Declare Function RenFile% Lib "VBLZH.DLL" (ByVal OldF$,ByVal NewF$)
*GetFileSize function returns the file size in bytes
HFILE_ERROR or -1 = failed, >= 0 file size in bytes
Declare Function GetFileSize& Lib "VBLZH.DLL" (ByVal Fname$)
*FileExist function tests if a file exists
-1 = file exists, 0 = file doesn't exist
Declare Function FileExist% Lib "VBLZH.DLL" (ByVal Fname$)
*CopyFile function copies the FromFile to the ToFile
-1 = successful, 0 = file copy failed
Declare Function CopyFile% Lib "VBLZH.DLL" (ByVal FromF$, ByVal ToF$)
*RetrieveFileName takes a fully or partially qualified path name in FName and returns
a string containing only the file name part, including the name and extension.
Declare Function RetrieveFileName$ Lib "VBLZH.DLL" (ByVal FName$)
*RetrieveFilePath takes a fully or partially qualified path name in FName and returns
a string containing only the path part (drive letter and directories).
Declare Function RetrieveFilePath$ Lib "VBLZH.DLL" (ByVal FName$)
*FileDate function returns the date of the file named by FName as a LongInt.
Use the VB function CVDATE to evaluate. Ex: Dt$=CVDATE(FileDate&("C:\AUTOEXEC.