Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Delphi para la web
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Colaboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 25-06-2024
Avatar de TrUnkS
TrUnkS TrUnkS is offline
Miembro
 
Registrado: dic 2005
Posts: 96
Poder: 21
TrUnkS Va por buen camino
Smile

Estimados, Quizás le pueda servir a alguien. Lo pude solucionar considerando que Delphi crea instancias de los módulos de datos en tiempo de diseño en el archivo del proyecto(dpr):

Código Delphi [-]
library Project1;

uses
  Winapi.ActiveX,
  System.Win.ComObj,
  Web.WebBroker,
  Web.Win.ISAPIApp,
  Web.Win.ISAPIThreadPool,
  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule},
  DataModule1Unit1 in 'DataModule1Unit1.pas' {DataModule1: TDataModule};

{$R *.res}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.WebModuleClass := WebModuleClass;
  Application.CreateForm(TDataModule1, DataModule1); // <--- instancia del módulo de datos
  Application.Run;
end.

Como había creado y liberado los módulos de datos dentro de las Actions del WebModule no supuse que habría problema por ese motivo, pero no consideré eliminar las instancias creadas por Delphi en el archivo de proyecto.

Código Delphi [-]
library Project1;

uses
  Winapi.ActiveX,
  System.Win.ComObj,
  Web.WebBroker,
  Web.Win.ISAPIApp,
  Web.Win.ISAPIThreadPool,
  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule},
  DataModule1Unit1 in 'DataModule1Unit1.pas' {DataModule1: TDataModule};

{$R *.res}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.WebModuleClass := WebModuleClass;
  //Application.CreateForm(TDataModule1, DataModule1); 
  Application.Run;
end.
Código Delphi [-]
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 DataModule1 := TDataModule1.Create(nil);
 try
  DataModule1.FDConnection1.Connected := True;
  Response.Content :=
    '' +
    'Web Server Application (datamodule in runtime)' +
    'Web Server Application (datamodule in runtime)' +
    '';
 finally
  DataModule1.Free;
 end;
end;

Última edición por TrUnkS fecha: 25-06-2024 a las 00:34:44.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
cargar valor en texto edit cuando se inicie el formulario raulmm26 Varios 2 01-07-2008 08:20:39
Error añ cargar un Datamodule con ADO poliburro Conexión con bases de datos 0 02-03-2005 22:55:36
Cargar DataModule en tiempo de ejecucion luigidean Varios 3 08-10-2004 00:30:34
Como cargar los forms solo cuando los necesite? TURING Varios 2 21-08-2004 19:39:43
Error a cargar DLL ISAPI anitra_cattivo Internet 1 02-10-2003 21:16:18


La franja horaria es GMT +2. Ahora son las 15:42:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi