coloco la fuente
procedure TForm1.Button31Click(Sender: TObject);
var va1,va3,va4,va5,TOTA:EXTENDED;
VAR I,D1,NUMF:INTEGER;
va2,campo:string;
DllHandle: THandle;
bret:boolean;
begin
DllHandle := LoadLibrary('.\fpctrl.dll');
if DllHandle <> 0 then showmessage('hola DLL'); // hasta aqui abre el Dll
bret:=openfpctrl(com1);
if bret then showmessage('hola '); // solo para ver si funciona
mi coterraneo amigo le envio este pedaso de codigo pa'que me eche on ojo aver si puede jallar el problema, yo no lo jallo.
desde carabobo pujante estado industrial un muy cordial saludo
|