Mainform aus DLL laden?

[Hyperspacer]

Hallo,
Ich hoffe ich habe hier das richtige Forum erwischt, denn das Thema ist ziemliches Neuland für mich.

Also erstmal die Dinge die schon funktionieren(nur Hintergrundinfo):
Ich habe eine Anwendung, die ich über das Kontextmenü im Windows Explorer bei bestimmten Dateien(MP3s) starten kann. Wenn ich also viele Dateien markiere wird das Programm auch mehrfach gestartet. Ich habe mit der ONEinst Unit von Luckie dafür gesorgt, dass mein Programm nur einmal gestartet wird und dass alle markierten Dateien an diese eine instanz übergeben werden. Soweit so gut. Das Problem ist jetzt, dass das gegebene Programm inzwischen relativ groß geworden ist und lange zum laden braucht. Erst recht wenn eben 100 Dateien markiert wurden und das Programm 100mal gestartet wird.

Daher möchte ich mein ganzen Grundgerüst umwerfen und das Programm in DLLs verteilen, die immer nur dann geladen werden, wenn sie auch gebraucht werden. Auch die MainForm.
Ich hab inzwischen ein wenig über DLLs gelesen und weiß wie ich sie erstelle und wie ich "von außen" darauf zugreifen.

Wie schaffe ich es, dass ich die mainform als benutzer "normal" nutzen kann? Im Moment wird sie ja erzeugt und dan gleich wieder geschlossen...
Bisher hab ich folgendes:

Programm:

Delphi-Quellcode:

program bla;

uses
  windows, SysUtils;

type
  TStarteMainForm = procedure; stdcall;
  procedure StartMainForm;

Var
  DLL : THandle;

{$R *.res}

procedure StartMainForm;
Var
  StarteForm : TStarteMainForm;
begin
  DLL := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'test.dll'));

  If DLL <> 0 then
    begin
      @StarteForm := GetProcAddress(DLL, 'StartApplication');
      If @StarteForm <> nil then
        StarteForm;
    end;
end;

begin
  DLL := 0;

  StartMainForm;

  if DLL <> 0
    then FreeLibrary(DLL);
end;
end.

Die test.dll:

Delphi-Quellcode:

library MainDLL;

{ Haupt-DLL mit Hauptfenster }

uses
  Forms,
  Unit1 in 'unit1.pas' {MainForm};

{$R *.res}

procedure StartApplication; stdcall;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, MainForm);
  Application.Run;
end;


exports
  StartApplication;


begin
end.

[turboPASCAL]

Ich denke mal das ist der falsche Weg. Du wirst Probleme bekommen zB. beim zuweisen und abrufen von Events ( beispielsweise FormButtonXYZClick etc.).
Selbst das Erstellen und Testen wird sich als schwierig erweisen. Die Formen nemen an sich nur wenig Platz ein das meiste sind Bilder, Sounds & der gleichen.
Diese kann man aber einfach in eine DLL auslagern.

Zitat von Hyperspacer:

Ich hoffe ich habe hier das richtige Forum erwischt ...

Passt schon.

Zitat von Hyperspacer:

Ich habe mit der ONEinst Unit von Luckie dafür gesorgt, dass mein Programm nur einmal gestartet ...

Ok.

Zitat von Hyperspacer:

Das Problem ist jetzt, dass das gegebene Programm inzwischen relativ groß geworden ist und lange zum laden braucht.

Das wird wohl an deinem Programmcode liegen.

Zitat von Hyperspacer:

Erst recht wenn eben 100 Dateien markiert wurden und das Programm 100mal gestartet wird.

Wie jetzt ?

[Florian H]

Zitat von turboPASCAL:

Zitat von Hyperspacer:

Erst recht wenn eben 100 Dateien markiert wurden und das Programm 100mal gestartet wird.

Wie jetzt ?

Er hat es so programmiert, dass, wenn man 100 Dateien markiert und das Programm im Kontextmenü aufruft, seine Software 100x gestartet wird, sich 99x direkt danach wieder verabschiedet, und nur ein Programm überlebt und weitermacht ...

Ich denke, das wäre ein ziemlich guter Ansatzpunkt zur Optimierung

[turboPASCAL]

Zitat:

seine Software 100x gestartet wird, sich 99x direkt danach wieder verabschiedet

Autsch.

Zitat:

Ich denke, das wäre ein ziemlich guter Ansatzpunkt zur Optimierung

Auf alle Fälle.

Mit ParamStr() und ParamCount() die Strings in eine Liste verfrachten und gut ist.
Ggf. noch Drag&Drop einbauen.

[Hyperspacer]

Hallo,

Zitat:

Er hat es so programmiert, dass, wenn man 100 Dateien markiert und das Programm im Kontextmenü aufruft, seine Software 100x gestartet wird, sich 99x direkt danach wieder verabschiedet, und nur ein Programm überlebt und weitermacht ...

Genau so hab ich es gemacht Ich weiß, dass es nicht besonders ressourcensparend ist, aber einen anderen Weg kenne ich einfach nicht. Gerade deswegen möchte ich das hauptprogramm ja so klein wie möglich halten.

Zitat:

Die Formen nehmen an sich nur wenig Platz ein das meiste sind Bilder, Sounds & der gleichen.
Diese kann man aber einfach in eine DLL auslagern.

...Sowas hab ich gar nicht

Zitat:

Ich denke mal das ist der falsche Weg. Du wirst Probleme bekommen zB. beim zuweisen und abrufen von Events ( beispielsweise FormButtonXYZClick etc.).

Warum genau? Ich bin für Alternativen offen!

Liebe Grüße
Daniel

[Sunlight7]

Mahlzeit!

Ich kenne Dein Problem, und frage mich schon länger selbst, wie das andere Programme machen, wenn man X Dateien im Explorer öffnet, das da alle in das (läufende) Programm kommen, ohne das X Instanzen davon geladen werden.

Da ich das noch nicht rausgefunden habe, eine kleine Alternative wäre, ein 2., winziges nonVCL Programm zu haben, was die Dateinamen zusammen schaufelt und dann in das laufende Programm sendet oder das Hauptprogramm startet und die Parameter übergibt.

MfG, Sun

[turboPASCAL]

Bei D&D bekommt man eine Dateiliste der zu droppenden Dateien... das andere ist DDE (Dynamic Data Exchange) glaube über OLE oder so.

Muss jetzt wech zum Besuch...

[Hyperspacer]

Zitat von turboPASCAL:

Bei D&D bekommt man eine Dateiliste der zu droppenden Dateien... das andere ist DDE (Dynamic Data Exchange) glaube über OLE oder so.

Drag&Drop habe ich bereits eingebaut. Allerdings bin ich damit auch noch nicht so ganz glücklich. Das soll aber erstmal egal sein.
Dein Hinweis auf DDE hat mich leider nicht weitergebracht. Könntest du mir etwas genauer erklären, was du damit in meinem Fall meinst?

Ansonsten habe ich jetzt eine Möglichkeit gefunden eine Form in eine DLL auszulagern. In der DLL erstelle ich die From modal. Ich hoffe, dass sie damit so lange angezeigt wird, wie ich das dann will.
Nur leider kann ich es nicht testen, weil ich noch ein ganz anderes problem hab:

Delphi-Quellcode:

program bla;

uses
  windows, SysUtils;

type
  TStarteMainForm = procedure; stdcall;
  procedure StartMainForm;

Var
  DLL : THandle;

{$R *.res}

procedure StartMainForm;
Var
  StarteForm : TStarteMainForm;
begin
  DLL := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'test.dll'));

  If DLL <> 0 then
    begin
      @StarteForm := GetProcAddress(DLL, 'StartApplication');
      If @StarteForm <> nil then
        StarteForm;
    end;
end;

begin
  DLL := 0;

  StartMainForm;

  if DLL <> 0
    then FreeLibrary(DLL);
end;  // <-- Der Debugger will dieses end; WARUM? und wenn ich es einfüge, wird der Code vom begin bis zu dem end nicht ausgeführt?!
end.

[sirius]

Ich formatiere mal kurz um, was dein Compiler sieht:

Delphi-Quellcode:

program bla; 

uses 
  windows, SysUtils; 

type 
  TStarteMainForm = procedure; stdcall; 


procedure StartMainForm; //<--Hier ist der Fehler
Var 
  DLL : THandle; 
  procedure StartMainForm; //Nested Procedure
  Var 
    StarteForm : TStarteMainForm; 
  begin 
    DLL := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'test.dll')); 

    If DLL <> 0 then 
      begin 
        @StarteForm := GetProcAddress(DLL, 'StartApplication'); 
        If @StarteForm <> nil then 
          StarteForm; 
      end; 
  end; 

begin   //Procedure StartMainForm
  DLL := 0; 

  StartMainForm; 

  if DLL <> 0 
    then FreeLibrary(DLL); 
end; 

//begin
end.

Eine Form in der DLL ist keine schöne Lösung. Du nutzt dann das Applicationobject der DLL. Und da würde ich mir nicht sicher sein, ob das irgendwann einmal querschießt.

[Sunlight7]

Man könnte das Handle der App beim Aufrufen der DLL mit übergeben.

Quelle: Wiederverwenden von Formularen als DLLs

Zitat von Delphi Hilfe:

Beispiel

Das folgende Beispiel deklariert die Funktion GetPassword als eine Schnittstellenroutine. Die Export-Sektion schließt den GetPassword-Routinenamen ein, um sicherzustellen, daß die Funktion erfolgreich exportiert wurde.

Delphi-Quellcode:

unit PassForm;
interface
uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Forms, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
  TPasswordForm = class(TForm)
  ...   { hier stehen verschiedene Anweisungen }
  end;
var
  PasswordForm: TPasswordForm;
function GetPassword(APassword: Pchar; hAppHandle: Thandle): WordBool
exports GetPassword;
implementation
function GetPassword(APassword: Pchar; hAppHandle: Thandle): WordBool

begin
  Application.Handle := hAppHandle; { Verbinden des DLL Application handle 
              mit dem ladenden Application handle }
  PasswordForm := TPassWordForm.Create(Application);
  try
    if PasswordForm.ShowModal = mrOK then
    begin
      {Hier Quelltext, um die Werte der eingegebenen Paßworte zu überprüfen}
      Result := True;
    end;
  finally
    PasswordForm.Free;
  end;
end;
end.