|
Lo he hecho asi:
library prueba;
{ comentario borrado }
uses
Windows,
SysUtils,
Classes,
Dialogs,
udatos in 'udatos.pas' {Datos: TDataModule};
{$R *.res}
function multiplica(a : integer; b : integer) : integer; stdcall;
begin
multiplica := a * b;
end;
function obtenerNombre(codigo : shortstring) : shortstring; stdcall;
var
temporal : shortstring;
begin
Application.CreateForm(datos, udatos);
datos.consulta.ParamByName('codigo').AsInteger := strtoint(codigo);
datos.consulta.Active := true;
if datos.consulta.RecordCount = 0 then temporal := '-'
else temporal := datos.consulta['pe_apelli'];
datos.consulta.Active := false;
obtenerNombre := temporal;
end;
exports
multiplica, obtenerNombre;
begin
end.
y me da un error en la linea que me has dicho que ponga.
No me funciona.
|