Komponente verursacht Fehler beim Beenden von Delphi/Projekt

**BAMatze**

Hallo und guten Tag an alle DP´ler,

Habe in meinem vorherigen Threat

hier schonmal mehrere Fehler beschrieben, die bei mir nach Verwendung einer eigenen Komponente auftreten.

Und zwar läuft alles korrekt, wenn ich meine Komponente verwende (Unit mit Komponente startet, alles kann so wie vorgesehen verwendet werden und schließt ohne Fehlermeldung). Wenn jetzt aber das Projekt geschlossen wird, treten mehrere Fehler auf, bei denen ich eure Hilfe bräucht, weil ich damit gar nichts anfangen kann.

Fehler beim Beenden von Delphi/ des Projektes:
Projekt beenden
1.) ungöltige Zeigeroperation
2.) Zugriffsverletzung bei Adresse 2000679C in Modul rtl100.bpl. Fehler bei Adresse FFFFFFFF
Delphi
3.) Fehlermeldung, die ich versenden kann (oder nicht) wegen schwerem Fehler beim Beenden von Delphi
4.) Exception EAccessViolation in Modul coreide100.bpl bei 0015EDC8.Zugriffsverletzung bei Adresse 20A8EDC8 in Modul coreide100.bpl. Lesen von Adresse 0000049C.

Habe dazu nicht wirklich etwas gefunden, die meisten Threats bezugen sich lediglich auf Fehler, die beim Beenden des Programmes auftraten.

Vieleicht kann mir jemand einen Hinweis geben, wo ich den Fehler suchen muss.

Vielen Dank
BAMatze

Edit 1: Also die Fehler kann ich erstmal beseitigen, indem ich das Speichern
FExcelWorkbook.Close(true); im Destructor weglasse. Wobei ich eigentlich ja Änderungen speichern möchte. Hat dort eventuell jemand eine Idee? Also wie ich trotzdem speichern kann?

**BAMatze**

Hallo noch mal an alle DP´ler,

Ich pusche dieses Thema mal aus dem Grund, da vieleicht jemand mal in der SuFu darauf stößt und ähnliche Anlaufschwierigkeiten hat, wie ich. Also die Probleme sind beseitigt, dass Delphi/ das Projekt geschlossen werden kann ohne, dass es irgendeinen Fehler gibt.
Ich gebe hier mal meinen Quellcode zum besten für ein Testprogramm (ist allerdings nicht uneigennützig, weil noch ein Problem besteht, bei dem ich ein wenig Hilfe brauche (ein Fehler besteht noch))

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExcelXP;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

const Testname = 'Test.xls';

var

  Form1: TForm1;

  FExcelApplication: TExcelApplication;

  FExcelWorkbook: TExcelWorkbook;

  FExcelWorksheet: TExcelWorksheet;

implementation

{$R *.dfm}

procedure ExcelDatenbank_anlegen;

var sparentroot: string;

    iUserLCID: integer;

begin

  sparentroot := ExtractFilePath(ParamStr(0));

  iUserLCID := GetUserDefaultLCID;

  FExcelApplication := TExcelApplication.Create(Nil);

  FExcelApplication.Workbooks.Add(emptyparam, iUserLCID);

  FExcelWorkbook := TExcelWorkbook.create(Nil);

  FExcelWorkbook.ConnectTo(FExcelApplication.ActiveWorkbook as ExcelWorkbook);

  FExcelWorkbook.Worksheets.Add(emptyParam, emptyParam, emptyParam, emptyParam, iUserLCID);

  FExcelWorksheet := TExcelWorksheet.create(Nil);

  FExcelWorksheet.ConnectTo(FExcelWorkbook.ActiveSheet as ExcelWorksheet);

  FExcelWorksheet.Cells.Item[3,1] := 'Hallo';

  FExcelWorksheet.Cells.Item[3,2] := 'dies';

  FExcelWorksheet.Cells.Item[3,3] := 'ist';

  FExcelWorksheet.Cells.Item[3,4] := 'ein';

  FExcelWorksheet.Cells.Item[3,5] := 'Test';

  FExcelWorkbook.Close(true, sparentroot + Testname, emptyParam, iUserLCID); // Speichert die Änderungen in Excel  } //Speicherleck

  FExcelWorksheet.Free;

  FExcelWorkbook.Free;

  FExcelApplication.Free;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  if not (csDesigning in Self.ComponentState) then

    begin

      FExcelWorkbook.Close(true); // Speicherleck

      FExcelWorksheet.Free;

      FExcelWorkbook.Free;

      FExcelApplication.Free;

    end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var iUserLCID: integer;

    DWResult: DWORD;

begin

  if not FileExists(Testname) then ExcelDatenbank_anlegen;

  iUserLCID := GetUserDefaultLCID;

  // Wenn die Datenbank extern über Excel geöffnet ist dann wird sie geschlossen.

  // wenn diese Datei nicht geschlossen wird, dann kommt es zu einer Exception!!!

  if FindWindow('XLMain','Microsoft Excel - ' + TestName) <> 0 then

      SendMessageTimeout(FindWindow('XLMain','Microsoft Excel - ' + TestName), WM_CLOSE, 0, 0,

      SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);

  FExcelApplication := TExcelApplication.Create(Nil);

  FExcelWorkbook := TExcelWorkbook.create(Nil);

  FExcelWorksheet := TExcelWorksheet.create(Nil);

  // vorhandener Exceldatei laden !!! wichtig !!! Die Anzahl der emtyParam ist Office-Versions abhängig

  FExcelApplication.Workbooks.Open(ExtractFilePath(ParamStr(0)) + TestName, emptyParam, emptyParam, emptyParam, emptyParam

                          , emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam

                          , emptyParam, emptyParam, iUserLCID);

  // Excel soll NICHT angezeigt werden

  FExcelApplication.visible[iUserLCID] := true;

  // verbinden des Workbooks und des Worksheets mit der in der exc geladenen Datei

  FExcelWorkbook.ConnectTo(FExcelApplication.ActiveWorkbook);

  FExcelWorksheet.ConnectTo(FExcelWorkbook.ActiveSheet as ExcelWorksheet);

end;

end.

Wer diesen Quellcode ohne FastMM4 testet, wird kein Problem feststellen. Allerdings sind noch 2 Speicherlecks vorhanden, welche ich gern beseitigen würde und zwar beim Speichern. Das Speichern funktioniert allerdings. Wieso treten aber Speicherlecks auf?

Hi,

nur mal so aus der Hüfte geschossen:

im FromCreate erzeugst Du Deine FExcel...
im FormClose schliesst Du diese

soweit OK, aber in ExcelDatenbank_anlegen machst Du das Gleiche noch mal.
Das muss in die Hose gehen !

Und im Create der Owner = NIL ist auch nicht so prickelnd. Warum darf das nicht Dein Form1 sein ?

**BAMatze**

Nunja da das Öffnen der Applicationen zeitlichgesehen nach einander erfolgt und das 2. Öffnen erst passiert, wenn alles schon wieder freigegeben ist (es ist also nicht verschachtelt!), rechne ich deswegen eigentlich nicht mit einem Fehler dort. Außerdem wenn die Datei Test.xls exisitert, dann wird das ganze ja auch nur einmal geöffnet.
Gestestet habe ich schonmal:
ist Test.xls vorhanden -> 1 Speicherleck, keine Exception
ist Test.xls vorhanden und die Speicherstell in FormClose auskommentiert -> alles ok
ist Test.xls nicht vorhanden -> 2 Speicherlecks, keine Exception
ist Test.xls nicht vorhanden und werden die Speicherstellen auskommentiert geben kommt es zu kein Speicherleck, allerdings wird man gefragt, ob man Speichern möchte (dies will ich ja eigentlich nicht) und ein OleFehler tritt auf nach dem 1. Schließen der Excelapplication.

**Uwe Raabe**

Das Speicherleck, ist die Folge einer - sagen wir mal - ungeschickten Implementation von TOleServer und entzieht sich somit deinem Zugriff. Wenn du allerdings die Events der OleServer gar nicht brauchst, kannst du auch die Interfaces direkt verwenden:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ExcelDatenbank_anlegen;

var

  sparentroot: string;

  iUserLCID: integer;

  FExcelApplication: ExcelApplication;  // dies sind Interfaces, keine Klassen!

  FExcelWorkbook: ExcelWorkbook;

  FExcelWorksheet: ExcelWorksheet;

begin

  sparentroot := ExtractFilePath(ParamStr(0));

  iUserLCID := GetUserDefaultLCID;

  FExcelApplication := CoExcelApplication.Create;

  FExcelApplication.Workbooks.Add(emptyparam, iUserLCID);

  FExcelWorkbook := FExcelApplication.ActiveWorkbook;

  FExcelWorkbook.Worksheets.Add(emptyParam, emptyParam, emptyParam, emptyParam, iUserLCID);

  FExcelWorksheet := FExcelWorkbook.ActiveSheet as ExcelWorksheet;

  FExcelWorksheet.Cells.Item[3,1] := 'Hallo';

  FExcelWorksheet.Cells.Item[3,2] := 'dies';

  FExcelWorksheet.Cells.Item[3,3] := 'ist';

  FExcelWorksheet.Cells.Item[3,4] := 'ein';

  FExcelWorksheet.Cells.Item[3,5] := 'Test';

  FExcelWorkbook.Close(true, sparentroot + Testname, emptyParam, iUserLCID); // Speichert die Änderungen in Excel  }

end;

**BAMatze**

Danke dir Uwe, werde es morgen gleich mal probieren. Muss hier zu Hause erstmal alles runterladen.

**BAMatze**

Hallo und Guten Morgen an alle DP´ler,

Habe alles nochmal ein wenig mit Uwes Hinweisen umgearbeitet und die Routine sieht jetzt wie folgt aus:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExcelXP;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

const Testname = 'Test.xls';

var

  Form1: TForm1;

  FExcelApplication: ExcelApplication;

  FExcelWorkbook: ExcelWorkbook;

  FExcelWorksheet: ExcelWorksheet;

  sparentroot: string;

  iUserLCID: integer;

implementation

{$R *.dfm}

procedure ExcelDatenbank_anlegen;

begin

  FExcelApplication := CoExcelApplication.Create;

  FExcelApplication.Workbooks.Add(emptyparam, iUserLCID);

  FExcelWorkbook := FExcelApplication.ActiveWorkbook;

  FExcelWorkbook.Worksheets.Add(emptyParam, emptyParam, emptyParam, emptyParam, iUserLCID);

  FExcelWorksheet := FExcelWorkbook.ActiveSheet as ExcelWorksheet;

  FExcelWorksheet.Cells.Item[3,1] := 'Hallo';

  FExcelWorksheet.Cells.Item[3,2] := 'dies';

  FExcelWorksheet.Cells.Item[3,3] := 'ist';

  FExcelWorksheet.Cells.Item[3,4] := 'ein';

  FExcelWorksheet.Cells.Item[3,5] := 'Test';

  FExcelApplication.visible[iUserLCID] := true;

end;

procedure ExcelDatenbank_oeffnen;

begin

  FExcelApplication := CoExcelApplication.Create;

  FExcelApplication.Workbooks.Open(ExtractFilePath(ParamStr(0)) + TestName, emptyParam, emptyParam, emptyParam, emptyParam

                          , emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam

                          , emptyParam, emptyParam, iUserLCID);

  FExcelApplication.visible[iUserLCID] := true;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  // Speichern und Schließen von Excel

  FExcelApplication.ActiveWorkbook.Close(true, sparentroot + Testname, emptyParam, iUserLCID);

end;

procedure TForm1.FormCreate(Sender: TObject);

var DWResult: DWORD;

begin

  sparentroot := ExtractFilePath(ParamStr(0));

  iUserLCID := GetUserDefaultLCID;

  if FindWindow('XLMain','Microsoft Excel - ' + TestName) <> 0 then

      SendMessageTimeout(FindWindow('XLMain','Microsoft Excel - ' + TestName), WM_CLOSE, 0, 0,

      SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);

  if not FileExists(Testname) then ExcelDatenbank_anlegen

  else ExcelDatenbank_oeffnen;

end;

end.

Es gibt keine Speicherlecks mehr aber eine Frage, wenn ich mit den Interfaces arbeite (was ich ja auch mit create mache, also sie erstellen) brauche ich dann wirklich kein Free mehr?

Vielen Dank
BAMatze

**sx2008**

Alle folgenden Variablen gehören unter den Abschnitt private der Klasse TForm1.

markieren

Delphi-Quellcode:

			  FExcelApplication: ExcelApplication;   // *

  FExcelWorkbook: ExcelWorkbook;  // *

  FExcelWorksheet: ExcelWorksheet;  // *

  sparentroot: string;

  iUserLCID: integer;

Die mit Stern markierten Variablen sind Interface Pointer und unterliegen der Referenzzählung.
Daher ist es sinnvoll, dass diese Variable die gleiche Lebensdauer wie das Formular bekommen.
Wenn das Formular stirbt, sorgt unsichtbarer Code vom Delphicompiler dafür, dass auch die Objekte
die hinter den Interface Pointern stehen freigegeben werden.

Komponente verursacht Fehler beim Beenden von Delphi/Projekt

Komponente verursacht Fehler beim Beenden von Delphi/Projekt

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro

Forumregeln

BAMatze Registriert seit: 18. Aug 2008 Ort: Berlin 759 Beiträge Turbo Delphi für Win32	#6 Re: Komponente verursacht Fehler beim Beenden von Delphi/Pro 31. Jul 2009, 18:18 Danke dir Uwe, werde es morgen gleich mal probieren. Muss hier zu Hause erstmal alles runterladen. 2. Account Sero
	Zitat