nasledjivanje iz COM objekata

nasledjivanje iz COM objekata 09.11.2009. u 13:48 · pre 206 meseci #1

Zdravo

Imam neku komponentu koja je nastala iz TOleControl objekta
E sad, fora je u tome što mi imamo na 3 mesta istu, kilometarsku, funkcionalnost
Rešenje je naravno da se sve to smesti u naš objekat koji je izveden iz tog TOleControl objekta

I sve je to lepo zamisljeno samo prilikom zamene deklaracije, Delphi ne dozvoljava da
koristimo našu klasu kao definisani tip. Moje pitanje je :
jel to COM sistem ne dozvoljava i ima li nekog rešenja za to ?

Re: nasledjivanje iz COM objekata 09.11.2009. u 15:37 · pre 206 meseci #2

> I sve je to lepo zamisljeno samo prilikom zamene deklaracije, Delphi ne dozvoljava da
> koristimo našu klasu kao definisani tip. Moje pitanje je :
> jel to COM sistem ne dozvoljava i ima li nekog rešenja za to ?

Možeš li dati neki primer, ne pratim najbolje...

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: nasledjivanje iz COM objekata 09.11.2009. u 16:17 · pre 206 meseci #3

Microsoft OWC kontrola,
posle instalacije u Delphi na paleti se pokaze komponenta: TPivotTable
(u design time-u se postavlja na formu)

E sad, zbog naših potreba , od te klase napravio sam našu klasu:

Code:

TTestPivotTable=class(TPivotTable)
sa nekim metodama i funkcijama
end;

problem je kad na formi koja već sadrži TPivotTable pokušam ručno
promeniti deklaraciju (component replace) na TTestPivotTable,
ne dozvoljava mi iako je u uses listi, javi wrong type i traži popravku deklaracije

P.S.
TPivotTable je izvedena od TOleControl

Re: nasledjivanje iz COM objekata 09.11.2009. u 22:56 · pre 206 meseci #4

> problem je kad na formi koja već sadrži TPivotTable pokušam ručno
> promeniti deklaraciju (component replace) na TTestPivotTable,
> ne dozvoljava mi iako je u uses listi, javi wrong type i traži popravku deklaracije

Da li menjaš i u .dfm fajlu? GHExperts ima replace component expert. Pokušaj i da instaliraš svoju komponentu u IDE i da nju odmah staviš na formu.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: nasledjivanje iz COM objekata 09.11.2009. u 23:03 · pre 206 meseci #5

Citat:

Da li menjaš i u .dfm fajlu? GHExperts ima replace component expert. Pokušaj i da instaliraš svoju komponentu u IDE i da nju odmah staviš na formu.

svuda, probao sam i GExperts, isto

Re: nasledjivanje iz COM objekata 12.11.2009. u 23:01 · pre 206 meseci #6

Pozdrav, druze!

Da li si pokusao da registrujes tu novu klasu kao komponentu? Ako jos nisi, pokusaj samo sa

Code:
RegisterClass(TTestPivotTable); // ovo je doduse iz "starog" Delphi-ja

Udeni ovo negde u kodu, recimo u initialization delu unit-a u kojem je i deklaracija tvoje klase. Ako ovo ne prodje (Delphi ne prihvati), nemoj se muciti ni sa komponentom; nece raditi.

Pozz

Rajko

Re: nasledjivanje iz COM objekata 13.11.2009. u 11:38 · pre 206 meseci #7

jesam i opet neće
ideja je bila da kod napravimo malo lepšim i više koristnim ali Delphi ili COM sistem ne dozvoljava

tako da ćemo drugačije organizovati kod

hvala za pomoć

Re: nasledjivanje iz COM objekata 13.11.2009. u 11:51 · pre 206 meseci #8

> jesam i opet neće
> ideja je bila da kod napravimo malo lepšim i više koristnim ali Delphi ili COM sistem ne dozvoljava

Imaš li možda neki primer toga, voleo bih da to vidim. BTW da li si pokušao sa class helperom (za Delphi >= 2006)?

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: nasledjivanje iz COM objekata 13.11.2009. u 12:52 · pre 206 meseci #9

primer čega ?

Re: nasledjivanje iz COM objekata 13.11.2009. u 13:31 · pre 206 meseci #10

Primer je (već) stavljen uz poruku:

Citat:

priki:

Code:

TTestPivotTable=class(TPivotTable)
sa nekim metodama i funkcijama
end;

TTestPivotTable je komponenta. U naslovu teme piše Com objekat ali u svemu ostalom u tekstu govori da se traži smeštanje nove komponente na formu. To bi onda moralo da može da se pročita u tutorial-u na ES-u:

Tutorijal...

Ovaj link sam pronašao pretragom za: RegisterComponents

Pretpostavljam da u tom tutorilaju piše sve što nije jasno od detalja. Da bi preskočio par iteracija oko toga da li se traži ili ne ovo što sam napisao konkretno:

Napravio ovako komponentu, probao i radi (umesto "OWC11_TLB" i "Toma" treba staviti šta više odgovara, a za neki detalj pogledati gore navedeni tutorijal):

Code:

unit TTestPivotTableJ;

interface

uses
  Windows, SysUtils, Classes, Controls, OleCtrls, OWC11_TLB, ActiveX, Forms, ComObj;

type
  TTestPivotTable = class;

  TTestPivotTable = class(TPivotTable)
  private
  protected
  public
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
  published
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Toma', [TTestPivotTable]);
end;

{TTestPivotTable}

constructor TTestPivotTable.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
end;

destructor TTestPivotTable.Destroy;
begin
  inherited;
end;

end.

Da dodam da je ovo primer, to znači da je na brzinu pravljen i da možda ima nekog viška ili mu nešto manjka ali se na formu stavlja bez problema. Inače sam ovako dograđivao TWebBrowser komponentu sa dodatkom uključivanja ili isključivanja ActiveX, java skripta ili učitavnja slikica iz samog programa... radi (godinama :)) bez problema...

Re: nasledjivanje iz COM objekata 13.11.2009. u 15:41 · pre 206 meseci #11

reseno je na drugi nacin
probacu i ovo pa cemo videti

hvala

Forum kao aplikacija na telefonu

Srodne teme