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 IntegerPrivate
        
Sub regRetornaValorChave_DarumaFramework_Click()Dim Str_Valor As StringStr_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.


Alteração:

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!