Schutzverletzung nach Programmende

[Der schöne Günther]

Ich sehe nur dass ich in einer "normalen" VCL-Anwendung keine Fehlermeldung bekomme, noch nicht einmal im Debugger. Wenn ich nun bspw. "FastMM4" als erstes in die uses der DPR nehme hält er dort an und wirft AVs.

Delphi-Quellcode:

program Project22;

uses
  //FastMM4,
  Vcl.Forms,
  Unit8 in 'Unit8.pas' {Form8};

{$R *.res}

var
   intfRef:   IInterface;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm8, Form8);
  intfRef := Form8;
  Application.Run;
end.

Delphi-Quellcode:

unit Unit8;

[...]
type
  TForm8 = class(TForm, IInterface)

[...]

[himitsu]

FastMM ist immer drin, denn das ist seit 2006 integriert.

Und globale Interface-Variablen, auf Interfaces ohne Referenzzählung, denen diese Instanzen egal sind ... wer wundert sich dort?

Wenn du FastMM4 einbindest, dann wird das eventuell freigegeben, bevor diese globale Projekt-Variable freigegeben wird,
während der Standard-Speichermanager in der System.pas liegt.

Und das ist ein Grund, warum ich endlich überall [Weak]-Referenzen haben will,
aber hier (globales intfRef) bist du selber Schuld.

[Walter Landwehr]

Ich habe bei mir den Fehler gefunden. Und zwar setze ich auf mein Hauptformular die Komponente TAdvOfficeStatusBarOfficeStyler von TMS ein. Auf mein Datenmodul liegt die Komponente TAdvPanelStyler ebenfalls von TMS. Beide Komponenten auf ein Formular geht nicht. Wo kann man denn den TADVPanelStyler noch ablegen damit das Programm richtig ohne Meldung herunterfährt.

Die Einträge in meiner Projektdatei sehen so aus:

Delphi-Quellcode:

  Application.Initialize;
  Application.CreateForm(TdmMain, dmMain);
  Application.CreateForm(TfrmMain, frmMain);
  Application.MainFormOnTaskbar := True;
  Application.Run;

[EWeiss]

Ich vermute mal gar nicht.
Als alternative müsstest du diese zur Laufzeit (Dynamisch) einbinden.
Ob diese sich aber gegenseitig stören kann ich allerdings nicht mit Bestimmtheit sagen.

gruss

[Perlsau]

Du könntest einmal versuchen, die zweite Komponente, die sich deinen Angaben zufolge nicht nicht mit der ersten auf demselben Formular platzieren läßt, in OnCreate zur Laufzeit zu erstellen und in OnDestroy wieder freizugeben:

Delphi-Quellcode:

Procedure TfrmMain.FormCreate(Sender: TObject);
begin
  MyPanelStyler := TAdvPanelStyler.Create;
end;

Procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  MyPanelStyler.Free; // oder
  // FreeAndNil(MyPanelStyler);
end;

Wird der Fehler dadurch nicht behoben, versuchst du, beide Komponenten zur Laufzeit zu erstellen und eventuell die Erstellungsreihenfolge umzukehren.

Sorry, EWeiss, hatte nicht bemerkt, daß du das auch bereits vorgeschlagen hattest

[DeddyH]

Man könnte natürlich auch den Support von TMS kontaktieren, wenn das Problem sich auf deren Komponenten zurückführen lässt.