Problème de création d'udf

Version imprimable

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

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.

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

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
 
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

Citation:

Envoyé par devalender

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:

1 2 Result := 0; Exit;
correspond à

Code:

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 :

Citation:

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:

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 !

06/02/2012, 14h31
devalender

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