Probléme de création de TDatamodule dans une form incluse dans une Dll.

**Hauwke** · 16/05/2006, 08h59

Bonjour,
Comme dit dans le titre, j'ai un petit probléme avec la création de TDatamodule dans une form elle-même contenues dans l'une de mes Dll et je ne rouve pas de piste de résolution...
Voici le code de ma fiche principale (Roxanne) qui initialise ma Dll (Ajax.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
procedure TRoxanne.FormActivate(Sender: TObject);
var
HdleDll:Thandle;
result:Boolean;
ShowSiwah: function(AppHdle:integer):boolean;stdcall;
begin
  ShowSiwah:=LierFct('Ajax.dll',HdleDll,'ShowSiwah');
    if assigned(ShowSiwah) then
      begin
        result:=ShowSiwah(Application.MainForm.Handle);
        Freelibrary(HdleDll);
        end
          else
          Showmessage('Erreur de Chargement de la librairie dynamique');
  end;

Le code de la fonction "LierFct" qui se trouve dans une autre unité (Cadmos):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function LierFct(Dll:string;var HdleDll:Thandle;NomFct:string;IdxFct:integer=-1):Pointer;
begin
  result:=nil;
  HdleDll:=0;
  HdleDll:=loadlibrary(PAnsichar(Dll));
    if HdleDll=0 then
    exit;
      if IdxFct<0 then
      result:=GetProcAddress(HdleDll, PAnsiChar(NomFct))
      else
        result:=GetProcAddress(HdleDll,PAnsiChar(IdxFct));
  end;

Le code de la Dll(Ajax) qui exporte ma fonction"ShowSiwah":

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
33
34
35
 
uses
  SysUtils,
  Classes,
  forms,
  Controls,
  USiwah    in 'USiwah.pas' {Siwah},
  UPhobos   in '..\..\Unite\UPhobos.pas',
  UPwdDm    in '..\..\Datamodule\UPwdDm.pas' {PwdDm: TDataModule},
  UMoeDm    in '..\..\Datamodule\UMoeDm.pas' {MoeDm: TDataModule};
var
OldAppHdle:longint=0;
{$R *.res}
function ShowSiwah(AppHdle:integer):boolean;stdcall;
var
F:TSiwah;
begin
  OldAppHdle:=Application.Handle;
  try
  Application.Handle:=AppHdle;
  F:=TSiwah.Create(Application);
    try
      if F.ShowModal=mrOk
      then Result:=true
      else
      Result:=false;
        finally
        F.Free;
        end;
     finally
     Application.Handle:=OldAppHdle;
     end;
  end;
exports
ShowSiwah;

Cette focntion "ShowSiwah" permet l'affichage d'une boite de dialogue modale qui gère les logins d'un programme.
Cette fiche appelle, donc, une unité de fonctions générales "Phobos" et deux Tdatamodule qui connectent deux bases de données Access. Les modules et leurs fonctions ont été testés sans probléme. Les fonctions de Phobos également. A noter que les fonctions de phobos travaillent dans la boite de dialogue sans soucis. Mais dés que j'essaie de créer mes deux Tdatamodule, c'est la catastrophe!
"EOleSysError, CoInitialize() n'a pas été appelé"!
Le pas à pas me donne la création des modules comme source de probléme. J'ai également testé une simple fiche appelant une form dans une dll sur laquelle j'ai placé des composants ADO pour une connection directe aux bases avec la même erreur!
Quelqu'un aurait-il une voie de recherche, un exemple, un tuto, ou tout simplement un avis à me donner afin que je régle mon probléme?
D'avance merci pour votre aide
Cordialement,
Hauwke

**anapurna** · 16/05/2006, 09h09

salut

le message d'erreur est pourtant clair
tu n'accede pas aux elements ole parce que tu as oublié d'appeler coinitialize
coinitialize te permet d'acceder et de partager tes objets ole
(activex)

@+ Phil

Ps n'oubli pas a la fin de faire appel a CoUninitialize

**Rayek** · 16/05/2006, 09h12

Rhooo un modérateur qui cherche pas sur le forum on aura tout vu

Je pense que ce lien devrait te donner une piste.

**Hauwke** · 16/05/2006, 09h32

Envoyé par Malatar

Rhooo un modérateur qui cherche pas sur le forum on aura tout vu

Je pense que ce lien devrait te donner une piste.

Je mérite bien plus que des coups de fouets, en effet!
J'ai cherché, j'ai cherché des trucs super compliqués... Mea culpa, mea maxima culpa!
Merci beaucoup de votre aide
Cordialement,
Hauwke