Interface und 'normale' Referenz

[hansmaad]

Zitat von xaromz:

...

Delphi-Quellcode:

type
  IIntf = interface
    procedure Blubb;
  end;

  TIntf = class(TInterfacedObject, IIntf)
    procedure Blubb;
  end;

procedure bla;
var
  A: IIntf;
begin
  A := TIntf.Create; // Referenz 1

  Machwas(A); // keine Änderung
end; // hier Referenz 0 -> Objekt wird zerstört

procedure Machwas(const B: IInf) // Keine Änderung
begin
  B.Blubb; // hier kann jeder Thread etwas mit dem Interface machen, der Referenzzähler bleibt immer >= 1
end;

Gruß
xaromz

Natürlich muss man immer aufpassen. Dazu muss ich aber erstmal wissen was die Interfaces (oder die Basisklassen) machen. Wenn ein anderer Thread ein explizites Free ruft, ist die Sache ja klar. Die Frage war speziell auf die const und nicht const Parameter bezogen:. Dein Beispiel:

Delphi-Quellcode:

procedure Machwas(const B: IInf);
procedure MachwasNichtConst(B: IInf);

procedure bla;
var
  A: IIntf;
begin
  A := TIntf.Create; // Referenz 1
  StartThread(Machwas(A)); // keine Änderung
end; // hier Referenz 0 -> Objekt wird zerstört. MachWas() hat Pech gehabt.

procedure blaAnders;
var
  A: IIntf;
begin
  A := TIntf.Create; // Referenz 1
  StartThread(MachwasNichtConst(A)); // Referenz 2
end; // hier Referenz 1 -> Objekt wird nicht zerstört. MachWasNichtConst() hat Glück gehabt.

Ist das richtig?
Ich kanns leider nicht mal eben ausprobieren, weil ich in Delphi noch überhaupt keine Ahnung von threads habe. War nur schonmal vorweg gefragt.