Pointer geht verloren

[Neutral General]

Hi,

Mein Plugin ruft bei der Ausführung TApp.GetEditor.Clear auf. Das funktioniert auch. Einmal... Beim zweiten mal ist FEditor irgendwie nil o.O -> AV.

Dieser Quelltext ist jetzt aus der Anwendung selbst.

Delphi-Quellcode:

TApp = class(TInterfacedObject,IApp)
  private
     FEditor: IEditor;
  public
    constructor Create;
    function GetEditor: IEditor; stdcall;
    procedure Terminate; stdcall;
  end;

  TEditor = class(TInterfacedObject,IEditor)
  private
    FEditor: TMemo;
  public
    constructor Create(AEditor: TMemo);
    procedure Clear; stdcall;
    procedure SetContent(const Value: WideString); stdcall;
    function GetContent: WideString; stdcall;
  end;

constructor TApp.Create;
begin
  inherited Create;
  FEditor := TEditor.Create(Form1.Memo1);
end;

function TApp.GetEditor: IEditor;
begin
  Result := FEditor; // Batsch (beim 2. mal)
end;

constructor TEditor.Create(AEditor: TMemo);
begin
  inherited Create;
  FEditor := AEditor;
end;

procedure TEditor.Clear;
begin
  FEditor.Lines.Clear;
end;

Wie ist denn das zu erklären ? o.O

Ich habs doch eigentlich genauso gemacht wie jbg hier auch.

Gruß
Neutral General

[Corpsman]

Also es ist nur ne Vermutung.

Aber wenn du das

Delphi-Quellcode:

function TApp.GetEditor: IEditor;

Aufrufst und einer Variable zuweist dann darfst du bei dieser kein Free machen. Denn der Pointer COpiert das Object ja nicht sondern gibt nur eine 2. Referenz

wenn du dann das 2. mal drauf zugreifen willst zeigt dein

Delphi-Quellcode:

FEditor

auf einen bereits Freigegebenen Speicherplatz und das erzeugt dann die AV.

[Neutral General]

Ich gebe FEditor: IEditor ja niemals frei...

[DGL-luke]

Eigentlich solltest du den Editor (im PlugIn) sogar freigeben(bzw. nur einmal holen und dann behalten) (bzw. aus dem Scope laufen lassen). Denn Result := FEditor sollte ja schon ein _AddRef auslösen.

[Neutral General]

Im Plugin:

Delphi-Quellcode:

var
  Edit: IEditor;

{ TPlugin }

function TPlugin.Execute(App: IApp): Integer;
begin
  Result := 1;
  if Edit = nil then
    Edit := App.GetEditor;
  Edit.Clear;
end;

So hab ichs jetzt gemacht. Hast du das so gemeint?
Jedenfalls klappts trotzdem nicht...

[DGL-luke]

OK, scheint zu passen. Ich hoffe du nillst "Edit" irgendwo am Anfang? Da es ne globale Variable ist, kannst du sie auch auf "=nil" initialisieren.

[Neutral General]

Zitat:

Zitat von DGL-luke

OK, scheint zu passen. Ich hoffe du nillst "Edit" irgendwo am Anfang? Da es ne globale Variable ist, kannst du sie auch auf "=nil" initialisieren.

Jo hab ich jetzt auch gemacht.. Aber das ändert an der ganzen Sache nicht wirklich was :(

Gruß
Neutral General

[DGL-luke]

Tja, ich bin am Ende meines Lateins.

[Neutral General]

Delphi-Quellcode:

function Execute(App: IApp): Integer; stdcall;

So Leute schaut euch das mal an.. Was fällt euch auf ? .... Und?

RICHTIG

:arrow:

Delphi-Quellcode:

function Execute(const App: IApp): Integer; stdcall;

:wall: :mrgreen: -.-^^

Naja aber so lernt mans... :mrgreen:

Gruß
Neutral General