ich möchte gerne eine Create function in meiner DLL integrieren weiss aber nicht ob das geht.

Beim start der Dll möchte ich in DLL_PROCESS_ATTACH:
einen aufruf einbauen der aktionen ausführt die nur einmal beim start initialisiert werden dürfen.

Hab mir das so gedacht

BassVisMain.Create(Sender); Hier schon das erste problem. Sender steht ja nicht zur verfügung

Die Classe selber sieht so aus.

zusammenfalten · markieren

Delphi-Quellcode:

TBASSVis = class(TComponent)
private

public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

Var
BassVisMain : TBassVis;

implementation

constructor TBASSVis.Create(AOwner: TComponent);
begin

end;

destructor TBASSVis.Destroy;
begin

end;

markieren

Delphi-Quellcode:

  procedure LibraryProc(Reason: integer);
  begin
    case (Reason) of
      DLL_PROCESS_ATTACH:
      begin
      BassVisMain.Create(Sender);

Generell die frage ob sowas in DLL's überhaupt möglich ist.
Wenn ja wie regel ich das mit 'Sender'

gruss Emil

Natürlich kann Klassen in DLLs nutzen. Schwierig wird es nur, wenn man aus der DLL eine Klassenreferenz zurückgeben will. Bei deinem konkrten Problem, übergib einfach nil als Wert für den Sender.

Die Sections initialization und finalization sind deine Freunde hier.
Haben auch den Vorteil, das der Code auch dann nach läuft wenn er in die Echse gelinkt wird.

Zitat von Luckie:

Natürlich kann Klassen in DLLs nutzen. Schwierig wird es nur, wenn man aus der DLL eine Klassenreferenz zurückgeben will. Bei deinem konkrten Problem, übergib einfach nil als Wert für den Sender.

Ja woher soll ich das wissen ob das in DLL_PROCESS_ATTACH: funktioniert
Hätte ja sein können das sich die DLL recursive aufruft.

Werde es mal mit nil versuchen.

EDIT:

Habs versucht... EAC error Anwendung kann nicht gestartet werden.
Springt auch nicht in Create rein

gruss

Zitat von EWeiss:

Habs versucht... EAC error Anwendung kann nicht gestartet werden.
Springt auch nicht in Create rein

Kann auch unmöglich so gehen wie du es vorhat, da du Create auf die Referenz deines Typen anwendest, anstatt auf deinen Typen. Außerdem legst du die Instanz nirgends ab, wodurch du sie auch nicht freigeben kannst.

Zitat von Elvis:

Die Sections initialization und finalization sind deine Freunde hier.
Haben auch den Vorteil, das der Code auch dann nach läuft wenn er in die Echse gelinkt wird.

Habe im Thread oben unter Edit schon geschrieben das funktioniert nicht
Zumindest nicht so wie ich es mache.

gruss

Was Elvis meint:

markieren

Delphi-Quellcode:

var
  fs: TFileStream;
begin
  fs := TFileStream.Create(...);

Habe ich dich in letzter Zeit zu sehr mit VB(S) verdorben?

Zitat von Luckie:

Was Elvis meint:

markieren

Delphi-Quellcode:

var
  fs: TFileStream;
begin
  fs := TFileStream.Create(...);

Habe ich dich in letzter Zeit zu sehr mit VB(S) verdorben?

Kannst du mir das bitte erklären ? Bin ja eigentlich VB'ler und lerne noch.
Wo und für was soll ich as einsetzen.

EDIT:
In der Form gibt es ja ein create event was beim start nur einmal ausgeführt wird
sowas will ich in die DLL einbauen.

gruss

markieren

Delphi-Quellcode:

var
  fs: TFileStream; // Variable vom Typ TFileStream deklarieren. Hier wird unsere Objekt-Refrenz abgelegt
begin
  fs := TFileStream.Create(...); // Objekt erzeugen und Objektreferenz sichern
  try
    fs.MethodeXY; // eine Methode der Klasse TFileStream aufrufen
  finally
    fs.Free; // Objekt wieder zerstören
  end;

Was du wahrscheinlich gemacht hast:

markieren

Delphi-Quellcode:

var
  fs: TFileStream;
begin
  fs.Create(...);

Du hast eine Methode einer Klasse benutzt, ohne vorher die Klasse zu instanzieren / anzulegen. Es ist zwar der Konstruktor aber der Rest läuft ins Leere.

Ich habe mir mal den aufruf TFileStream.Create(...); angesehen
dieser erwartet eine übergabe eines string und Mode : word

Vielleicht bin ich auch zu blöd ???
Finde den zusammenhang mit der von mir oben aufgeführten funktion nicht.
Und wie ich damit kommunizieren soll das es funktioniert.

Das ist mir noch etwas zu hoch

gruss