Discussion :

[ghost942]

Bonjour,

J'essaie de piloter ma base de données de mon application principale par une
fonction extérieure (DLL). Mais l'appel a la fonction DLL est un échec.

Voici la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function Rating(var datasource:Tdatasource):integer; stdcall;
begin
  try
  datasource.DataSet.First;
  repeat
    datasource.DataSet.Next;
  until Datasource.DataSet.Eof;
  except;
    showmessage('Rating: Error');
  end;
  result:=0;
end;

La DLL est bien implantée puisque j'appelle une fonction Somme() pour tester, et la connexion statique est donc OK.

Comment faire pour que cela fonctionne?

[ShaiLeTroll]

je trouve ton code bizarrement écrit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function Rating(var datasource:Tdatasource):integer; stdcall;
begin
  try
  datasource.DataSet.First;
  repeat
    datasource.DataSet.Next;
  until Datasource.DataSet.Eof;
  except;
    showmessage('Rating: Error');
  end;
  result:=0;
end;

moi, je l'aurais fait ainsi

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
function Rating(var ADataSource: TDataSource): Integer; stdcall;
begin
  if Assigned(ADataSource) and Assigned(ADataSource.DataSet) then
  begin
    with ADataSource.DataSet do
    begin
      if not IsEmpty() then
      begin
        First(); // un First sur un Ensemble vide peut parfois planté !
        while not EOF do
        begin
           // Result := Field...
           Next();
        end;
      end;
    end;
  end;
end;

Ensuite pour la gestion d'Exception, hum, en général, je préfère renvoyer un code d'erreur (genre -1) ... et que la DLL contienne une fonction GetLastError ... car le déclenchement d'exception peut lui même provoquer une erreur dans le programme selon le partage de la mémoire (j'ai eu des soucis je crois à ce sujet)

[ghost942]

ah cool, merci. Je vais tester ton code

(désolé pour la réponse tardive mais j'avais oublié de mettre la notification par émail)

[ghost942]

Hum, non, j'ai toujours un beau plantage de la DLL quand j'appelle cette fonction.

[Clorish]

Moi j'aime pas passer directement des objets a une Dll ... D'ailleur c'est assez casse-figure.

J'opterais pour une classe "controleur" possedant une interface qui serait transmise a la dll.
La dll manipule le controleur par les methodes de son interface et le controleur instancié dans l'executable appelle les methodes du Dataset (wrapper)

Ceci dit, c'est plus une question de conception qu'une reponse direct a ton probleme

[ghost942]

Mon idée de base c'est d'avoir des "plug-in".

D'une cote, j'ai mon appli. qui gère une base de données (SGBD Firebird)
et d'un autre cote, j'aimerai pouvoir faire des traitements spécifiques
qui seraient sous la forme de DLL que l'utilisateur aurait, ou aurait pas.

Donc voila, j'aimerais pouvoir acceder/piloter mes datasets a partir d'une DLL...

Par contre, je ne vois pas trop pour ton idée de classe controleur...?

[Clorish]

Dans le cadre de Plugin, 2 solutionsont a envisager :

Soit tous les plugins on une structure identique (ou tres tres proche) et on peut definir uen serie de methodes communes a toutes ces unités pour la manipuler.

Dans ce cas, on creer une classe avec une interface.
LA Dll s'occupe d'exporter cette interface vers l'exe qui manipule la Dll via ces methodes.
Apres la Dll s'occupe de personaliser les traitments en interne.

Soit tu fait le contraitre. C'est a dire qu'aucune structure comune n'etant envisageable, il te faudra passer par une sorte de controleur ou wrapper de classe qui sera exportés de l'exe pour manipuler les objets internes a l'exe.
Dans ton cas le dataSet.

J'entends par controleur une classe qui possede une proprietee de type dataset, dans laquelle tu affectera le dataset a manipuler dans la Dll.
Cette classe implemente une interface qui sera transmise a la Dll.
Le controleur va dont implementer des methodes (declarées dans l'interface) qui sont grosso-modo les memes que celles du DataSet que tu souhaite manipuler. Ces methodes feront appel aux methodes du dataset en lui transmettant les memes parametres. Ce ne sotn que des fonctions de redirection des parametres vers celles du DataSet.

Ne puvant pas transmettre directement un objet a une Dll, il te faut donc creer un opbjet specifique (un objet implementant une interface) qui lui pourat etre transmis a la dll en parametre de fonction ....

Tu peux creer un contrleur unique pour "piloter" l'ensemble de tes classes qui doivent etre utilisées dans la ou les dlls .. ou creer plusieurs objets controleurs ...

Pour plus d'infos je t'invite a te pencher sur les technqiues de creation de plugins, et de gestion des interfaces.
Sur ce site, il y a un tres bon exemple estrait du livre de paul Toth au format PDF traitant justement la gestion des plugins. Ca te donnera de bonnes bases

[ghost942]

Je vais regarder cela en détail alors.

Merci!