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

[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.