Convertir aplicación en dll

[Neftali [Germán.Estévez]]

Empezado por jars

...pero no logro hacer que funcione desde una aplicación que la carga en forma dnámica.

El problema es que, eso es muy poca información para saber qué puede estar pasando.
¿Algún error? ¿Qué tipo de error?
¿Cómo estás intentando cargar tu aplicación (DLL)?
¿Has ejecutado paso a paso?
¿En qué momento falla o hace lo que no debe?
...

[jars]

Hola Neftali.
La dll lacargo asi:

Código Delphi [-]
H := LoadLibrary('D:\Dev\Delphi\Special_Projects\TmApp.DLL');

Pero luego de eso no se que debo hacer.
Quisiera que el form principal de la dll se ubique en el panel de la aplicación que la invoca.
Me falta algun ejemplo de como hacerlo.

[Ñuño Martínez]

Depende de la aplicación que la invoca. Supongo que habrá algún manual que diga cómo deben ser las DLL que usa.

[jars]

No, la aplicación la estoy empezando a desarrollar yo.

[jars]

Pregunto, tengo que exportar el FormCreate de la dll???

[Ñuño Martínez]

Tienes que definir el API tú mismo: Qué funciones y procedimientos publicar, qué pretende hacer con cada uno, etc.

Como te veo muy perdido, deberías empezar leyendo la documentación acerca de cómo crear una DLL y utilizarla.

[Neftali [Germán.Estévez]]

Si no lo has hecho ya, échale un vistazo a esta entrada en mi blog.

Ahí se explican varias opciones, entre ellas, la que tú estás intentando aplicar a tu aplicación. en tu caso, la que está etiquetada como:
"EXE + DLL con Carga dinámica(El EXE puede ser con o sin BWRP)"

Al final tienes los ejemplos con código fuente para que puedas probar.

el que se aplica en tu caso, sería algo así:

Código Delphi [-]
  // Cargar la DLL
  H := LoadLibrary('SUMAS.DLL');
  // Cargada correctamente?
  if (H >= 32) then begin
    MessageDlg('Cargada la DLL...', mtInformation, [mbOK], 0);
    sum := nil;
    @sum := GetProcAddress(H, 'Sumar2');
    // Asignada?
    if Assigned(sum) then begin
      MessageDlg('Acceso a la función SUMAR', mtInformation, [mbOK], 0);
      // llamada
      res := Sum(4,5);
      MessageDlg(Format('Resultado:  %d+%d=%d',[4,5,res]), mtInformation, [mbOK], 0);
      FreeLibrary(H);
    end;
    else begin
      MessageDlg('Error, no se ha encontrado el método SUMAS2', mtError, [mbOk], 0) 
    end;
  end
  else
    MessageDlg('Error, no se ha encontrado SUMAR.DLL', mtError, [mbOk], 0)
 end.

Las definiciones serían estas:

Código Delphi [-]
var
  H: Thandle;
  res:integer;
  Sum: function(x,y:Integer):integer; stdcall;

En este caso la DLL SUMAS.DLL sería la que tú estás programando y el método Sumar2, el equivalente al que deberías programar tú para que se muestre el formulario que quieres.

[Neftali [Germán.Estévez]]

Al final de esa entrada, tienes algunos links a otras, sobre cómo trabajar con plugins.