Delphi Win32 Anwendung in ActiveX Anwendung wandeln

[CaptainMemo]

Hallo,

ich habe ein fertige Win32/VCL Anwendung. Jetzt ist aber auch der Browserzugriff gefordert . Damit habe ich aber keine Erfahrung ich habe wohl ein paar mal gelesen man kann die Anwendung in ein ActiveX Control wandeln. Leider habe ich keine Info gefunden wie man sie denn einfach wandeln kann. Das schlimme ist eigentlich ich brauche beides, einmal die .exe aber auch die Ausführung über den IE, und das möglichst mit den gleichen Sourcen.

Gibt es irgendwo en Tutorial oder kann mir jemand die "Best Practice" zeigen?

Dank und lieben Gruss

[thkerkmann]

Hi,

das geht, ich hab das schonmal gemacht. Ich muss nur erst mal wieder rauskramen wo das war. :oops:

Dann melde ich mich wieder.


[Edit]
Hi,

ich habs gefunden :-D

Also zunächst mal kannst Du deine Anwendung ganz normal erstellen.

Dann benötigst Du ein leeres TForm, und machst es zum Hauptformular deiner Anwendung.

Ich nenne es das Host Form:

Delphi-Quellcode:

type
  TfrmHost = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    ChildForm: tForm;
  public
    { Public-Deklarationen }
  end;

var
  frmHost: TfrmHost;

implementation
uses
  uMeinEigentlichesHauptform; // hier deine echte Hauptform-Unit eintragen.

{$R *.DFM}

procedure TfrmHost.FormCreate(Sender: TObject);
begin
  // This code creates a child form that is just a normal
  // Delphi TForm.
  // This allows the form to be shown both as a normal
  // VCL form and as an ActiveForm.
  ChildForm := TForm(TMeinEigentlichesHauptform.Create(Self)); // hier das Hauptform instanziieren.
  ChildForm.Parent := Self;
  ChildForm.Align := alClient;
  ChildForm.BorderStyle := bsNone;
  ChildForm.Visible := True;
end;

Am besten machst du dieses Hostform genauso gross wie das eigentliche Programm,dann merkt man schon mal keinen Unterschied mehr.

Dieses war der erste Teil.

Jetzt erzeugst Du ein neues Projekt (Am besten eine Projektgruppe für diese beiden erstellen) welches ein Active-Form Projekt ist.

Auch hier hast Du dann eine Hauptform Unit die als Host fungiert.

Delphi-Quellcode:

type
  TOCXHost = class(TActiveForm, IOCXHost)
  private
    { Private-Deklarationen }
    FEvents: IPricingHostEvents;
    ChildForm: tForm;
    ....
    

implementation

uses
  ComObj,
  ComServ,
  uMeinEigentlichesHauptform; // hier wieder die eigentliche Hauptunit eintragen
  
  ...
  
procedure TOCXHost.Initialize;
begin
  inherited Initialize;
  OnActivate := ActivateEvent;
  OnClick := ClickEvent;
  OnCreate := CreateEvent;
  OnDblClick := DblClickEvent;
  OnDeactivate := DeactivateEvent;
  OnDestroy := DestroyEvent;
  OnKeyPress := KeyPressEvent;
  OnPaint := PaintEvent;

  // This code creates a child form that is just a normal
  // Delphi TForm.
  // This allows the form to be shown both as a normal
  // VCL form and as an ActiveForm.
  ChildForm := TForm(TMeinEigentlichesHauptform.Create(Self)); // hier das echte Hauptform instanziieren
  ChildForm.Parent := Self;
  ChildForm.Align := alClient;
  ChildForm.BorderStyle := bsNone;
  ChildForm.Visible := True;
  
end;

...

Das wars schon. Jetzt hast du dein Programm als Programm und als OCX.
Alle weiteren Units musst Du natürlich den beiden Projekten hinzufügen, wie im normalen Programm auch.

Viel Erfolg - bei mir läuft das prima, wenn du noch Fragen hast, du weist ja wo du mich findest :-D

[/Edit]

Gruss

[Bernhard Geyer]

Welche Art von Browser-Integration wird benötigt und was soll erreicht werden?