DLL c# consumir em xharbour
Posted: Mon Dec 18, 2017 11:09 am
Esta función fue escrita en cSharp y, tiene el objetivo de firmar el xml con certificado digital tipo A3, mi idea y hacer la misma funcionalidad también para los certificados A1 y poder utilizar en el harbour y en el xharbour, la parte más difícil sería posibilitar la DLL se utiliza en cualquier lenguaje de programación y el DLL ya está con esta aplicación, ahora tengo un ejemplo de consumir es DLL en Delphi y me gustaría hacer esto también en xHarbour, cuento con el apoyo de los amigos.
Code: Select all
{$R *.dfm}
uses StrUtils, Certfly;
procedure TForm2.Button1Click(Sender: TObject);
var
Ret: Integer;
function ExtraiURI(const AXML: String): String;
var
I, J: integer;
begin
Result := '';
I := PosEx('Id=', AXML, 6);
if I = 0 then
I := PosEx('id=', AXML, 6);
if I = 0 then // XML não tem URI
exit ;
I := PosEx('"', AXML, I + 2);
J := PosEx('"', AXML, I + 1);
Result := copy(AXML, I + 1, J - I - 1);
end;
var
URI: string;
Xml: TStringList;
begin
Xml := TStringList.Create;
try
xml.LoadFromFile('C:\xml\R1000_N.xml');
URI := ExtraiURI(xml.Text)
finally
Xml.Free
end;
* Faz a assinatura do xml
Ret := TCertfly.Assinar('C:\xml\R1000_N.xml', 'C:\xml\R1000_ASS.xml', 'MinhaTag','0', '1ce63d4dcefb45e9', '1234');
if Ret = 0 then
ShowMessage('Sucesso')
else
ShowMessage('False');
end;
end.