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!
