Newsgroups : Borland : borland.public.delphi.internet.winsock : 2006 Jan : TIdCmdTCPServer -- Problem with Inheritance: "Cannot assign a TIdCommandHandler
| Subject: | TIdCmdTCPServer -- Problem with Inheritance: "Cannot assign a TIdCommandHandler |
| Posted by: | "Steve Zimmelman" (skz@charter.nospam.net) |
| Date: | Mon, 9 Jan 2006 10:20:03 |
I need to create a Form with some basic server command functionality and
inherited from it so it can be used as a base-class for new server
applications.
I started such a class, and placed it in the D2006 repository. When I
attempt to create a form and inherit from it, I can't save the newly
inherited/created form.
It raises the exception: "Cannot assign a TIdCommandHandler to a
TIdCommandHandler"
Are the CommandHandlers created so they cannot be inherited? If not, then
it kills the plans I had for this. It doesn't make sense to me to "copy"
code from one project to another.
Is this an Indy problem, or D2006?
Here's the exception detail:
+ $4B[51F3274F]{rtl100.bpl } Classes.Classes.TPersistent.AssignError (Line
3729, "classes.pas" + 4) + $4B
+ $1[51F32785]{rtl100.bpl } Classes.Classes.TPersistent.AssignTo (Line
3734, "classes.pas" + 0) + $1
+ $E[00337F26]{designide100.bpl} Update.Update.TUpdateObject.Update (Line
1126, "Update.pas" + 54) + $E
+ $3[00337EB6]{designide100.bpl} Update.Update.TUpdateObject.Update (Line
1112, "Update.pas" + 40) + $3
+ $9[00337F5B]{designide100.bpl} Update.Update.TUpdateObject.Update (Line
1131, "Update.pas" + 59) + $9
+ $9[00338995]{designide100.bpl} Update.Update.TUpdateManager.Update (Line
1462, "Update.pas" + 22) + $9
+ $8[00359B98]{designide100.bpl}
ComponentDesigner.ComponentDesigner.TComponentRoot.GetRootStream (Line 2719,
"ComponentDesigner.pas" + 11) + $8
+ $14[0035EBB0]{designide100.bpl}
ComponentDesigner.ComponentDesigner.TComponentRoot.Save (Line 4673,
"ComponentDesigner.pas" + 1) + $14
+ $5[20BB2168]{coreide100.bpl}
SourceModule.SourceModule.TCodeISourceModule.SaveFile (Line 1436,
"SourceModule.pas" + 3) + $5
+ $5[20BAFA18]{coreide100.bpl}
SourceModule.SourceModule.TSourceModule.SaveFile (Line 623,
"SourceModule.pas" + 4) + $5
+ $5[20C35EA9]{coreide100.bpl} DocModul.DocModul.TDocModule.Save (Line
1347, "DocModul.pas" + 61) + $5
+ $B[20BB0A0F]{coreide100.bpl} SourceModule.SourceModule.TSourceModule.Save
(Line 948, "SourceModule.pas" + 17) + $B
[004120AE]{bds.exe }
+ $6[5202E4FF]{vcl100.bpl } Menus.Menus.TMenu.IsShortCut (Line 2810,
"Menus.pas" + 14) + $6
[004171A9]{bds.exe }