Newsgroups : Borland : borland.public.delphi.internet.winsock : 2006 Jan : TIdCmdTCPServer -- Problem with Inheritance: "Cannot assign a TIdCommandHandler

www.cryer.info
Managed Newsgroup Archive

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     }

Replies:

www.cryer.info
Managed Newsgroup Archive