Olá pessoal,
Hoje iremos ver como ler e fazer alterações de valores do XML darumaframework.

Leitura:
 Para obtermos valores do XML utilizaremos a função regRetornaValorChave_DarumaFramework.

Este método retorna o valor de uma chave do registry/XML.

Parâmetros

Produto : Nome do produto.
Chave : Nome da Chave
Valor : Variável String por referência com 100 espaços alocados para que possa retornar na variável o valor da Chave que você deseja.

C#:

[DllImport("DarumaFrameWork.dll")]

        public static extern int regRetornaValorChave_DarumaFramework(string sProduto, string sChave, [MarshalAs(UnmanagedType.VBByRefStr)] ref string szRetorno);


private void métodoRegRetornaValorECFDarumaToolStripMenuItem_Click(object sender, EventArgs e)

        {

     string Str_Valor = new string(' ', 30);

DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.regRetornaValorChave_DarumaFramework("ECF", "Auditoria", ref Str_Valor);

          

        }

DELPHI

function regRetornaValorChave_Daruma(pszProduto:string; 
  pszChave:string; pszValor:string):Integer; StdCall; External 'DarumaFramework.dll';


Str_Valor := StringOFChar(#0,100);

Int_Retorno := regRetornaValorChave_DarumaFramework(‘ECF’, ‘Auditoria’, Str_Valor);

VB:

Declare Function regRetornaValorChave_DarumaFramework Lib "DarumaFramework.dll" 
    (ByVal sProduto As String, sChave As String, ByVal sValor As String) As Integer

Private Sub regRetornaValorChave_DarumaFramework_Click()

Dim Str_Valor As String

Str_Valor = Space(100)
 iRetorno = regRetornaValorChave_DarumaFramework("ECF", "Auditoria", Str_Valor)

          MsgBox ("Valor da Chave = " + Str_Valor) 
End Sub


Nos exemplos acima capturamos o valor da chave “Auditoria”, que se refere ao log das execuções da darumaframework.dll.

Veremos agora como fazer a alteração de uma chave no XML com a função regAlterarValor_Daruma:

 

Parametros:

Chave : Produto e Chave a serem modificados (Ex.: ECF/Auditoria).
Valor : Novo valor da para a Chave


C#

[DllImport("DarumaFrameWork.dll")]

        public static extern int regAlterarValor_Daruma(string pszChave, string pszValor);

 

private void métodoRegAlterarValorECFDaruma_Click(object sender, EventArgs e)

        { 

DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.regAlterarValor_Daruma("ECF/Auditoria", "1");

 

}

DELPHI:

function regAlterarValor_Daruma(pszPathChave:string,pszValor:string):Integer; 
StdCall; External 'DarumaFramework.dll'; 

Int_Retorno:=regAlterarValor_Daruma('ECF\Auditoria','1');



VB:

Public Declare Function regAlterarValor_Daruma Lib "DarumaFramework.dll" (ByVal sProduto_Chave As String, ByVal sValor As String) As Integer

Private Sub regAlterarValor_ECF_Daruma_Click(Index As Integer) 

         iRetorno = regAlterarValor_Daruma("ECF\Auditoria", "1")

     

End Sub



Ai vai a dica para Leitura, e Alteração do Darumaframework.XML!

Duvidas estamos à disposição!

Social Daruma Developer Network | Integração e Desenvolvimento - Daruma Developers Community | Integração com a Comunidade de Desenvolvedores | Daruma nas Redes Sociais |
Twitter: @darumadeveloper | Facebook: http://www.facebook.com/pages/Daruma-Developer/199210316809400 | LinkedIn: http://linkd.in/oNXnN4 | Nosso Site: www.desenvolvedoresdaruma.com.br  | Channel9: http://www.youtube.com/darumadeveloper