Error bei XML Speicherfreigabe

[Leo675]

Hallo allerseits

Ich bin kürzlich von 2006 auf XE2 umgestiegen. Das Programm macht ein XML File und speichert den, nichts wildes! Bei Freigabe des Speichers kommt Error Klasse EInvalid Poiter "Ungültige Zeigeroperation", den Meldung kommt nur mit Debbuger XE2, zum Test habe ich den Free sofort nach dem Create aufgerufen -> gleicher Effekt

Weißt jemand an was die Ursache liegt?

[mkinzler]

Zitat:

zum Test habe ich den Free sofort nach dem Create aufgerufen -> gleicher Effekt

Also ein neues Auto, direkt vor der Probefahrt verschrotten lassen.

Mal im Detail im Debugger angeschaut?

[Leo675]

Ja klar, es knallt genau wenn ich Free aufrufe!

[Bernhard Geyer]

Zitat von Leo675:

Ja klar, es knallt genau wenn ich Free aufrufe!

Debug-DCUs aktivieren damit du auch in die VCL-Quellcode rein kommst.

[Leo675]

der zeigt mir auf system.pas

Code:

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Self);
end;

class function TObject.InstanceSize: Longint;
begin
  Result := PInteger(PByte(Self) + vmtInstanceSize)^;
end;

[vagtler]

Wäre es nicht hilfreich mal Deinen Code zu posten?

[Leo675]

Interface:
IXMLSchicht2_eintrag_listeType = interface(IXMLNodeCollection)

XML-Deklaration

Code:

TDateFromID_FN = class
  
  private
    fXML_DOC : TXMLDocument;
    fXML_S2Eintrag  : IXMLSchicht2_eintrag_listeType;

  public
  procedure SaveToFileXML(const aFileName : String ='');

    constructor Create; virtual;
    destructor Destroy; override;
    property XML : IXMLSchicht2_eintrag_listeType read fXML_S2Eintrag write fXML_S2Eintrag;

constructor TDateFromID_FN.Create;
  begin
    try
      slK2     := TStringList.Create;
      slVSK2   := TStringList.Create;
      slKZ2    := TStringList.Create;
      slE23    := TStringList.Create;
      slKInfo2 := TStringList.Create;
      slBInfo2 := TStringList.Create;

      fXML_DOC := TXMLDocument.Create(nil);
      fXML_S2Eintrag := Getschicht2_eintrag_liste(fXML_DOC);
      fXML_DOC.Active:= True;
      fXML_DOC.Version := '1.0';
      fXML_DOC.StandAlone  := 'yes';
      fXML_DOC.Encoding  := 'UTF-8';
    except
      ....
    end;
  end;

  destructor TDateFromID_FN.Destroy;
  begin    
    ....
    fXML_DOC.Active  := False;
    fXML_DOC.free;
  end;
  
procedure TDateFromID_FN.SaveToFileXML(const aFileName: String);
begin
  fXML_DOC.SaveToFile(aFileName);
end;

Funktion Aufruf

Code:

S2Daten:= TDateFromID_FN.Create;
S2Daten.SaveToFileXML('C:\temp\XML\S2_Test'+DateToStr(Now
      )+'.xml');
S2Daten.Free;

[mkinzler]

Wann gibst du die ganzen Stringlisten frei?

[Leo675]

Im destructor befor ich fXML_DOC auf inactive setze ist als .... bezeichnet beim exept im constructor ist das gleiche

[himitsu]

Verwende mal probehalber IXMLDocument statt dem TXMLDocument (also bei deiner Variable)
und laß' das .Free weg, bzw. ersetze es durch :=nil .