home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / TinyServer253258252001.psc / ServerModule.bas < prev    next >
Encoding:
BASIC Source File  |  2001-07-03  |  2.2 KB  |  68 lines
  1. Attribute VB_Name = "Module1"
  2. Public wwwRoot As String
  3. Public DefaultPage As String
  4. Public PortNum As Integer
  5.  
  6. Public Declare Function GetPrivateProfileInt Lib "kernel32" _
  7.     Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
  8.     ByVal lpKeyName As String, ByVal nDefault As Long, _
  9.     ByVal lpFileName As String) As Long
  10.  
  11. Public Declare Function GetPrivateProfileString Lib "kernel32" _
  12.     Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
  13.     ByVal lpKeyName As String, ByVal lpDefault As String, _
  14.     ByVal lpReturnedString As String, ByVal nSize As Long, _
  15.     ByVal lpFileName As String) As Long
  16.  
  17. Public Declare Function WritePrivateProfileString Lib "kernel32" _
  18.     Alias "WritePrivateProfileStringA" _
  19.     (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  20.     ByVal lpString As String, ByVal lpFileName As String) As Long
  21.  
  22.  
  23. Public Declare Function GetCurrentDirectory Lib "kernel32" _
  24.         Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, _
  25.         ByVal lpBuffer As String) As Long
  26.  
  27.  
  28. ' Constants with OpenFile API call.
  29. Private Const OF_READ = &H0
  30.  
  31. ' Structure filled in by OpenFile API call.
  32. Private Type OFSTRUCT
  33.         cBytes As Byte
  34.         fFixedDisk As Byte
  35.         nErrCode As Integer
  36.         Reserved1 As Integer
  37.         Reserved2 As Integer
  38.         szPathName(128) As Byte
  39. End Type
  40.  
  41. ' declarations for the API functions that this class uses.
  42. Private Declare Function OpenFile Lib "kernel32" _
  43.     (ByVal lpFileName As String, _
  44.      lpReOpenBuff As OFSTRUCT, _
  45.      ByVal wStyle As Long) As Long
  46.  
  47. Private Declare Function hread Lib "kernel32" Alias "_hread" _
  48.     (ByVal hFile As Long, lpBuffer As Any, ByVal lBytes As Long) As Long
  49.  
  50. Private Declare Function lclose Lib "kernel32" Alias "_lclose" _
  51.     (ByVal hFile As Long) As Long
  52.  
  53.  
  54.  
  55. Public Function readFile(sFile As String) As String
  56.     Dim hInp As Long
  57.     Dim size As Long
  58.     Dim inpOFS As OFSTRUCT
  59.     
  60.     size = FileLen(sFile)
  61.     hInp = OpenFile(sFile, inpOFS, OF_READ)
  62.     If (hInp <> -1) Then
  63.         readFile = String(size, "*")
  64.         hread hInp, ByVal readFile, size
  65.     End If
  66.     lclose hInp
  67. End Function
  68.