|
Ok,muchas gracias por vuestro tiempo. En principio me ha servido de ayuda. Pero una cosa sigo sin tener clara,a ver os cuento..
Lo que aparece en mi unidad 1(UNIT 1) es:
INTERFACE
.
.
VAR
V:boolean;
.
.
IMPLEMENTATION
.
.
END.
Por lo tanto, exporto la variable boolena V.
Ahora al hacer la biblioteca(Lib.dll);
USES
Unit1;
PROCEDURE SetVale(V:boolean);
BEGIN
V:=False;
END;
FUNCTION GetVale:boolean;
BEGIN
GetVale:=V;
END;
EXPORTS SetVale,GetVale;
BEGIN
V:=True;
END;
Bueno esto es lo que contiene mi libreria.
Al hacer la unidad de importacion tengo,
INTERFACE
PROCEDURE SetVale(V);
FUNCTION GetVale:boolean;
IMPLEMENTATION
PROCEDURE SetVale(V);EXTERNAL 'Lib.dll';
FUNCTION GetVale:boolean; EXTERNAL 'Lib.dll';
Bueno hasta aqui todo bien,pero el problema viene cuando quiero acceder a estos subprogramas desde la aplicacion.Lo logico seria llamar a los subprogramas con:
SetVale(V);
V:=GetVale;
pero claro logicamente me dice que v no esta declarada,¿como lo modifico?Muchas gracias por vustro tiempo de verdad.
|