Créer et utiliser une dll en 64 bits

Rebonjour,

C'est réglé. Le problème était du côté de Windev avec ses entiers (en 32 bits) et ses entiers système (en 64 bits)... et les pointeurs. J'ai un peu de mal à suivre avec les entiers système en 64 bits : Parfois requis, parfois non, et parfois interdits... :lol:
Si cela intéresse quelqu'un, voici mon exemple de test :

Code de la dll en Delphi/Lazarus

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
library libTest;
 
{$mode objfpc}{$H+}
 
uses
  SysUtils,
  Classes,
  strutils;
 
function Min(X, Y: Integer): Integer; stdcall;
begin
  if X < Y then Min := X else Min := Y;
end;
 
function WordsCount(aChar : Pchar): Integer; stdcall;
begin
  WordsCount := WordCount(aChar, [' ']);
end;
 
function ShowCoucou(aChar : Pchar): PChar; stdcall;
var
  sTmp : String;
begin
  sTmp := aChar;
  ShowCoucou := Pchar ('Coucou, '+ sTmp);
end;
 
exports
  Min index 1,
  WordsCount index 2,
  ShowCoucou index 3;
begin
end.

Rappel : pas de string pour passer des chaines mais des ShortStrings (jamais essayés) ou des PChars.

Code d'appel en Windev 18

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
SI PAS EnMode64bits() ALORS
 
	hInst32 est un entier 
	Res32 est un entier
 
	hInst32 = ChargeDLL("LibTest.dll")
	SI hInst32 = 0 ALORS
		Erreur(ErreurInfo())
	SINON
		Info("DLL chargée en  32 bits")
		Res32=AppelDLL32("LibTest.dll", "WordsCount","Ceci est une phrase de 7 mots.")
		Info(Res32)
		Res32=AppelDLL32("LibTest.dll", "ShowCoucou", "Untel")
		Info(ChaîneRécupère(Res32, crAdresseASCIIZ))
 
	   DéchargeDLL(hInst32)
	FIN
SINON
	hInst64 est un entier système
	Res64 est un entier système 
		hInst64 = ChargeDLL("LibTest.dll")
		SI hInst64 = 0 ALORS
			Erreur(ErreurInfo())
		SINON
			Info("DLL chargée en 64 bits")
			Res64=AppelDLL32("LibTest.dll", "WordsCount","Ceci est une phrase de 7 mots.")
			Info(Res64)
			Res64=AppelDLL32("LibTest.dll", "ShowCoucou", "Untel")
			Info(ChaîneRécupère(Res64, crAdresseASCIIZ))
 
			DéchargeDLL(hInst64)
		FIN
FIN

Pour accéder à mes bases, j'ai testé indifféremment FireDac et ZeosLib : RAS.