TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[Neftali [Germán.Estévez]]

Empezado por tejano

yo creo que sí me serviría una DLL.
Podrías enviármela o decirme dónde puedo conseguirla?

Conseguirla, no lo se, se puede hacer.
En delphi es bastante sencillo.

Te adjunto la DLL con 2 funciones (con parámetros diferentes, para que uses el que te vaya mejor):

Código Delphi [-]
// utilizando un string
function crc8S(const AText:string):byte;
// utilizando un Puntero (AnsiChar)
function crc8P(const AText:PAnsiString):byte;

Usa el código que pubicó [keys] en este mismo foro.

Para usarlo, por ejemplo desde Delphi, basta con algo así:

Código Delphi [-]
type
  TfunctionCRC8S = function(const AText:string): byte;
  TfunctionCRC8P = function(const AText:PAnsiChar): byte;

var
  str, fName:String;
  b:byte;
  h:cardinal;
  fs:TfunctionCRC8S;
  fp:TfunctionCRC8P;
begin

  // Nombre
  fName := ExtractFilePath(Application.ExeName) + 'crc8.dll';
  // comprobamos si existe, si no existe ya no continuamos
  if not FileExists(fName) then
    raise Exception.Create('No se encuentra la DLL  en: ' + sLineBreak + fName);
  // Cargar la DLL
  h := LoadLibrary(PChar(fName));
  if (h < 32) then
    raise Exception.Create('No se ha podido cargar la DLL');

  // buscar los métodos dentro de la DLL
  fs := GetProcAddress(h, 'crc8S');
  fp := GetProcAddress(h, 'crc8P');
  // Los ha encontrado
  if Assigned(fs) and Assigned(fp) then begin

    WriteLn('Escribir cadena de entrada o vacío para salir: ');
    ReadLn(Str);
    while (Str <> string.empty) do begin

      // Probarlo con parámetro string
      b := fs(Str);
      WriteLn('Cadena de entrada: ' + str);
      writeLn('Salida (string): ' + string.Format('%.3d',[b]));
      writeLn('-------------------------------');

      // Parámetro AnsiChar
      b := fp(PAnsiChar(Str));
      WriteLn('Cadena de entrada: ' + str);
      writeLn('Salida (PAnsiChar): ' + string.Format('%.3d',[b]));
      writeLn('-------------------------------');
      writeln(' ');

      // vuelta a empezar...
      WriteLn('Escribir cadena de entrada o vacío para salir: ');
      readLn(Str);
    end;
  end;
end.

Te adjunto el proyecto de test de la DDL (incluye el compilado para que puedas usarla directamente).
Así puedes ver cómo son las llamadas.

El funcionamiento sería este; Lo he probado con las siguientes cadena que han ido saliendo en el foro:

TBAI-00000006Y-251019-btFpwP8dcLGAF-
237

https://batuz.eus/QRTBAI/?id=TBAI-00...f=27174&i=4.70
007

https://tbai.prep.gipuzkoa.eus/qr/?i...000115&i=-5.44
012

https://batuz.eus/QRTBAI/?id=TBAI-79...00020&i=382.67
189

https://batuz.eus/QRTBAI/?id=TBAI-79...0021&i=1209.10
121

TBAI-B09203993-200421-aZqWxK/x6JS3U-
042

NOTA: Si probáis las URL's anteriores, coged el link no el texto en pantalla porque vBulletin lo corta.

Y para comprobar, tal y como han dicho, la web que mejor funciona es esta:
https://toolslick.com/programming/ha...crc-calculator

[Neftali [Germán.Estévez]]

Me acabo de dar cuenta que en el ejemplo, la carga de la DLL la he hecho de forma dinámica.
Es la costumbre...
Será más corto y sencillo (luego lo pongo) si la linkas estáticamente, la defines como externa y de esa forma la puedes usar directamente (sin necesidad de cargar la DLL y buscar las funciones...).

[tejano]

Muchas gracias Neftali ����

[Neftali [Germán.Estévez]]

Empezado por Neftali [Germán.Estévez]

Será más corto y sencillo (luego lo pongo) si la linkas estáticamente, la defines como externa y de esa forma la puedes usar directamente (sin necesidad de cargar la DLL y buscar las funciones...).

Con una aplicación de consola como esta funciona perfectamente.

Código Delphi [-]
program testDLL;

{$APPTYPE CONSOLE}

{$R *.res}


uses
  ShareMem,
  System.SysUtils;

// Definición
function crc8S(const AText:string):byte; stdcall; external 'crc8.dll' name 'crc8S';

var
  b:byte;
  str:String;
begin
  WriteLn('Escribir cadena de entrada o vacío para salir: ');
  ReadLn(Str);
  b := crc8S(Str);
  WriteLn('Cadena de entrada: ' + str);
  writeLn('Salida (string): ' + string.Format('%.3d',[b]));
end.