topic-22027

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

ADS function list
Posted: Thu Jul 28, 2011 07:16 PM

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

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: ADS function list
Posted: Thu Jul 28, 2011 09:22 PM

Have a look here :

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

Best Regards
Uwe : :lol:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: ADS function list
Posted: Fri Jul 29, 2011 11:43 AM

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...

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

kok joek hoa

Posts: 117

Joined: Tue Jan 03, 2006 06:18 PM

Re: ADS function list
Posted: Sat Jul 30, 2011 03:46 AM

Dear Sambomb,

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

regards,

kok

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: ADS function list
Posted: Mon Aug 01, 2011 01:13 PM

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!

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Re: ADS function list
Posted: Wed Aug 03, 2011 03:46 PM

Mr. Kok;

Would you please also email the same list to me?

Thank you,

reinaldo dot crespo at gmail dot com.

Reinaldo.

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: ADS function list
Posted: Wed Aug 03, 2011 04:49 PM

Forwarded

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Re: ADS function list
Posted: Wed Aug 03, 2011 04:56 PM

Sambomb;

Got it.

Thank you.

Reinaldo.

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: ADS function list
Posted: Wed Aug 03, 2011 05:23 PM

Reinaldo, do you have ADS 9.x ?

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

reinaldocrespo

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Re: ADS function list
Posted: Wed Aug 03, 2011 05:38 PM

I work with 8, 9, and 10.

Reinaldo.

sambomb

Posts: 389

Joined: Mon Oct 13, 2008 11:26 AM

Re: ADS function list
Posted: Wed Aug 03, 2011 06:23 PM

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 (fw): Select all Collapse

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

Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2

ukservice

Posts: 417