DLL en Delphi

Version imprimable

17/03/2005, 20h17
MANDIN Claude

DLL en Delphi

Bjr,
Je viens de crééer une DLL avec Delphi, qui fonctionne quant elle est appelée par un autre programme en Delphi.
Par contre j'ai voulu la charger sous Windev 9, mission impossible, il ne trouve pas le module.
J'ai essayé avec une DLL Windows et elle se charge. J'ai essayé avec une autre DLL de Delphi (Une que je n'avais pas crééer et Idem elle ne se charge pas. Ma question WINDEV et DELPHI sont ils ennemis ???

Ou il a t il quelque chose que j'oublie de faire ! et oui ma premiere DLL.
si quelqu'un a deja eu ce probleme !!!
18/03/2005, 09h16
Bidouille

Montre le code de ta DLL et comment tu l'appelles sous Windev

DLL en DelPHI et WINDEV

L'exemple de la DLL non crééer par moi, et qui ne fonctionne pas non plus
Code Projet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{ Copyright © 2001 Delphi 6 Developer's Guide Xavier Pacheco
  and Steve Teixeira }
 
{ Lire dans le chapitre 6 la note importante
  concernant le gestionnaire DELPHIMM.DLL. }
library CalendarLib;
 
uses
  ShareMem,
  SysUtils,
  Classes,
  DLLFrm in 'DLLFrm.pas' {DLLForm};
 
exports
  ShowCalendar;
 
begin
end.

Code Unit

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
 
{ Copyright © 2001 Delphi 6 Developer's Guide Xavier Pacheco
  and Steve Teixeira }
 
unit DLLFrm;
 
interface
 
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Grids, Calendar;
 
type
 
  TDLLForm = class(TForm)
    calDllCalendar: TCalendar;
    procedure calDllCalendarDblClick(Sender: TObject);
  end;
 
{ Déclare la fonction exportée }
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime; StdCall;
 
implementation
{$R *.DFM}
 
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
var
  DLLForm: TDllForm;
begin
  // Copie l'identificateur de l'application dans l'objet TApplication de la DLL
  Application.Handle := AHandle;
  DLLForm := TDLLForm.Create(Application); 
  try
    DLLForm.Caption := ACaption;
    DLLForm.ShowModal;
    Result := DLLForm.calDLLCalendar.CalendarDate; // Récupère la date dans Result
  finally
    DLLForm.Free;
  end;
end;
 
procedure TDLLForm.calDllCalendarDblClick(Sender: TObject);
begin
  Close;
end;
 
end.

Dans le Programme Windev je veux la charger en memoire
avec la commande

Code:

ChargeDLL("CalendarLib.dll")

Cette DLL ce strouve dans le même répertoire que le EXE.

Merci a toi de m'aider

18/03/2005, 12h02
Bidouille

ChargeDLL te charge la DLL en mémoire. Maintenant, il faut appeler les fonctions via AppelDLL32.

DLL en DelPHI et WINDEV

oui mais ChargeDLL () refuse de me charger la DLL il me retourne 0

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Erreur à la ligne 4 du traitement Clic sur Bouton1.
Vous avez appelé la fonction AppelDLL32.
Erreur au chargement de la DLL 'Calendarlib'
 
Détail de l'erreur système :
 
Le module spécifié est introuvable.
 (126)
 
 
**********************************************
 
Informations techniques
 
Projet : Gestion d'image
 
Dump de l'erreur du module <WD90VM.DLL> <9.01Cud>.
 
- Appel WL :
Traitement de <essai.Bouton1>, ligne <4>, thread <0>
Fonction <AppelDLL32>, n° de syntaxe <0>
 
- Niveau : erreur fatale (EL_FATAL)
 
- Code erreur : 2802
 
- Code erreur WD55 : 0
 
- Code d'erreur système : 126
 
- Message d'erreur système :
Le module spécifié est introuvable.
 
 
- Que s'est-il passé ?
Erreur au chargement de la DLL 'Calendarlib'
 
- Infos de debug :
Fonction (0,18)
 
- Infos attachées :
EIT_DATEHEURE : 18/03/2005 12:32:36
EIT_PILEWL :
  Clic sur Bouton1 (essai.Bouton1), ligne 4
 
- Identifiant dans le .err : 2802
- Vérifiez le nom de la DLL
- Vérifiez que le DLL se trouve dans un chemin accessible au processus (consultez l'aide de ChargeDLL ).
- Vérifiez qu'il s'agit d'une DLL 32 Bits valide sur cette plateforme
- Cette DLL utilise peut-être d'autres DLL qui ne sont pas disponibles.

ca c'est le message d'erreur
Voila le Code d'une DLL qui n'est pas de moi et qui ne peut pas etre chargée également

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Code Projet
{ Copyright © 2001 Delphi 6 Developer's Guide Xavier Pacheco
  and Steve Teixeira }
 
{ Lire dans le chapitre 6 la note importante
  concernant le gestionnaire DELPHIMM.DLL. }
library CalendarLib;
 
uses
  ShareMem,
  SysUtils,
  Classes,
  DLLFrm in 'DLLFrm.pas' {DLLForm};
 
exports
  ShowCalendar;
 
begin
end.

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Code Unit
{ Copyright © 2001 Delphi 6 Developer's Guide Xavier Pacheco
  and Steve Teixeira }
 
unit DLLFrm;
 
interface
 
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Grids, Calendar;
 
type
 
  TDLLForm = class(TForm)
    calDllCalendar: TCalendar;
    procedure calDllCalendarDblClick(Sender: TObject);
  end;
 
{ Déclare la fonction exportée }
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime; StdCall;
 
implementation
{$R *.DFM}
 
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
var
  DLLForm: TDllForm;
begin
  // Copie l'identificateur de l'application dans l'objet TApplication de la DLL
  Application.Handle := AHandle;
  DLLForm := TDLLForm.Create(Application); 
  try
    DLLForm.Caption := ACaption;
    DLLForm.ShowModal;
    Result := DLLForm.calDLLCalendar.CalendarDate; // Récupère la date dans Result
  finally
    DLLForm.Free;
  end;
end;
 
procedure TDLLForm.calDllCalendarDblClick(Sender: TObject);
begin
  Close;
end;
 
end.

Cette DLL comme la mienne fonctionne avec DELPHI

Merci a toi !

18/03/2005, 15h01
Bidouille

Essaye de tester en faisant une DLL plus simple :
http://www.eyrolles.com/Chapitres/9782212111439/19.pdf
18/03/2005, 15h48
MANDIN Claude

DLL en DelPHI et WINDEV

oui Ok je vais essayer
Je te tiens au courant

DLL en DelPHI et WINDEV

Ouf, enfin un bon debut.

Merci d'abord pour la doc. J'ai pris l'exemple du convertisseur Euro/franc

J'ai compilé, oh joie je lance windev, clic et miracle la DLL est chargée mais maintenant fonctionne t elle.
Là deçu le retour n'est pas bon, Le chiffre semble etre une instance.
Code:

1 2 3 4 5 6 Chargedll("Convert.dll") Montant est un reel / Normalement correspond a DOUBLE Le type monnetaire n'est pas accepté par la DLL Resultat est un reel Montant =15.00 (Euro) Resultat=appelDLL32("Convert","ConvertFranc",Montant)
Ou est l'erreur !
J'ai revérifié le code de la DLL mais tous semble OK

18/03/2005, 18h40
MANDIN Claude

DLL en DelPHI et WINDEV

un petit Rgts quelle version de delphi as tu. Pour moi c'est la version 6 car gratuite. Existe t il une version 7 perssonel ou meme 8 j'ai cherché sur le site BORLAND mais je n'ai vu que la version 2005.
18/03/2005, 19h19
MANDIN Claude

Delphi 7

C'est encore moi et se sera tout pour ce soir
J'ai vu sur le site de BORLAND le code d'activation pour delphi 2005 personnal alors il doit ou il a du exister !
si tu as une adresse , DELPHI est trés intérressant quoi que un peu déroutant au début.
21/03/2005, 09h16
Bidouille

Il faut te renseigner / chercher dans la section Delphi.
21/03/2005, 17h23
MANDIN Claude

DLL en DelPHI et WINDEV

Salut
je vient de recevoir un Email de PCSOFT concernant les DLL en PASCAL
pour que Windev puisse les utiliser avec APPELDLL32
il faut respecter les caracteristiques suivantes

- Type WinApi FAR PASCAL
- Declaration de la function en export dans le .Def

Pour moi le Type Winapi FAR PASCAL je ne sais pas a quoi cela correspond.
21/03/2005, 22h05
Alcatîz

Re: DLL en DelPHI et WINDEV

Bonjour !

Citation:

Envoyé par MANDIN Claude

Pour moi le Type Winapi FAR PASCAL je ne sais pas a quoi cela correspond.

C'est expliqué ici : http://support.microsoft.com/default...kb;en-us;99487