DLL c# consumir em xharbour

[jair]

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  Expand view  RUN

    {$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.

[hmpaquito]

viewtopic.php?f=3&t=32961

[jair]

Necesito convertir este codigo delphi a xharbour, alguien podría darme una fuerza.

[Antonio Linares]

Necesitas el código fuente de TCertfly para poder portar ese código en Delphi

Este ejemplo puede servirte, sin necesidad de usar el código en Delphi:
viewtopic.php?f=3&t=35023