Hi Michael,
I see 12110 is applied now, super :)
I am trying to improve on the fcl-web and the next step would be to fix
the apache module related things. However, there is a problem I could
use some help with.
It seems that when the apache module (TCustomApacheApplication) tries to
create an instance of the TFPWebModule when a web request comes in, it
just crashes:
To my best knowledge this happens in (fpapache.pp)
TCustomApacheApplication.HandleRequest at line
M:=MC.Create(Self);
MC and M are declared
MC : TCustomHTTPModuleClass;
M : TCustomHTTPModule;
I believe I've tracked the problem to (rtl/objpas/classes/dm.inc)
Constructor TDataModule.Create(AOwner: TComponent);
begin
CreateNew(AOwner);
if (ClassType <> TDataModule) and
not (csDesigning in ComponentState) then
begin
if not InitInheritedComponent(Self, TDataModule) then
raise EStreamError.CreateFmt(SErrNoSTreaming, [ClassName]);
if OldCreateOrder then
DoCreate;
end;
end;
The raise always seems to be happening when anything other than a
TDataModule class is created (including TDataModule descendants).
I've tried with all the TDataModule descendants in fcl-web up till
TFPWebModule:
TFPWebModule -> TCustomFPWebModule -> TSessionHTTPModule ->
TCustomHTTPModule -> TDataModule
All of them generate this exception, except TDataModule (of course,
because the exception raising code is not even running then).
My knowledge proved insufficient to solve this so I ask if you guys can
come up with something.
This exception problem exists even if I just create a normal application
and do a
var M : TCustomHTTPModule;
begin
M:=TCustomHTTPModule.Create(Form1{Self});//<- crashing here
M.Free;
end;
for any TDataModule descendant in the above object chain.
"Failed to initialize component: No streaming method available."
exception is always triggered.
Thanks for any help
AB
Michael Van Canneyt wrote:
On Thu, 11 Sep 2008, ABorka wrote:
Somebody (user name kc87654321) pooped into 12110 thinking that he/she is
posting a new report.
But in fact uploaded some files to an already existing bug report with a note.
http://bugs.freepascal.org/view.php?id=12110
By the way, will these changes (12110) be added to FCL-web?
Yes, please give me some time to review them :-)
Michael.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
