xsharp.eu

Code: Select all

FUNCTION _DictOpen(pszDictName AS PSZ,nShare AS LONG,nRO AS LONG) AS LONG PASCAL
   LOCAL cFile,cAlias AS STRING
   LOCAL strRDDList AS _RDDLIST
   LOCAL nRet := 0 AS LONG

   SetAnsi(FALSE)
   SetCollation(#CLIPPER)
   SetDateCountry(XSharp.Core.Functions.BRITISH)
   SetCentury(TRUE)
   cFile := Psz2String(pszDictName) + ".DBZ"
   cAlias := "__" + Str(100000 + VODBSetSelect(0),6,0)

      strRDDList := GetRDDList()
      IF VODBUseArea(TRUE, strRDDlist, cFile, cAlias, (nShare == 1), (nRO == 1)) .and. !NetErr()
         nRet := (cAlias)->(VODBGetSelect())
      ENDIF
RETURN nRet

INTERNAL FUNCTION GetRDDList() AS _RDDLIST
    Local X_RDDMAIN := #DBFNTX 
   LOCAL strRDDList AS _RDDLIST
   LOCAL DIM aRDDNames2[2] AS STRING
   LOCAL DIM aRDDNames3[3] AS STRING
   LOCAL dwRDDs AS DWORD

   aRDDNames2[1] := "CAVODBF"
   aRDDNames2[2] := X_RDDMAIN
   strRDDList := _RDDList{aRDDNames2}

RETURN strRDDList