Discussion :

[bouzaidi]

Bonjour j'ai un exe que je veux le rendre en une dll, mais j'ai un problème car je ne sais comment me debarasser des objet Application dans mon .dpr. Voici mon code de mon dpr:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
program exportdeals;
 
uses
  ShareMem,
  Forms,
  Windows,
  FM_Main in 'FM_Main.pas' {F_Main};
 
var
  Mutex : THandle;
{$R *.res}
 
begin
 
  ExportDealRestoreMsg := Windows.RegisterWindowMessage('Export des Deals');
  Mutex := CreateMutex(nil, True, 'Export des Deals');
  if (Mutex <> 0) and (GetLastError = 0) then
  begin
    try
      Application.Initialize;
  Application.CreateForm(TF_Main, F_Main); // createform est une fonction implémentée dans la form TF_Main
  Application.Run;
    finally
      if Mutex <> 0 then
        CloseHandle(Mutex);
    end;
  end
  else
    SendMessage(HWND_BROADCAST, ExportDealRestoreMsg, 0, 0); 
 
end.

Si je met Createform sans l'instancier de l'objet application le compilateur ne l'accepte pas!!!
Merci d'avance pour votre aide.

Edit: Quand je change program en library afin d eme generer une dll, j'ai une erreur lors de la compilation du type: Access violation at adress ... in module 'coreide60.bpl'. Read of address ...
Merci

[sjrd]

Edit: Quand je change program en library afin d eme generer une dll, j'ai une erreur lors de la compilation du type: Access violation at adress ... in module 'coreide60.bpl'. Read of address ...

Ca ne m'étonne pas vraiment... Tu dois plutôt créer un nouveau projet, en choisissant DLL comme type de projet, puis replacer dans la DLL les unités utilisées dans le DPR.

Puis il faut encore marquer les clauses exports et ce genre de choses, qui font d'une DLL ce qu'elle est.

[Clorish]

Simplement en supprimant toutes les instances de Application et en ajoutant une fonction de creation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Procedure CreateMainForm; stdcall;
Begin
F_Main := TF_Main.Create(nil);
F_Main.Show;
End;
 
Exports
  CreateMainForm name 'CreateMainForm';

apres tu peux te passer de cette fonction en declarant le code de creation dans le begin/end mais cela veux dire que ta form sera cree des le chargement de la dll.

Apres tu peux implemnter une interface pour faciliter la gestion de ta form (parametrage) ou simplement cree une "api" (ie une fonction exportee pour chaques actions a effectuer sur la form depuis l'exe)

Pour la destruction, soit une fonction exportee, soit redefinir la methode exitproc de la dll :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var OldExit : Pointer;
 
Procedure MonExit;
Begin
F_Main.release;
ExitProc := @OldExit;
End;
 
Begin
OldExit := @ExitProc;
ExitProc := @MonExit;
F_Main := TF_Main.Create(nil);
F_Main.show;
End;

[CapJack]

bouzaidi, tu aurais donc changé de méthode, finalement, et suivi les premiers conseils qui t'avaient été donnés ? Il y a une raison précise ?

Sinon, je plussoie : il faut créer un nouveau projet. Normalement les unités-fiches passent sans adaptation dans un projet dll.

[Clorish]

la creation d'un nouveau projet me semble pas necessaire.
Par contre, la suppression de tous les fichiers autre que le dpr du source du projet me semble peut etre une chose a faire.

[bouzaidi]

la creation d'un nouveau projet me semble pas necessaire.
Par contre, la suppression de tous les fichiers autre que le dpr du source du projet me semble peut etre une chose a faire.

Pourquoi les supprimer alors que j'en ai besoin?? est ce que tu veux dire les mettre directement dans le dpr? Si oui comment ce faire alors que j'ai des form et des unit dans mon projet???