Speicherfreigabe von Stringlisten in DLL

[ueding]

Hallo zusammen

Ich beschäftige mich gerade mit DLL und habe ein kleines Problem.
erst einmal ein Auszug vom Code

Delphi-Quellcode:

unit U_Barcode;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, UE_BC_TLB, StdVcl, SysUtils;

type
  TBarcode = class(TAutoObject, IBarcode)
  protected
    function Get_SetFileName: OleVariant; safecall;
    procedure Set_SetFileName(Value: OleVariant); safecall;
    function Get_GetBcCode: OleVariant; safecall;
    procedure Set_GetBcCode(Value: OleVariant); safecall;

  end;

implementation

uses ComServ, ShlObj,classes,IncodeLib;
var
ErrorCode       : integer;
strParse        : TStringList;
strRow          : TStringlist;


procedure TBarcode.Set_SetFileName(Value: OleVariant);

begin


strParse := TStringList.Create;
strRow   := TStringList.Create;

//jetzt füllen der Stringlist


end;

 //--------------------------------------------------------------------------------


function TBarcode.Get_GetBcCode: OleVariant;
begin
result := barcode;

end;



initialization
  TAutoObjectFactory.Create(ComServer, TBarcode, Class_Barcode,
    ciMultiInstance, tmApartment);

end.

ich kann die Stringlisten in der function TBarcode.Get_SetFileName:
nicht freigeben da ich den Inhalt später noch benötige.
Gibt es eine Möglichkeit den Speicher bei "ONDESTROY" freizugeben,
oder wie kann Ich den Speicher beim beenden der DLL freigeben ?


Danke schon mal für Eure Hilfe


Gregor

[sirius]

Hoi, du baust die ja gleich ein Automatisierungsobject.

Setze deine Variable und Stringlisten in die Klasse, und dann überschreib den Destructor.

[ueding]

Die Funktionen des Automatisierungsobjectes können von VBScript aufgerufen werden.
Ich bekomme ja nicht mit wenn das VBScript beendet wird.
leider verstehe ich deine Anwort nicht so richtig.

Zitat:

Setze deine Variable und Stringlisten in die Klasse, und dann überschreib den Destructor.

könntest du mir dies bitte etwas ausführlicher beschreiben.
Danke

[Bernhard Geyer]

Iiii, Globale Variablen. Ich hoffe du hast ein passentes Appartmentmodell das jede erzeugte Instanz des Interfaces einen eigenen Prozess startet sonst kracht es fürchterlich!

Zitat:

Zitat von ueding

Zitat:

Setze deine Variable und Stringlisten in die Klasse, und dann überschreib den Destructor.

könntest du mir dies bitte etwas ausführlicher beschreiben.

Du weißt nicht was der Destruktor einer Klasse ist? :shock: Schau mal in der Delphi-Hilfe unter Destructor. Dies sind eigentlich Grundlagen Objektorientierung und ohne diese sollte man sich nicht an Automatisierungsobjekte wagen ...

[ueding]

Habe jetzt einen Constructor eingebaut
funktioniert leider nicht,
hier der Code

Delphi-Quellcode:

unit U_Barcode;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, UE_BC_TLB, StdVcl, SysUtils;

type
  TBarcode = class(TAutoObject, IBarcode)
  protected
    function Get_SetFileName: OleVariant; safecall;
    procedure Set_SetFileName(Value: OleVariant); safecall;
    function Get_GetBcCode: OleVariant; safecall;
    procedure Set_GetBcCode(Value: OleVariant); safecall;
    
   public
    constructor Create(AOwner:TAutoObject, Ibarcode);// hier ist das Problem 
    destructor Destroy; override;                    // ich kann nicht "TAutoObject, Ibarcode " zusammen angeben

  end;

implementation

uses ComServ, ShlObj,classes,IncodeLib;
var
ErrorCode       : integer;
strParse        : TStringList;
strRow          : TStringlist; 


constructor Tbarcode.create(AOwner : Ibarcode);    // hier ist das zweite Problem

begin
inherited Create();
strParse        := TStringList.Create;
strRow          := TStringlist.Create;
end;


destructor tbarcode.destroy;

begin
 strParse.free;
 strrow.Free;
end

wenn ich nur Ibarcode oder TAutoObject angebe wird der Constructor nicht durlaufen aber der Destructor
wo mache ich den Fehler?

[sirius]

Bei einem Automatisierungsobjekt (vom Delphi-Wizard erstellt) darfst/solltest du den Constructor nicht überschreiben. Überschreibe zum initialisieren die Methode "initialize".

Edit: Wie kommst du eigentlich auf diese Parameter bei Create?

[himitsu]

Du kannst immer nur einen Typen als Parameter angeben!

Wenn beides zusammen in einem Objekt übergeben werden soll, dann kannst du einen "Kombinationstypen" angeben (TBarcode enthält ja beides).

Delphi-Quellcode:

constructor Create(AOwner: TBarcode);

Wenn nur eines übergeben werden soll, dann nimm zwei Konstruktoren.

Delphi-Quellcode:

constructor Create(AOwner: TAutoObject); Overload;
constructor Create(AOwner: Ibarcode); Overload;

Aber wozu übergibst du einen Owner (AOwner), wenn du ihn dann garnichts nutzt?

[ueding]

Hallo
danke erst einmal
habe jetzt den Constructor und destructor wie nachstehend eingebaut

Delphi-Quellcode:

type
  TBarcode = class(TAutoObject, IBarcode)
  protected

    function Get_SetFileName: OleVariant; safecall;
    procedure Set_SetFileName(Value: OleVariant); safecall;
    function Get_GetBcCode: OleVariant; safecall;
    procedure Set_GetBcCode(Value: OleVariant); safecall;

   private

   public
    constructor Create;

    destructor Destroy; override;


  end;

.
.
implementation
.
.
constructor Tbarcode.Create;
begin
//inherited Create();

strParse := TStringList.Create;
strRow   := TStringList.Create;

end;


destructor TBarcode.destroy();
begin

 strParse.free;
 strrow.Free;
end;

der constructor wird nicht durchlaufen
aber der destructor wird durchlaufen.
Wenn ich inherited Create() hinzufüge ändert sich leider auch nichts.

Gruß Gregor

[himitsu]

Inherited solltest du nicht weglassen ... wer weiß was in den "älteren" Konstruktoren wichtiges drin gemacht wird.


Wie wird denn die Instanz von TBarcode erzeugt?

[ueding]

Danke für Eure Hilfe

rufe jetzt Constructor bei der Initialisierung der DLL auf.
Funktioniert.

Gruß

Gregor