Ist Unit einkompiliert?

[ConnorMcLeod]

Du könntest in die verdächtigte Datei einen Fehler einbauen (z.B. 'abc' irgendwo im Text schreiben) und ein BuildAll machen. Wenn die Datei verwendet wird, dann wird Delphi den Fehler monieren.

[himitsu]

Man könnte jetzt sagen, es ginge um ein sehr großes Projekt, aus vielen BPLs, DLLs, ein paar EXEn und unzählingen
historisch gewachsener und über viele Jahre verflochtener Units.

Und da wäre mal ein Überblick was wie/wo mit drinsteckt ganz hilfreich,
denn es scheint manchmal beim Debuggen einige Problemchen zu geben.

Vor einer Weile hatten wir z.B. eine Variable, welche in einem Modul irendwie defekt zu sein schien.
Am Ende war es so, daß diese Variable an einer Stelle zwar initialisiert wurde, aber an anderer Stelle urplötzlich NIL war.
Tja, die Unit und somit auch diese globale Variable waren doppelt vorhanden, in dem Wirrwar aus DLLs und BPLs.

Bei ein paar Units könnte man das mit der "Signatur" schon machen, aber insgesamt wird es bestimmt etwas viel.

[ConnorMcLeod]

Diese beiden scheinen die besten Werkzeuge zu sein, um nicht verwendete Dateien im Projekt aufzuspüren.

In der MAP-Datei gibt es pro Datei eine Zeile, wie z.B.:
Line numbers for Variants(Variants.pas) segment .text

Man könnte einen Parser programmieren, der alle Zeilen auswirft, die mit 'Line numbers for' beginnen, die Dateinamen rauslesen und dann alle verbundenen Laufwerke durchsuchen lassen, ob eine Datei dieses Namens dort rumliegt. Schade, dass ich grad so wenig Zeit habe, das klingt interessant.

[hoika]

Hallo,

ich benutze den PAL (Pascal Analyzer).
Der hat u.a. ein Unit Use.


Heiko

[ASM]

Wenn es nur um ein Auflisten aller im Projekt insgesamt eingebundenen Units geht, ist das leicht und sehr übersichtlich auch mit dem Unit Dependency Analyzer von ModelMaker möglich. Das Programm ist kostenfrei.

Einzige lästige Notwendigkeit: Das Programm liest nicht selbsttätig alle Bibliotheks- und Suchpfade aus Delphi aus.
Sollen also komplett nicht nur alle direkt, sondern auch alle indirekt eingebundenen Units erfasst und auf ihre gegenseitige Abhängigkeit analysiert werden, müssen alle im Delphi-Projekt eingetragenen Bibliotheks- und Suchpfade manuell im Programm benannt werden. Das kann man zwar einzeln und daher etwas sehr mühsam im Programm selbst eintragen (unter Project Options), viel einfacher geht das aber auf einen Rutsch mit einem normalen Texteditor im Dependency Projects file (*.mmdep). Dazu muss man einfach die beiden Zeilen aus dem in Delphi eingetragenen Bibliothekspfad sowie aus dem Suchpfad des aktuellen Delphi-Projektes kopieren und in das mmdep-File unter "SearchPath=" übertragen.

Der Dependency Analyzer zeigt dann zum einen alle Units an, auf die im aktuellen Delphi-Projekt an irgendeiner Stelle in irgendeiner der eingebundenen Units mittels "Uses" Zugriff erfolgt. Außerdem kann man sich auch anzeigen lassen, welche der einzelnen Units von welchen anderen Units benötigt wird

[himitsu]

Nur daß die selbstparsenden Varianten irgendwie die Laufzeitpackages vergessen und dann auch Units aufgelistet werden, welche zwar enthalten sind, aber garnicht einkompiliert werden.

[rollstuhlfahrer]

Ich bin eben auf was gestoßen: Delphi liefert eine Liste der einkompilierten Units (leider nur die Namen, nicht auch noch die Pfade ) gleich mit der Anwendung mit.
EXE-Datei mit Ressource-Editor öffnen -> RC Data -> "PACKAGEINFO". Bei XN Ressource Editor gibts dann 2 Tabs: Requires und Contains. In letzterem steht dann auch, warum die Unit eingebunden ist.

Bernhard

[USchuster]

Das Auslesen der Informationen aus der Ressource PACKAGEINFO geht auch mit TJclPePackageInfo (Beispiel s.u.), aber sollten die enthaltenen Units nicht im DPK stehen und wenn nicht, dann sollte es eine Warnung (W1033) geben?

Schon mal das Compilieren mit dem Parameter "--depends" probiert? ("Unit-Abhängigkeitsinformationen ausgeben" in the Projektoptionen in der IDE)

Delphi-Quellcode:

program PePackageInfoTest;

{$APPTYPE CONSOLE}

uses
  Windows, JclPEImage;

var
  I: Integer;
  PkgHandle: THandle;
  PePackageInfo: TJclPePackageInfo;
begin
  PkgHandle := LoadLibrary('c:\Program Files (x86)\Embarcadero\RAD Studio\8.0\bin\designide150.bpl');
  if PkgHandle <> 0 then
  begin
    PePackageInfo := TJclPePackageInfo.Create(PkgHandle);
    try
      WriteLn('ContainsCount: ', PePackageInfo.ContainsCount);
      for I := 0 to PePackageInfo.ContainsCount - 1 do
        WriteLn(PePackageInfo.ContainsNames[I]);
    finally
      PePackageInfo.Free;
    end;
  end;
  ReadLn;
end.