home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / wvhtm064.zip / notes / summaryinfo / CPPSUMW.TXT < prev    next >
Text File  |  2000-09-02  |  2KB  |  63 lines
  1. '---------------------------------------------------------------------------
  2. ' WordBasic interface definitions for CPPSUM.DLL
  3. ' DLL functions to get summary info from OLE 2.0 document files.
  4. '
  5. '     Copyright ⌐ 1994-1995 Somar Software, All Rights Reserved
  6. '     Send problem reports and comments to 72202.2574@compuserve.com
  7. '     Visit the Somar Software WWW site at http://www.somar.com
  8. '
  9. ' Example of usage:
  10. '     PID_TITLE = 2
  11. '     wInitStatus = SumInfoInit
  12. '     If wInitStatus <> 0 Then
  13. '        hSumInfo = SumInfoOpenFile(".. put your file name here ..")
  14. '        If hSumInfo <> 0 Then    
  15. '        s$ = String$(256, "*")
  16. '              nResult = SumInfoGetString(hSumInfo, PID_TITLE, s$, 256)
  17. '           SumInfoCloseFile(hSumInfo)
  18. '        End If
  19. '           SumInfoUninit(wInitStatus)
  20. '     EndIf
  21. '
  22. ' Reasons for failure:
  23. '     SumInfoInit:     out of memory
  24. '     SumInfoOpenFile: out of memory
  25. '                      file not found
  26. '                      file is not an OLE 2.0 structured storage file
  27. '                      file does not contain OLE 2.0 summary info
  28. '                      OLE 2.0 summary info is incorrectly formatted
  29. '     SumInfoGet...  : specified property type is not available
  30. '     
  31. ' See CPPSUM.CPP for change log
  32. '---------------------------------------------------------------------------
  33. PID_TITLE          = 2
  34. PID_SUBJECT        = 3
  35. PID_AUTHOR         = 4
  36. PID_KEYWORDS       = 5
  37. PID_COMMENTS       = 6
  38. PID_TEMPLATE       = 7
  39. PID_LASTAUTHOR     = 8
  40. PID_REVNUMBER      = 9
  41. PID_APPNAME        = 18
  42.  
  43.     ' 16 bit DLL
  44. Declare Function SumInfoInit Lib "CPPSUM.DLL"() As Integer
  45. Declare Function SumInfoOpenFile Lib "CPPSUM.DLL" \
  46.     (szPath As String) As Integer
  47. Declare Function SumInfoGetString Lib "CPPSUM.DLL" \
  48.     (hSumInfo As Integer, pid As Long, \
  49.      lpBuf As String,  cbBuf As Integer) As Integer
  50. Declare Sub SumInfoCloseFile Lib "CPPSUM.DLL"(hSumInfo As Integer)
  51. Declare Sub SumInfoUninit Lib "CPPSUM.DLL"(wInitStatus As Integer)
  52.  
  53.     ' 32 bit DLL
  54. Declare Function SumInfoInit Lib "CPPSUM32.DLL"() As Integer
  55. Declare Function SumInfoOpenFile Lib "CPPSUM32.DLL" \
  56.     (szPath As String) As Long
  57. Declare Function SumInfoGetString Lib "CPPSUM32.DLL" \
  58.     (hSumInfo As Long, pid As Long, \
  59.      lpBuf As String,  cbBuf As Integer) As Integer
  60. Declare Sub SumInfoCloseFile Lib "CPPSUM32.DLL"(hSumInfo As Long)
  61. Declare Sub SumInfoUninit Lib "CPPSUM32.DLL"(wInitStatus As Integer)
  62.  
  63.