Puntero de diferentes clases

[roman]

No exactamente. Como lo propones tendrías que estar verificando cuál usar en cada método de TSuperPdf.

Lo que te propone juanmdq (excelente idea por cierto), es más del estilo:

Código Delphi [-]
type
  TSuperPdf = class
  end;

  TPdf60 = class(TSuperPdf)
  private
    Pdf: TPdf;
  end;

  TPdf70 = class(TSuperPdf)
  private
    Pdf: TAcroPdf;
  end;

La clase TSuperPdf sólo definiría los métodos comunes o similares pero no los implementa (virtual; abstract)

Las clases TPdf60 y TPdf70 redefinen esos métodos y los implementan usando los métodos de su respectiva componente privada Pdf.

Al comienzo de la aplicación determinas qué instancia construir y la colocas en una variable de tipo TSuperPdf:

Código Delphi [-]
if Version6 then
  SuperPdf := TPdf60.Create
else if Version7 then
  SuperPdf := TPdf70.Create
else
  raise Exception.Create('Versión no soportada');

Así, además, estarás listo para cuando salga la versión 8: sólo tendrásque crear la correspondiente claseTPdf80 descendiente de TSuperPdf y el resto del código en tu aplicación no cambiará.

// Saludos

[chavetaz]

cree esta unit a ver que les parece:

Código Delphi [-]
unit SuperPDF; 
interface

uses
    PdfLib_TLB, AcroPDFLib_TLB;

type
    TSuperPDF = class
    public
        function LoadFile(const fileName: WideString): WordBool;virtual; abstract;
    published
        property  Visible;virtual; abstract;
    end;

    TPdf60 = class(TSuperPDF)
    private
        Pdf: TPdf;
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    end;

    TPdf70 = class(TSuperPDF)
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    private
        Pdf: TAcroPdf;
    end;

implementation
function TPdf60.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
function TPdf70.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
end.

no puse en la implementacion las properties pero tengo que implementar las correspondientes read y write.
como lo ven????

Otra cosa, en la definicion de TPdf encontre:

 TPdf = class(TOleControl)

y en TAcroPdf:

 TAcroPDF = class(TOleControl)

Podria llegar a usar TOleControl como padre?

SaLuDoS

[roman]

Empezado por chavetaz

Podria llegar a usar TOleControl como padre?

No. Porque TOleControl es demasiado general. No tiene los métodos que requieres. Podrías usarlo para instanciar tus clases:

Código Delphi [-]
var
  SuperPdf: TOleControl;

...

if Version6 then
  SuperPdf := TPdf.Create
else
  SuperPdf := TAcroPdf.Create;

pero para usar SuperPdf vuelves a requerir del moldeo en cada caso:

SuperPdf as TPdf

o

SuperPdf as TAcroPdf

// Saludos

[[Lepe]]

Esta es una pregunta personal, pero creo que viene muy bien al caso, por eso la añado a este hilo.

Si la version 7 implementa una nueva propiedad o método,¿ donde se crearía esa propiedad?

- Si la implemento en TSuperPDF, tendría que proporcionar mensajes de error en todas las versiones excepto en la 7.0
- Si la implemento en TPDF70, tendría que hacer un cast para poder acceder ¿no?

Un saludo

[[Lepe]]

Empezado por chavetaz

no puse en la implementacion las properties pero tengo que implementar las correspondientes read y write.
como lo ven????

Yo lo veo perfecto, aunque yo usaría "LoadFromFile" en lugar de "LoadFile". Será una tontería, pero hace tus objetos más intuitivos, al seguir la misma nomenclatura de la VCL.

Un saludo

[jbasilico]

Estoy con Delphi 7 y el problema de las versiones de acrobat, debido al cambio de la ocx, estoy un poco complicado con los tiempos, y me sería muy util si me pueden ayudar, la unit que publicaron no me termina de funcionar, me podrán pasar como queda definitivo el codigo, tanto en la unit como en el form donde tengo que ver el pdf.
Desde ya muchas gracias y espero poder colaborar en algun otro tema!