[fpc-devel] Bug report 12110 needs a cleanup in the bug tracker system?

[ABorka]

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 at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>