type
TConsultarVersionDll = function ( descripcion : PChar; descripcion_largo_maximo: LongInt; var mayor : LongInt; var menor : LongInt) : LongInt; StdCall;
var
dll : THandle;
error : LongInt;
str : Array[0..100] of Char;
mayor : LongInt;
menor : LongInt;
ConsultarVersionDll: TConsultarVersionDll;
begin
dll := 0;
dll := LoadLibrary('EpsonFiscalInterface.dll');
if dll = 0 then
begin
ShowMessage('Error al instanciar DLL');
Exit;
end;
@ConsultarVersionDll := GetProcAddress(dll, 'ConsultarVersionDll');
if not Assigned(ConsultarVersionDll) then
begin
ShowMessage('Error al asignar funcion: ConsultarVersionDll');
Exit;
end;
mayor := 0;
menor := 0;
str := StringOfChar (' ', 100);
error := ConsultarVersionDll( str, 100, mayor, menor );
ShowMessage( str );
ShowMessage( IntToStr(mayor) );
ShowMessage( IntToStr(menor) );
ShowMessage( IntToStr(error) );
FreeLibrary(dll);
end;