Cita:
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;
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.