Thema: Delphi TDCOMConnection

Einzelnen Beitrag anzeigen

day

Registriert seit: 10. Mai 2004
223 Beiträge
 
#4

Re: TDCOMConnection

  Alt 4. Sep 2004, 13:04
Hallo

Ich folgende Klasse ist eine ableitung einer TDCOMConnection. Jetzt möchte ich gerne einen neuen konstruktor schreiben. Wie kann ich von meinem Konstruktor den der Vaterklasse aufrufen? (In java geht es mit super(..) )?

und meine zweite frage wäre wie kann ich methoden überlagern? würde gerne die Methode AfterConnection() überlagern und die gegebenen funktion erweitern.

Code:
type
  TConnection = class(TDCOMConnection)
  private
    mIPAdress      : String;
    mServerName    : String;

  public
    constructor create(IPAdress , ServerName : String);
    procedure AfterConnect( );
  end;

implementation

   constructor TConnection.create(IPAdress , ServerName : String);
   var temp : String;
   begin

     mIPAdress  := IPAdress;
     mServerName := ServerName;

     try
        //self.Create(nil);//????? geht nicht so habe es auch schon mit inherited probiert

       self.Connected   := False;
       self.LoginPrompt := False;

       self.ComputerName := mIPAdress;
       self.ServerName  := mServerName;
       self.Connected := True;

     except
       On E:Exception do
  ....

     end;
   end;
  Mit Zitat antworten Zitat