Form en DLL

[CSIE]

Hola,

Si quieres poder pasar parámetros a tu función en la DLL de tipo string, debes incluir ShareMem en el uses:

library CLDRes;  
uses   
ShareMem,
SysUtils,   
Classes,   
bsSkinData,   
Forms,   
Controls,   
uPassOk in 'FORM\uPassOk.pas' {wPassOk};  
{$R *.res}  
function ConfirmPass(S: string; H: THandle): Boolean; stdcall; 
begin     
Application.Handle := H;     
with TwPassOk.Create(Application) do     

   ....

end;

¿Qué hace exactamente el Form TwPassOk?, porque no termino de entender esto

  try       
    ShowModal;       
    if ModalResult = mrOk then         
      if S = '' then  Result := False 
      else           
        if S <> pePass.Text then 
         Result := False 
        else             
         Result := True       
       else         
        Result := False;     
  finally       
    Free;
  end;

[Jose Roman]

Gracias por responderme,

El formulario principal es donde se puede ingresar, modificar o eliminar los usuarios que van a utilizar el programa, si se va a ingresar un nuevo usuario o cambiar la CONTRASEÑA al momento de oprimir el boton POST aparecera una ventana (que esta en la DLL TwPassOk) donde solicita que se ingrese de nuevo la CONTRASEÑA, si esto es igual al campo CONTRASEÑA del formulario principal graba el nuevo usuario o la modificacion de la contraseña, en caso contrario aparece un mensaje donde me informa que las contraseñas no coinciden.

Ahora intento enviar el ModalResult del TwPassOk a una variable Pass de tipo Boolean:

Código Delphi [-]
library CLDRes;

uses
  SysUtils,
  Classes,
  bsSkinData,
  Forms,
  Controls,
  uPassOk in 'FORM\uPassOk.pas' {wPassOk};

{$R *.res}

var
  Pass : Boolean;

procedure DisplayModalForm(AHandle: THandle; S: String); stdcall;
  begin
     Application.Handle := AHandle;
     with TwPassOk.Create(Application) do
     try
       ShowModal;
       if ModalResult = mrOk then
         if S <> pePass.Text then
           Pass := False
         else
           Pass := True
       else
         Pass := False;
     finally
       Free;
     end;
  end;

  exports
    DisplayModalForm, Pass;
begin
end.

Todo funciona, la ventana me abre en ShowModal, pero no se como leer el valor asignado a esta variable (lo ensayo por ahora en un ShowMessage), me lanza un error (aqui muestro lo escrito en el formulario principal):

Código Delphi [-]

procedure TwMain.ClickStateChange(Sender: TObject);
var
  DllHandle : THandle;
     DlgForm: procedure (H : THandle; S: string);stdcall;
       Passw: Boolean;
begin
  with wDataModule do
    if dsUser.State = dsInsert then
      if (Sender as TbsSkinButton).Name = 'btAdmPost' then
      begin
        try
           DllHandle := LoadLibrary('CLDRes.dll');             
          @DlgForm := GetProcAddress(DllHandle,'DisplayModalForm');
            @Passw := GetProcAddress(DllHandle,'Pass');
          DlgForm(Application.Handle, dsUserPASS.AsString);
          ShowMessage(BoolToStr(Passw));          
        finally
          FreeLibrary(DllHandle);
        end;      
end;

Gracias de antemano tu ayuda, si me puedes explicar como utilizar el ShareMem o si se puede solucionar algo en este codigo fuente, me disculpas por tanta molestia pero no soy muy experto en esto.

[CSIE]

Algo asi debería funcionarte (no lo he probado )

Código Delphi [-]
library CLDRes;

uses
  ShareMem, //Importante
  SysUtils,
  Classes,
  bsSkinData,
  Forms,
  Controls,
  uPassOk in 'FORM\uPassOk.pas' {wPassOk};

{$R *.res}


function DisplayModalForm(AHandle: THandle; S: String): Boolean; stdcall;
begin
     result := False;
     Application.Handle := AHandle;
     with TwPassOk.Create(Application) do
     try
       if ShowModal = mrOk then
         result := S = pePass.Text; 
     finally
       Free;
     end;
end;

  exports
    DisplayModalForm;
begin
end.

Código Delphi [-]
procedure TwMain.ClickStateChange(Sender: TObject);
const
  DLLNAME = 'CLDRes.dll';
var
  Passw: Boolean;
  DllHandle : THandle;
  DlgForm: procedure (H : THandle; S: string); stdcall;
begin
  with wDataModule do
    if dsUser.State = dsInsert then
      if (Sender as TbsSkinButton).Name = 'btAdmPost' then
      begin
        try
          DllHandle := LoadLibrary(DLLNAME);             
          if DllHandle <>0 then
          begin
             DlgForm := GetProcAddress(DllHandle,'DisplayModalForm');
             Passw := DlgForm(Application.Handle, dsUserPASS.AsString);
             ShowMessage(BoolToStr(Passw));
          end
          else
            ShowMessage(Format('Error al cargar %s',[DLLNAME]));          
        finally
          FreeLibrary(DllHandle);
        end;      
      end;
end;

[Jose Roman]

Gracias a ustedes me funciono, me faltaba poco pero sin sus ayudas no hubiera sido posible...
desde Colombia un saludo

[Jose Roman]

escafandra te pregunto, lo hice tal cual como me mandaste el ejemplo, pero en que momento se libera la memoria o la Dll, como se hace con FreeLibrary(DllHandle);

[[escafandra]]

En el caso del ejemplo no se debe liberar explícitamente la dll, se realiza automáticamente al terminar el programa. FreeLibrary se usa cuando conoces el HMODULE de la dll que cargaste con LoadLibrary, y no es obligatorio liberarla.

Verás, existen dos formas básicas de que un proceso cargue una dll:
- Una estática automática que la realiza el S.O. al cargar el ejecutable. En la cabecera PE del ejecutable existe una lista de las funciones que se importan denominada IAT (tabla de importación de direcciones).
- Otra dinámica en tiempo de ejecución con LoadLibrary y GetProcAddress. En este caso no estás obligado a liberar la dll, se libera al cerrar la aplicación.

Cada proceso sólo carga una copia de la dll aunque se llame mas de una vez a LoadLibrary. Se tiene in contador interno que aumenta con cada llamada a LoadLibrary y decrece con FreeLibrary. Una dll se libera cuando el contador es cero.

Siempre es posible forzar la liberación de una dll con FreeLibrary pues podemos conocer le HMODULE con GetModuleHandle pero en el caso de una dll cargada estáticamente y que no conocemos, su descarga puede hacer caer al programa con mucha probabilidad.



Saludos.

[Jose Roman]

Me resulto un error curioso...
Como el la DLL tengo una serie de errores los cuales voy numerando:
Funcion dentro de la DLL:

Código Delphi [-]
function Mensajes ( I : Integer ) : string; stdcall;
  var
    S : string;
  begin
    case I of
      1000 : S := 'No se puede eliminar un USUARIO con registros';
      1001 : S := '¿Desea eliminar este USUARIO?';
      1002 : S := 'Verifique que los datos sean correctos, una vez agregado solo se podra'+#13+'modificar TIPO, ESTADO y CONTRASEÑA. ¿Desea continuar con este proceso?';
      1003 : S := 'Usted no esta autorizado para cambiar esta CONTRASEÑA';
      1004 : S := 'Usted no esta autorizado para ELIMINAR un USUARIO';
      1005 : S := 'Usted no esta autorizado para AGREGAR un USUARIO';
      1006 : S := 'Campo USUARIO se encuentra vacio';
      1007 : S := 'Campo NOMBRE se encuentra vacio';
      1008 : S := 'Campo CONTRASEÑA se encuentra vacio';
      1009 : S := 'Las CONTRASEÑAS no coinciden';
      1010 : S := 'Debe elegir el TIPO de USUARIO';
      1011 : S := 'Debe elegir el ESTADO del USUARIO';
    end;
    Result := S;
  end;

Al momento de comprobar el campo CONTRASEÑA y deliberadamente hago que no concidan las contraseñas me lanza sin ningun problema el error 1009, pero si vuelvo hacer que no coincidan me aparece un error:
Access violation at address 2115448E in module 'borlndmm.dll'. Write of address 216635C
Revisando paso a paso este error se lanza cuando debe aparecer de nuevo la ventana para confirmar la contraseña la cual esta en la DLL, cabe notar que si hago que concidan las contraseñas la ventana me aparece en mas de una ocasion sin inconvenientes, solo es cuando no coinciden. Que podria ser??

Código Delphi [-]
{ Este como codigo es el que me indicaste para la ventana en la DLL }
function PassModal(AHandle: THandle; S: String): Boolean; stdcall;
  begin
     Result := False;
     Application.Handle := AHandle;
     with TwPassOk.Create(Application) do  // en la segunda instancia de la ventana aqui da error
     try
       if ShowModal = mrOk then
         Result := S = pePass.Text;
     finally
       Free;
     end;
  end;

La parte donde la llama en el formulario principal es:

Código Delphi [-]
procedure TwMain.ClickStateChange(Sender: TObject);
const
  MiDll = 'CLDRes.dll';
var
  DllHandle : THandle;
       Error: function (I: Integer): string; stdcall;
     DlgForm: function (H : THandle; S: string): Boolean; stdcall;
       Passw: Boolean;
begin
...
@Error := GetProcAddress(DllHandle,'Mensajes');
@DlgForm := GetProcAddress(DllHandle,'PassModal');
...
if dsUser.State = dsInsert then
  if (Sender as TbsSkinButton).Name = 'btAdmPost' then
  begin
    if not dsUserPASS.IsNull then
    begin
      Passw   := DlgForm(Application.Handle, dsUserPASS.AsString);
      if not Passw then MessageDlg(Error(1009),mtError,[mbOK],0);
    end
  end;

[[escafandra]]

Código Delphi [-]
Application.Handle := AHandle; /// ???????????

Saludos.

[[escafandra]]

Mira estos cambios:

Código Delphi [-]
library CLDRes;

uses
  SysUtils,
  Classes,
  Forms,
  Controls,
  Unit2 in 'Unit2.pas' {wPassOk};

{$R *.res}
function ConfirmPass(S: string): Boolean; stdcall;
begin
  result := False;
  with TwPassOk.Create(Application) do
  begin
    ShowModal;
    if ModalResult = mrOk then
      if S = Edit1.Text then Result := true;
    Free;
  end;
end;
exports  ConfirmPass;
begin
end.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ConfirmPass(Edit1.Text) then
    ShowMessage('Si') else ShowMessage('no');
end;

A falta de tu proyecto he hecho un ejemplo que optimiza el llamamiento a la dll y evita la asignación innecesaria del Handle de la aplicación.

Subo el proyecto de ejemplo.


Saludos.