OFF-TOPIC: Como Ler e Alterar valores do darumaframework.XML

[Daruma Developer]

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. Alteração: Veremos agora como fazer a alteração de uma chave no XML com a função regAlterarValor_Daruma: Parâmetros: 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!