Uso de DLL

[alugotrujillo]

Estoy trabajando con DLL, hasta ahora lo he hecho por medio del metodo "facil"
procedure MostrarDatosEstrato(BaseDatos: String; Rodal: Integer); stdcall;external 'estrato.dll';
Pero ahora quiero pasar el metodo que usa windows con sus dll, me han dicho eso, mediante esta via

Código Delphi [-]
procedure MostrarNomenclador(BD: String; QueNomenclador{, Selecc}: Integer; Modificar: Boolean);
  type
    TNomenclador = function(BaseDatos: String; QueTabla{, Busqueda}: Integer; PermModif: Boolean): String;
  var
    Nomenclador: TNomenclador;
    DLLInstance: THandle;
  begin
    if (BD = '') OR (not FileExists(BD))
    then  MessageDlg('Debe establecer una base de datos', mtError, [mbOK], 0)
    else
    begin
      CoInitialize(NIL);
      DLLInstance:= LoadLibrary('nomencladores.dll');
      if DLLInstance = 0 then
      begin
        MessageDlg('No se ha encontrado la DLL "nomencladores.dll"', mtError, [mbOK], 0);
        Exit;
      end;
      @Nomenclador:= GetProcAddress(DLLInstance,'MostrarNomenclador');
      if @Nomenclador <> nil
      then Nomenclador(BD,QueNomenclador,{Selecc,}Modificar)
      else MessageDlg('Función no encontrada "MostrarNomenclador"', mtError, [mbOK], 0);
      FreeLibrary(DLLInstance);
    end;
  end;

funciona muy bien cuando es un procedimineto, pero como puedo modificarlo para cuando en la DLL se encuentra una funcion y necesito saber el resultado

[roman]

Hola, bienvenido al Club.

He agregado las etiquetas [delphi] a tu mensaje para que el código quede más presentable. Te recomiendo que entres a Editar el mensaje (botón en la parte derecha inferior del mensaje) para que veas cómo se usan las etiquetas.

En cuanto a tu pregunta, creo, en principio, que no deberías tener problema para acceder al valor de la función como a cualquier otra, excepto porque los tipo de datos que usas; en lugar de string sería más conveniente que usaras pchar.

// Saludos

[droguerman]

Puedes habilitar la depuración en la DLL para ello activa en las opciones del proyecto Remote Debug Symbols y haz correr la Dll con un ejecutable vía el menú Run -> Parameters del IDE de delphi