Olá pessoal, variável o valor da Chave que você deseja. 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: das execuções da darumaframework.dll. Parametros: DELPHI:
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
C#:
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);
}
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
Alteração:
Veremos agora como fazer a alteração de uma chave no XML com a função regAlterarValor_Daruma:
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");
}
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!