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 dachave “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.regAlterar
Valor_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!