Discussion :

[DjPoke]

Bonjour !

J'ai le code suivant dans une dll :

Code :

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

procedure TFrmYmPlayerExample.FormCreate(Sender: TObject);cdecl;

Je voudrais utiliser 'exports' mais l'accès m'est refusé. exemple:

Code :

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

procedure TFrmYmPlayerExample.FormCreate(Sender: TObject);cdecl;exports name 'Play';

me sort un message d'erreur. Que faire ?

[Lung]

Dans l'aide, ils font ca différemment.
Tu as essayé ?

Code :

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

1
2
3
4
exports
 
  Divide(X, Y: Integer) name 'Divide_Ints',
  Divide(X, Y: Real) name 'Divide_Reals';

:

[DjPoke]

Malheureusement, cela ne fonctionne toujours pas. Voila en gros d'ou viens le nom de fonction si cela peux aider :

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
type
	TFrmYmPlayerExample = class(TForm)
    cmdChangeMixerMode: TButton;
    spnVolume: TSpinEdit;
    lblVolume: TLabel;
    lblMixerMode: TLabel;
    procedure FormCreate(Sender: TObject);cdecl;
    procedure FormDestroy(Sender: TObject);cdecl;
    procedure cmdChangeMixerModeClick(Sender: TObject);
    procedure spnVolumeChange(Sender: TObject);
      private
        	m_player: CYmEngine;
           m_mode: TYmMixerMode;
		private
       	function mixerModeToString(theMode: TYmMixerMode): string;
  		public
	end;
 
...............
 
etc
...............
 
exports
  TFrmYmPlayerExample.FormCreate(Sender: TObject) name 'Play',
  TFrmYmPlayerExample.Destroy(Sender: TObject) name 'Stop';

[Reisubar]

Ouh la... Tu veux exporter un objet de ta DLL ? Je pense que tu t'y pends mal. Exporte deux fonctions standard qui créeront et détruiront ta fenêtre mais pas directement les fonctions que tu dis, qui ne sont en outre que des évènements et non l'appel aux constructeurs et destructeurs.

[DjPoke]

le probleme c'est que je ne sais pas comment les appeler

[DjPoke]

enfin, je ne sais pas comment construire ou detruire la fenetre autrement

[Reisubar]

Je ne sais pas... Quelque chose comme :

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
var
  FrmYmPlayerExample: TFrmYmPlayerExample;
 
[...]
 
procedure Play(const AApplicationHandle: Cardinal); stdcall;
begin
  if not Assigned(FrmYmPlayerExample) then
  begin
     //Créer la fenêtre
     Application.Handle := AApplicationHandle;
     FrmYmPlayerExample := TFrmYmPlayerExample.Create;
     FrmYmPlayerExample.Show;
  end;
end;
 
procedure Stop; stdcall;
begin
  //détruire la fenêtre
  if Assigned(FrmYmPlayerExample) then
  begin
     FrmYmPlayerExample.Release;
     FrmYmPlayerExample := nil;
  end;
end;
 
exports
  Play,
  Stop;

[DjPoke]

Ok, merci beaucoup, je vais essayer !