Package erstellen und verwenden

[Helmi]

Hallo,

da ich mich gestern entschlossen habe, ein Programm von mir erweitern, dacht ich mir ich könne dies ja "modular" aufbauen. D. h. bpl vorhanden = funktion möglich, bpl nicht vorhanden = funktion nicht möglich

Lider weiss ich nicht wie man bpl´s erstellt und verwendet - hab auch nix gscheits in der suche gefunden

gibt es dafür eine gute Anleitung?

[Phoenix]

Datei -> Neu -> Weitere -> Package

[Helmi]

Zitat:

Zitat von Phoenix

Datei -> Neu -> Weitere -> Package

na ja - das ist nur so hingeworfen!

Aber wie verwendet man diese?
Ich möcht die ja im Code aufrufen etc.

[Phoenix]

Hrm. Keine Ahnung. ;-)

Aber schau mal hier nach: http://entwickler-forum.de/showthread.php?t=28212
Dürfte in die richtige Richtung gehen.

[Helmi]

mmh - bringt mich auch nicht wirklich weiter

[mkinzler]

http://dn.codegear.com/sv/article/27178

[Helmi]

so, da bin ich wieder :-)

Ich hab jetzt mal das Beispiel von mkinzler getestet.
Leider funktionierts nicht so richtig.

Mein Test-Programm ist angehängt. Dabei befindet sich auch die Package.

Mein Problem ist hier:

Delphi-Quellcode:

AClass := GetClass('TForm2');

Das Package wird gefunden, aber keine Klasse "TForm2".
AClass ist also nil.

Kann mir jemand helfen wieso weshalb und warum das so ist? :angel2:

[mkinzler]

Zitat:

Mein Test-Programm ist angehängt. Dabei befindet sich auch die Package.

Hast du wohl vergessen

[Helmi]

Zitat:

Zitat von mkinzler

Zitat:

Mein Test-Programm ist angehängt. Dabei befindet sich auch die Package.

Hast du wohl vergessen

Verzeihung!! :oops:

Das Alter :mrgreen:

Das Beispielprogramm ist im letzten post

[mkinzler]

Zitat:

Make sure you compile any project that uses packages (static or dynamic) with runtime packages turned on: "Project | Options | Packages | Build with runtime packages."

You must be careful that when you unload a package you destroy any objects using those classes and un-register any classes that were registered.

[Helmi]

versteh ich jetzt inhaltlich ned

ich hab doch keine objekte

[mkinzler]

Eigentlich ist der erste Satz bedeutend.
Die Formklasse, welche du erzeugst ist auch ein Objekt

[Helmi]

und was muss ich jetzt ändern?

[mkinzler]

Den Haken setzen

[Helmi]

ah - wunderbar

danke!

[Helmi]

Ich hätt da noch eine Frage:

Bei dem obigen Beispiel wird ja eine Form angezeigt.

Ich möcht nun aber folgendes machen:

In ein vorhandenes Projekt möcht ich eine Funktion hinzufügen, die in einem Package hinterlegt ist (es handelt sich um einen Rave-Report).

Da man aber für einen Rave-Report keine Form braucht, dacht ich mir, ich erstelle nur eine Unit, bastel mir ein Create und einen Destructor und arbeite da drin mit den Komponenten.

Findet das MainProgramm die bpl dann wird die funktion durchgeführt.

Mein Problem ist, nun dieses alles zu programmieren.

Ich dacht mir ich bastel einfach eine Unit, nämlich so:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Classes;

type
  TTest = class(TComponent)

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create;
    destructor Destroy;
  end;

implementation

constructor TTest.Create;
var
  S: String;

begin
  //
  S := 'hallo';
end;

destructor TTest.Destroy;
begin
//
  inherited;
end;

initialization
  RegisterClass(TTest);

finalization
  UnRegisterClass(TTest);

end.

Und so aufgerufen im Mainprogramm:

Delphi-Quellcode:

var
  PackageModule : HModule;
  AClass        : TPersistentClass;
  Datei         : String;

begin
  Datei := ExtractFilePath(Application.ExeName) + 'Package1.bpl';

  If not FileExists(Datei) then
    begin
      ShowMessage(Datei + ' nicht vorhanden!');

      exit;
    end;

  PackageModule := LoadPackage(Datei);
  If PackageModule <> 0 then
    begin
      AClass := GetClass('TTest');

      If Assigned(AClass) then
        with TComponentClass(AClass).Create(Application) as TComponent do
          begin
//            ShowModal;
            Free;
          end;

      UnloadPackage(PackageModule);
    end;

Nur glaub ich, dass ich mich in irgendwas verrenne!

Kann mir jemand einen Tip geben, ob ich auf dem richtigen weg bin und falls nciht, wie man es richtig macht?