Discussion :

[devalender]

bonjour a tous !
voici le code de ma dll que je compte utiliser sous firebird comme udf :

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
library Madll;
 
uses
  SysUtils,
  windows,
  Classes;
 
{$R *.res}
 
function ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
 
function ChangeMyString(const p: PChar): PChar; cdecl;
var
nomfichier: string;
begin
nomfichier := extractfilename(string(p));
Result := ib_util_malloc(Length(s) + 1);
StrPCopy(Result, s);
end;
exports
ChangeMyString;
begin
end.

Mon problème ici c'est que la dll ramène un seul resutat ! d'ou ma question comment la modifié pour quel ramène plusieurs.

[devalender]

je viens de modifier ainsi mais ça an fonctionne pas
voici le code :

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
 
library Madll;
 
uses
  SysUtils,
  windows,
  Classes;
 
{$R *.res}
 
function ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
 
function ChangeMyString(const p,e: PChar): PChar; cdecl;
var
nomfichier: string;
cheminfichier :string;
begin
nomfichier := extractfilename(string(p));
cheminfichier:=ExtractFileDir(string(e));
 
Result := ib_util_malloc(Length(nomfichier) + 1);
StrPCopy(Result, nomfichier);
 
Result := ib_util_malloc(Length(cheminfichier) + 1);
StrPCopy(Result, cheminfichier);
 
end;
exports
ChangeMyString;
begin
end.

je comprend pas bien si Result est un mot réservé ou ... ?
quelle est la variable qui encapsule la valeur qui retourné ?

merci a tous

[ShaiLeTroll]

je comprend pas bien si Result est un mot réservé ou ... ?
quelle est la variable qui encapsule la valeur qui retourné ?
merci a tous

Oui Result c'est la variable qui accueillera la valeur de retour de la fonction !

Code :

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

1
2
Result := 0;
Exit;

correspond à

Code c++ :

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

return 0;

Avant de t'attaquer au DLL et aux UDF FireBird, il te faudra mieux maîtriser le langage : Guide Pascal et Delphi - VI. Procédures et Fonctions - VI-C. Premières instructions en Pascal - VI-C-1. Affectations, la première ligne de cet article :

Pour fixer le résultat d'une fonction, il va nous falloir donner une valeur à une variable (et cette variable sera 'result').

Je te souhaite une bonne lecture des cours !


Après pour tout ce qui est échange de pointeur, j'ignore exactement comme les UDF FB fonctionne, mais c'est quelque chose de complexe aussi !
Semble que "ib_util_malloc" facilite cette partie, comme le SysAllocString pour les BSTR du COM
Utiliser avec le FREE_IT, cela libère automatiquement la valeur de retour, c'est effectivement très pratique !

Copier un extrait de la FAQ FireBird, c'est un début, maintenant, il te faut le comprendre !

Car dans ton premier essai, tu avais deux ib_util_malloc mais une seule libération implicite par FREE_IT donc une fuite mémoire !

Quelle version de Delphi ? 7 ? XE ?
Pense si tu as une version unicode que le PChar est en réalité un PWideChar, deux octets par caractère !

Dans ton second code, s n'est pas déclarée ??? je suppose que c'est nomfichier en réalité !

Une fonction ne renvoi qu'un seul résultat, il faudrait avoir un paramètre de sortie de type PPChar ou out PChar mais est-ce possible en UDF comme ceci :

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
procedure ChangeMyString(const p,e: PChar, out r1, r2: PChar); cdecl;
var
  nomfichier: string;
  cheminfichier :string;
begin
  nomfichier := extractfilename(string(p));
  cheminfichier:=ExtractFileDir(string(e));
 
  r1 := ib_util_malloc(Length(nomfichier) + 1);
  StrPCopy(r1, nomfichier);
 
  r2:= ib_util_malloc(Length(cheminfichier) + 1);
  StrPCopy(r2, cheminfichier);
 
end;

il te faut maintenant trouver le script FireBird de recensement avec DECLARE EXTERNAL FUNCTION, il n'y pas mention de paramètre de Sortie et pas mention à une libération de ce type de paramètre !

Tu vas devoir surement faire deux fonctions !

[devalender]

Delphi 2005 !
Merci vraiment, pour toutes ces réponses !
Je compte pour ne pas forcer faire deux fonctions différentes .
Merçi