home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / imglib.ba_ / imglib.ba
Text File  |  1995-10-21  |  6KB  |  66 lines
  1. Attribute VB_Name = "IMGLIB1"
  2. 'ImageLib DLL 3.0 (c) 1995
  3. 'by SkyLine Tools
  4.  
  5. 'SkyLine Tools
  6. '11956 Riverside Drive 206
  7. 'North Hollywood CA 91607
  8. 'Order Line 'U.S. (800) 404-3832
  9. 'International    (818) 766-3900
  10. 'Tecnical Support (818) 766-3900
  11. 'Fax              (818) 766-9027
  12. 'Technical support for VB C, C++, Kevin Adams:  (CIS) 74742,1444
  13. 'Technical support for Delphi and VB Jan Dekkers (CIS) 72131,313
  14.  
  15. 'Technical support for VB C, C++, Kevin Adams:  74742.1444@CompuServe.Com
  16. 'Technical support for Delphi and VB Jan Dekkers 72131,313@CompuServe.Com
  17.  
  18. 'IMGLIB.BAS
  19.  
  20. 'VB Demo Coded by Justin Griep
  21.  
  22. 'This Visual Basic code and module may used, rewritten, and
  23. 'distributed freely.  The code is "AS IS" there is no
  24. 'warranty or guarantee on it's use.
  25.  
  26. 'Please refer to the VBIMGLIB.TXT documentation for
  27. 'instruction on the use of this module.
  28.  
  29. 'Read / write JPEG.
  30. Declare Function readjpgfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal iscale As Integer, ByVal dither As Integer, ByVal password As Integer, hddb As Integer, hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  31. Declare Function rdjpgfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal iscale As Integer, ByVal dither As Integer, ByVal password As Integer, hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  32. Declare Function writejpegfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal quality As Integer, ByVal smooth As Integer, ByVal password As Integer, ByVal hddb As Integer, ByVal hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  33. Declare Function wrjpegfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal quality As Integer, ByVal smooth As Integer, ByVal password As Integer, ByVal hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  34.  
  35. 'Read / write GIF.
  36. Declare Function readgiffile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hddb As Integer, hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  37. Declare Function rdgiffiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  38. Declare Function writegiffile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hddb As Integer, ByVal hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  39. Declare Function wrgiffiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  40.  
  41. 'Read / write PCX.
  42. Declare Function readpcxfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hddb As Integer, hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  43. Declare Function rdpcxfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  44. Declare Function writepcxfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hddb As Integer, ByVal hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  45. Declare Function wrpcxfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  46.  
  47. 'Read / write BMP.
  48. Declare Function readbmpfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hddb As Integer, hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  49. Declare Function rdbmpfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  50. Declare Function writebmpfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hddb As Integer, ByVal hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  51. Declare Function wrbmpfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal password As Integer, ByVal hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  52.  
  53. 'Read / write PNG.
  54. Declare Function readpngfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hddb As Integer, hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  55. Declare Function rdpngfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal dither As Integer, ByVal password As Integer, hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  56. Declare Function writepngfile Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal interlaced As Integer, ByVal password As Integer, ByVal hddb As Integer, ByVal hpal As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  57. Declare Function wrpngfiledib Lib "IMGLIB30.DLL" (ByVal Filename As String, ByVal resolution As Integer, ByVal interlaced As Integer, ByVal password As Integer, ByVal hdib As Integer, ByVal pf As Long, ByVal errormode As Integer) As Integer
  58.  
  59.  
  60. 'API
  61. Declare Function OpenClipboard Lib "User" (ByVal hWnd As Integer) As Integer
  62. Declare Function SetClipboardData Lib "User" (ByVal wFormat As Integer, ByVal hMem As Integer) As Integer
  63. Declare Function GetClipboardData Lib "User" (ByVal wFormat As Integer) As Integer
  64. Declare Function CloseClipboard Lib "User" () As Integer
  65.  
  66.