Discussion :

[bouzaidi]

Bonjour,
Dans ma DLL ecrite en delphi j'ai une procedure qui appelle une fonction de mon exe ecrite en delphi aussi. Ca compile donc pas de problème de visibilité, mais à l'éxecution il m'envoi une erreur de type EAccessviolation.

Je donne le code de la fonction qui est dans l'exe et qui est appelée depuis ma 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
unit FM_Main;
 
interface
 
uses
{.....}
type
  TF_Main = class(TForm)
     ADOQuery1: TADOQuery;
     ADOConnectionSophis: TADOConnection;
     {et d'autres variables, fonctions et procedures}
end;
var
 {des variables...}
 procedure ExportToFile(...); stdcall; external NomDLL; // la fonction qui appele GetTypeDeal depuis la DLL
 function GetTypeDeal(refcon : string;  F_Main: TF_Main): string;  stdcall;
 exports GetTypeDeal;
 
implementation
function GetTypeDeal(refcon : string;  F_Main: TF_Main): string;
begin
   F_Main.AdoQuery1 := TADOQuery.Create(Application);
   F_Main.AdoQuery1.Connection       := F_Main.ADOConnectionSophis;
   F_Main.ADOQuery1.SQL.Text := 'select sicovam from histomvts where refcon ='+ refcon ;
   F_Main.ADOQuery1.open;
   F_Main.ADOQuery1.SQL.Text:='select ADI_GETALLOTEMENT(' + F_Main.ADOQuery1.FieldByName('SICOVAM').AsString + ') as colonne from dual';
   F_Main.ADOQuery1.open;
   Result := F_Main.ADOQuery1.FieldByName('colonne').AsString;
end;
{ici l'implementation d'autre fonctions et procedures de TF_MAIN TF_Main.f, TF_Main.g ... }
end.

Merci d'avance les gas

[MedGIR]

Bonjour, l'erreur doit etre provoquée sur cette ligne;

Code :

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

F_Main.ADOQuery1.SQL.Text:='select ADI_GETALLOTEMENT(' + F_Main.ADOQuery1.FieldByName('SICOVAM').AsString + ') as colonne from dual';

En effet, ta fonction essaie d'appele la valeur d'une colonne contenue dans le composant ADoQuery1 de la form F_MAin... Mais celle si n'est pas forcement crée...ou pas instanciée sous ce nom, d'ou l'erreur...

[bouzaidi]

Bonjour, l'erreur doit etre provoquée sur cette ligne;

Code :

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

F_Main.ADOQuery1.SQL.Text:='select ADI_GETALLOTEMENT(' + F_Main.ADOQuery1.FieldByName('SICOVAM').AsString + ') as colonne from dual';

En effet, ta fonction essaie d'appele la valeur d'une colonne contenue dans le composant ADoQuery1 de la form F_MAin... Mais celle si n'est pas forcement crée...ou pas instanciée sous ce nom, d'ou l'erreur...

Peux tu me dire ce que je dois faire car je ne suis que débutant en delphi STP
En fait quand je debugue mon programme l'erreur est generée à la premiere ligne de mon programme.
Merci d'avance

[philnext]

Tu as essayé de faire la même chose directement dans ton exe ?
Si ça marche et pas dans ta Dll regardes là :http://delphi.developpez.com/faq/?pa...alizenonappele


De manière générale il faut toujours faire une application avec tout dans un *.exe avant de passer en dll !!!