' PowerBasic for Windows

 

' © 2005, Alexander Asyabrik aka Shura

 

#Compile Dll

#Include "WIN32API.INC"

 

%ft_nomorefields = 0

%ft_numeric_32 = 1

%ft_numeric_64 = 2

%ft_numeric_floating = 3

%ft_date = 4

%ft_time = 5

%ft_boolean = 6

%ft_multiplechoice = 7

%ft_string = 8

%ft_fulltext = 9

%ft_datetime = 10

%ft_stringw = 11

%ft_fulltextw = 12

 

' >> for ContentGetValue

%ft_nosuchfield = -1    'error, invalid field number given

%ft_fileerror = -2      'file i/o error

%ft_fieldempty = -3     'field valid, but Empty

%ft_ondemand = -4       'field will be retrieved only when User presses <SPACEBAR>

%ft_delayed = 0         'field takes a Long time To extract -> Try again In background

' >> for ContentFindValue:

%ft_found = 1           'value was found

%ft_notfound = -8       'value was NOT found

 

%CONTENT_DELAYIFSLOW=1   'ContentGetValue called in foreground

 

 

Type TimeFormat

    wHour As Word

    wMinute As Word

    wSecond As Word

End Type

 

Type DateFormat

    wYear As Word

    wMonth As Word

    wDay As Word

End Type

 

%MaxStr=2048 ' Maximum length of your string data, can be smaller

 

Union uFieldValue

  fvNumeric_32  As Long                ' ft_numeric_32

  fvNumeric_64 As Quad                 ' ft_numeric_64

  fvNumeric_floating As Double         ' ft_numeric_floating

  fvDate As DateFormat                 ' ft_date

  fvTime As TimeFormat                 ' ft_time

  fvBoolean As Long                    ' ft_boolean

  fvMultiplechoice As Asciiz * %MaxStr ' ft_multiplechoice

  fvString As Asciiz * %MaxStr         ' ft_string

  fvFulltext As Asciiz * %MaxStr       ' ft_fulltext

  fvDatetime As FILETIME               ' ft_datetime

End Union

 

Type ContentDefaultParamStruct

   iSize As Long

   PluginInterfaceVersionLow As Dword

   PluginInterfaceVersionHi As Dword

   DefaultIniName As Asciiz * %MAX_PATH

End Type

 

 

Function ContentGetSupportedField Alias _

   "ContentGetSupportedField"  (ByVal FieldIndex As Long, _

   FieldName As Asciiz, sUnits As Asciiz, _

   ByVal maxlen As Long) Export As Long

 

 

Function ContentGetValue Alias  "ContentGetValue"  ( _

   FileName As Asciiz, ByVal FieldIndex As Long, _

   ByVal UnitIndex As Long, FieldValue As uFieldValue, _

   ByVal maxlen As Long, ByVal flags As Long) Export As Long

 

 

         ' Some samples for FieldValue :

 

         'FieldValue.fvString = "Some String"

 

         'FieldValue.fvTime.wHour   = 10

         'FieldValue.fvTime.wMinute = 30

         'FieldValue.fvTime.wSecond = 15

 

         'FieldValue.fvMultiplechoice = "male|female|n/a"

 

         ' etc

 

Sub ContentGetDetectString Alias  "ContentGetDetectString" ( _

   DetectString As Asciiz, ByVal maxlen As Long) Export

 

 

Sub ContentSetDefaultParams Alias  "ContentSetDefaultParams" ( _

   dps As ContentDefaultParamStruct) Export

 

 

Sub ContentStopGetValue Alias  "ContentStopGetValue" ( _

   FileName As Asciiz) Export

 

 

Function ContentGetDefaultSortOrder Alias _

   "ContentGetDefaultSortOrder"  ( _

   ByVal FieldIndex As Long) Export As Long

 

 

Sub ContentPluginUnloading Alias  "ContentPluginUnloading" () Export

 

 

'-------------------------------------------------------------------------------

' Main DLL entry point called by Windows...

 

Function LibMain(ByVal hInstance As Long, _

   ByVal fwdReason As Long, ByVal lpvReserved As Long) As Long

 

   Function = 1

 

End Function

 

 

'-------------------------------------------------------------------------------