ADS function list

[sambomb]

Where can I find a list with ALL functions, parameters and returns of ACE32.LIB/DLL ?

[ukoenig]

Have a look here :

http://help.sap.com/businessobject/prod ... _lr_en.pdf

Best Regards
Uwe :

[sambomb]

UWE thx for reply BUT it is not what I want....
I want ADS function list, that is contained in ACE32.DLL OR ACE32.LIB if already converted.

Sample: ADSEncryptTable(), ADSDecryptTable(), AdsEnableEncryption(), etc...

[kok joek hoa]

Dear Sambomb,

I have sent a list of ADS Function to your email.

regards,

kok

[sambomb]

Thx! I'll take a look and then I post here again...

PS.:
Can anyone do a test and send me a sample of how to correct?
Encrypt a DBF
Open the DBF with DBW or another Database manager, modify the value of a field. (PRODNAME From "&%!%¨@" to "TEST")
Encrypt the DBF again, the modified value should be encrypted again, right? It happen, but ALL OTHER FIELDS IN ALL OTHER RECORDS lose the encryption!

[reinaldocrespo]

Mr. Kok;

Would you please also email the same list to me?

Thank you,


reinaldo dot crespo at gmail dot com.


Reinaldo.

[sambomb]

Forwarded

[reinaldocrespo]

Sambomb;

Got it.

Thank you.


Reinaldo.

[sambomb]

Reinaldo, do you have ADS 9.x ?

[reinaldocrespo]

I work with 8, 9, and 10.


Reinaldo.

[sambomb]

Can you do a test for me?

1- Encrypt a DBF
2- Check the DBF and look if all records are crypted.
3- Open the DBF with DBW.exe, DBU.exe or another DataBase viewer
4- Change the value of one field in a single rec
5- Encrypt the same DBF again
6- Check the DBF and look if all records are crypted.

Litle sample of how to crypt the DBF

Code: Select all  Expand view

Public pDir := "C:\Test\"

****************************************************************************
function OpenDbf(cFile, cIndex, lExclusive, cAlias, lEncrypt)
****************************************************************************
*
*  Abrir arquivos em rede e mante-los criptografados
*  Parametro: cFile, cIndex, lExclusive, cAlias, lEncrypt
*  Retorno: Lógico - sucesso ao abrir
*
****************************************************************************

local Result := .T., cChave := 'P'+'A'+'S'+'S'+'W'+'O'+'R'+'D'+'.'+'A'+'D'+'S'+'1'+'2'+'3'
   
   default lExclusive := .F.
   default lEncrypt   := .T.
   default cIndex := ''

   if ValType(cAlias) != "C"
   
      cFile  := AllTrim(Upper(cFile))
     
      if Right(cFile,4) == ".DBF" .or. Right(cFile,4) == ".ADS"
         cAlias := Substr( cFile, 1, Len(cFile) -4 )
      else
         cAlias := cFile
      end
   
   end
   
   select 0

   if lEncrypt
      Try
         dbUseArea(.T., "ADS" , pDir + cFile, cAlias, .not. lExclusive)
      catch
         Return .F.
      end
   else
      Try
         dbUseArea(.T.,"DBFCDX",pDir + cFile, cAlias, .not. lExclusive)
      catch
         Return .F.
      end
   end

   if .not. empty(cIndex) .and. file(pDir + cIndex)
      set index to (pDir + cIndex)
      dbsetorder(1)
   end
   
   if lEncrypt
      AdsEnableEncryption(cChave)
   end
   
   Result := .T.
   
return Result

/*------------------------------------------------------------------------*/
Function Test()

   If !OpenDbf("C:\Test\MyDBF.DBF", ,.T. , , .T.)
      MsgInfo("Erro ao abrir a tabela")
      Return .F.
   end

   If ADSEncryptTable() != 0

      AdsShowError("Erro ao criptografar a tabela")

   else

      MsgInfo("Tabela criptografada")

   end

Return nil

[ukservice]

I am also interested in ADS functions.

Thank you very much.

My email is ukservice.software@gmail.com

Regards,

[Gale FORd]

Gosh, I would love a copy also.
Gale.Ford@wwrowland.com

Thanks

[sambomb]

Forwarded.

[TimStone]

Same for me ... but I'd like it for the Harbour compiler.

Thanks.

Tim
"timstone@masterlinksoftware.com"