Projektpfad in der IDE-Titelzeile anzeigen?

[PeterPanino]

Es gibt hier einen Patch von Embarcadero, der das verspricht:

http://cc.embarcadero.com/item/26161

Ich habe es versucht, in Delphi Berlin 10.1 zu installieren. Während das Compilieren und Erzeugen fehlerfrei ging, kam beim Installieren dieser Fehler zum Vorschein:

---------------------------
Error
---------------------------
Registration procedure, Showpath.Register in package C:\Users\Public\Documents\Embarcadero\Studio\18.0\ Bpl\ShowProjectPath.bpl raised exception class EAccessViolation: Access violation at address 650928E2 in module 'ShowProjectPath.bpl'. Read of address 00000000.
---------------------------
OK
---------------------------

Habe dann versucht, ShowProjectPath.bpl manuell zu installieren, dabei kam wieder der Fehler:

---------------------------
ShowProjectPath - Delphi 10.1 Berlin - ShowProjectPath.dproj [Built]
---------------------------
Registration procedure, Showpath.Register in package C:\Users\Public\Documents\Embarcadero\Studio\18.0\ Bpl\ShowProjectPath.bpl raised exception class EAccessViolation: Access violation at address 46A028E2 in module 'ShowProjectPath.bpl'. Read of address 00000000.
---------------------------
OK
---------------------------

Das ist die Registration procedure:

Code:

procedure Register;
begin
  OriginalTitle := Application.Title;
  Index := (BorlandIDEServices as IOTAServices).AddNotifier( TShowPath.Create );
  Application.Title := ExtractFilePath( ToolServices.GetProjectName );
end;

Syntaxmäßig ist hier kein Fehler, deswegen wurde es auch anstandslos kompiliert.

Wo ist hier der Fehler?

[KodeZwerg]

Steht "C:\Users\Public\Documents\Embarcadero\Studio\18.0 \ Bpl\" im BPL/DCP/Library Path ?
Und wird das bpl Verzeichniss wirklich mit einer leerstelle am Anfang betitelt?
Daran könnte es liegen, nur eine Vermutung!

[KodeZwerg]

Ich habe es mir mal heruntergeladen.
Der Fehler entsteht hier: (Datei ShowPath.pas)   Application.Title := ExtractFilePath( ToolServices.GetProjectName ); Das ToolServices.GetProjectName löst den Fehler aus, wie es korrekt lauten muss weiß ich selbst noch nicht.

Falls sich damit jemand auskennt, hier die ganze procedure

Delphi-Quellcode:

procedure Register;
begin
  OriginalTitle := Application.Title;
  Index := (BorlandIDEServices as IOTAServices).AddNotifier( TShowPath.Create );
  Application.Title := ExtractFilePath( ToolServices.GetProjectName );
end;

Ps: Anzumerken wäre noch folgendes was auf der Download-Seite steht....

Zitat:

For Delphi, Version 6.0 to 6.0

[PeterPanino]

Ich habe jetzt in ShowPath.pas mal testweise alle GetProjectName durch GetCurrentFile ersetzt.

Es kam aber die gleiche Fehlermeldung:

fehlermeldung.jpg

[PeterPanino]

Ich habe jetzt einfach mal die Zeile Application.Title := ExtractFilePath... in der procedure Register auskommentiert.

Jetzt funktionierte das install.

Dann versuchte ich, die IDE neu zu starten, was wegen einer hartnäckigen Fehlermeldung nicht ging. So beendete ich die IDE im Taskmanager.

Dann beim Neustarten der IDE kam diese Fehlermeldung:

fehlermeldungneustart.png

So musste ich die IDE wieder im Taskmanager schließen, weil die Fehlermeldung nicht wegging.

Dann entfernte ich die ShowProjectPath.bpl aus dem BPL-Verzeichnis.

Erst dann konnte ich die IDE erfolgreich neu starten.

[PeterPanino]

Heißt das jetzt, dass man alles, wo Delphi 6 draufsteht, wegschmeißen kann?

Immerhin steht es ja auf der Embarcadero-Seite. Aber offensichtlich hat das bei Embarcadero niemand mit einer aktuellen Delphi-Version getestet.

[PeterPanino]

In der Datei ToolIntf.pas steht:

Zitat:

The Tool services object is created on the application side, and is
passed to the VCS/Expert Manager DLL during initialization. Note that
the application is responsible for creating and freeing the interface
object, and the client should never free the interface.

Allerdings ist diese Datei als "deprecated" deklariert:

Code:

unit ToolIntf deprecated;

[Uwe Raabe]

Zitat von PeterPanino:

Immerhin steht es ja auf der Embarcadero-Seite. Aber offensichtlich hat das bei Embarcadero niemand mit einer aktuellen Delphi-Version getestet.

Die Datei stammt aus CodeCentral, das zwar von Embarcadero gehostet wird, aber auf das jeder mit einem EDN Account etwas hochladen kann. Das kommt insbesondere nicht von Embarcadero selbst, sondern von einem gewissen Wayne Schou. Es ist ausdrücklich nur für Delphi 6 angebeben und in einem Kommentar steht, daß es unter D2007 schon nicht mehr funktioniert.

Zitat von PeterPanino:

Heißt das jetzt, dass man alles, wo Delphi 6 draufsteht, wegschmeißen kann?

Die ToolsAPI hat sich seit Delphi 6 schon gehörig geändert, so wie auch die IDE selbst. Es ist eher unwahrscheinlich, daß Plugins für Delphi 6 ohne Anpassungen unter 10.2.3 laufen. Es gibt bei solchen Shifts immer eine Übergangszeit, in der sowohl das Alte als auch das Neue funktioniert, aber irgendwann ist damit halt Schluss.

Delphi 6 war etwa 2001, der Upload von 2008 - da gab es schon D2009. Offenbar hatte der Author schon damals kein Interesse an dem Support aktueller Versionen.