Ordner der eigenen Package ermitteln

[Mathias]

Wen ich eine eigen Package programmiere, kann man in der abfragen, wo sich die Sourcen der Package befinden ?

Für einen Versuch, würde die in etwa so aussehen.

Code: Alles auswählen

procedure Register;
begin
   ShowMessage('Die Sorcen der Package befinde sich in: ' + ?????);
   ...

[PascalDragon]

Wen ich eine eigen Package programmiere, kann man in der abfragen, wo sich die Sourcen der Package befinden ?

Nein, da dies ganz normaler Object Pascal Code ist, der so auch in der Anwendung landen könnte, und die IDE auch kein Compiler Define durchreicht, was dafür genutzt werden könnte.

Nebenbei: Ich würde „Package” eher als neutrum ansehen, abgeleitet vom Geschlecht von „Paket” (der Duden stimmt mir da zu )

[Mathias]

Meine Idee dahinter, beim Ordner der Package Sourcen befindet sich eine XML-Datei mit Voreinstellungen. Schön wäre es gewesen, wen ich diesen Pfad direkt in der installierten Package verlinken könnte.
Gegenwärtig, hat es einen Optionen Dialog in der Package, in der man den Pfad zu XML einstellen kann. Diesen Dialog würde ich natürlich sein lassen, so das der User immer noch die Möglichkeit hat den Pfad zu ändern, wen er die Sourcen mal in ein anders Ort verschiebt.

Das Ganze verwende ich in meine Embedded GUI. viewtopic.php?f=29&t=11842&p=127577&hil ... ed#p127577
In dieser hat es Templates & Examples für verscjieden Embedded Systeme.

Mein Ziel ist es, das im Edit-Feld (siehe Anhang) als Voreinstellung der Pfad schon richtig steht.

[kupferstecher]

Ich hab mal in "meinem " Package geschaut, wie es dort gemacht wird, relevanter Ausschnitt siehe unten. Der Pfad wird in DoInitDescriptor ermittelt und dann in eine Variable PackagePath abgespeichert. Ist wohl aus einem anderen Package übernommen, also nicht meine Erfindung.

Code: Alles auswählen

function TAvrEmbeddedApplicationDescriptor.DoInitDescriptor: TModalResult;
var
  ThisPackage: TPackageLink;
  PackPath: string;
begin
  TAVRProject.Name:= 'avrproject';
  TAVRProject.Path:= '';
  TAVRProject.Device:= 'atmega32';
  TAVRProject.InstructionSet:= 'avr5';
  TAVRProject.ProgrammerCommand:= '';
  TAVRProject.ProgrammerNeedsPort:= false;

  ////Package Path
  ThisPackage:= PkgLinks.FindLinkWithPkgName(cPackageName);
  PackPath:= ThisPackage.LPKFilename;
  TAVRProject.PackagePath:= '';
  if length(PackPath) > length(cPkgFileName)+3 then
   if equal(PackPath,cPkgFileName,length(PackPath)-length(cPkgFileName)+1)
   then TAVRProject.
          PackagePath:= copy(PackPath,1,length(PackPath)-length(cPkgFileName));

  ////New project dialog
  if not assigned(dlgAVRProjForm) then dlgAVRProjForm:= TdlgAVRProjForm.Create(nil);
  dlgAVRProjForm.Init;

  Result:= dlgAVRProjForm.ShowModal;

end;

[Mathias]

Jetzt müsste man nur noch wissen, wie man an den Bezeichner "PkgLinks" kommt.
Könntest du die ganze Package hochladen ?
Oder hast du einen öffentlichen Link auf sie ?

[af0815]

Jetzt müsste man nur noch wissen, wie man an den Bezeichner "PkgLinks" kommt.

Wenn ich das mit einem Suchprogramm im Lazarus Pfad suchen lassen, so bekomme ich einige Treffer. Ich vermute die Funktionen werden auch von OPM verwendet. Weil ich finde jede Menge Querverweise.

z.B.
C:\Data\lazdev\LazXX\lazarus\packager\packagelinks.pas
C:\Data\lazdev\LazXX\lazarus\packager\pkgmanager.pas

[kupferstecher]

In den Code müsste ich mich auch erst wieder einfinden. Hier der Link aufs Repo:

https://github.com/kupferstecher/LazPackageEmbeddedAVR

[Mathias]

Danke für die Infos.

Die Unit "PackageLinkIntf," muss eingebunden werden, weil dort "TPackageLink" drinnen ist.

Mit folgenden Code, komme ich am meine Infos, die mir weiter helfen.

Code: Alles auswählen

var
  ThisPackage: TPackageLink;
begin
  ThisPackage:= PkgLinks.FindLinkWithPkgName('embedded_gui_package');
  TabSheetTemplates.Caption:=ThisPackage.LPKFilename;

Aber ein kleiner Schönheitsfehler hat es doch noch, wen ich bei "FindLinkWithPkgName" eine ungültige Package reinschreibe, verabschiedet sich Lazarus mit einem Acess Validat.

[Mathias]

Ich habe noch folgendes gefunden: https://www.freepascal.org/docs-html/prog/progsu41.html , da gibt es $I Befehle mit dem man verschiedene Infos zum Project holen kann.
Da kann ich mir vorstellen, das es auch etwas gibt, mit dem man den Package Name holen kann.

PS: Beim durchforschen bin ich auf "{$I %HOME%}" gestossen. Wen man danach googelt kommt kein einziger Treffer.
Das mit dem Home habe ich hier gefunden: https://github.com/r3code/lazarus-excep ... upport.pas
PS2: Habe für %HOME% da Wiki angepasst: https://wiki.freepascal.org/$include/de ... .24INCLUDE

[PascalDragon]

Ich habe noch folgendes gefunden: https://www.freepascal.org/docs-html/prog/progsu41.html , da gibt es $I Befehle mit dem man verschiedene Infos zum Project holen kann.
Da kann ich mir vorstellen, das es auch etwas gibt, mit dem man den Package Name holen kann.

PS: Beim durchforschen bin ich auf "{$I %HOME%}" gestossen. Wen man danach googelt kommt kein einziger Treffer.
Das mit dem Home habe ich hier gefunden: https://github.com/r3code/lazarus-excep ... upport.pas
PS2: Habe für %HOME% da Wiki angepasst: https://wiki.freepascal.org/$include/de ... .24INCLUDE

Bitte lies die offizielle Dokumentation, bevor du für sowas irreführende Informationen ergänzt. Die Include-Direktive unterstützt eben nicht den Bezeichner HOME direkt, sondern die Direktive fragt den Wert aus den Umgebungsvariablen ab, wenn es kein explizit unterstützter Bezeichner ist.