TStrings et dll

Version imprimable

03/04/2007, 14h09
julien_d

TStrings et dll

Bonjour,

Je dois envoyer à ma procédure stockée dans une dll 2TStrings. J'ai lu les sujets à propos des Strings et dll et je ne comprends pas ceci:
"Déployer la DLL 'BORLNDMM.DLL' (Borland Memory Manager) avec votre propre DLL.
Cette bibliothèque de Borland remplace le gestionnaire de mémoire par défaut de votre DLL dans le but de permettre l'échange en mémoire de vos variables de type string. "
Que dois-je faire précisement ?

Cordialement
03/04/2007, 14h18
octal

vas y voir la section 2-5. DLL & les chaînes de caractères dans ce cours ... qui est sur développez.com ;)

http://flash-koti.developpez.com/art...elphi/102-dll/
03/04/2007, 14h27
ShaiLeTroll

Personnellement, je suis totalement opposé à l'utilisation de BORLNDMM.DLL et ShareMem (sinon c'est quand même écrit en toute lettre dans le dpr lorsque l'on créé une nouvelle DLL mais bon ...)

Utilise un Tableau de PChar, ... ou même de ShortString (si longueur inférieur à 255 pour la plus grande chaine), ça te posera moins de problème et laissera ta DLL compatible avec le C !
03/04/2007, 14h29
Gaadek

Le type string est propre à Borland (allocation de mémoire non standard par rapport à un type entier ou PChar).

Cela signifie donc que si tes fonctions sont prototypées avec le type string ou dérivés (TStringList etc), tu prends le risque d'avoir des erreurs à l'utilisation de ta bibliothèque.

Pour palier à ce problème, il faut utiliser borlndmm.dll, mais je ne suis pas sur que cela règle tous les problèmes, notamment si tu veux utiliser ta dll avec un code C ou autre (ce qui est généralement le cas: la dll permet d'exporter ses fonctions, sans les limiter à un langage particulier)

Je conseille donc d'essayer d'utiliser au maximum les types standard!
03/04/2007, 14h58
julien_d

Merci de vos avis et réponses. Je suis en train de faire avec un tableau de pchar. Je vais voir si ca va avec la suite de mon programme.
04/04/2007, 11h56
julien_d

Bonjour, alors avec le tableau de pchar, c'est une catastrophe, donc je reviens sur mes strings.

Citation:

Notification d'une exception du débogueur
---------------------------
Le projet inetinfo.exe a provoqué une classe d'exception EConvertError avec le message 'Impossible d'affecter TStringList à TStringList'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

c'est le message qui apparait lors de l'appel de la procedure qui est dans ma dll.
Je vais donc devoir utiliser FastSharemem ou Sharemem si j'ai bien compris. Mais le soucis est que je ne trouve aucune explication claire, peut-être par la simplicité de la chose :roll: , pour les utiliser.
Petit plus d'un cas classique, ce n'est pas un .exe qui appelle ma dll mais une dll XMLRad.

Je cherche donc quelqu'un qui pourrait me dire où placer quoi car la je suis vraiment perdu.

Cordialement
04/04/2007, 12h00
Gaadek

Tu pourrais nous donner le bout de code de ta fonction dll utilisant ton tableau de PChar? A mon avis, tu essayes d'utiliser les TStringList avec le PChar, et ça, Delphi n'apprécie pas vraiment (je crois que tu mélanges les types)

First problem:

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
procedure TDST_XMLMagicBM.InsertXML_MAGICBeforeXMLGram(XMLGram: IXMLGram;
  e: TBeforeXMLGramEventArgs);
var    chaine: array[0..8] of pchar;
        temp: string;
        tempInt : integer;
        rqparam : pchar;
begin
 
if Context.Values['DATABASE'] <> Context.Values['DATABASE2'] then
        begin
        temp := Context.Values['DATABASE2'];
        end
else    begin
        temp := Context.Values['DATABASE'];
        end;
chaine[0] := pchar(temp);
 
if Context.Values['USER_NAME'] <> Context.Values['USER_NAME2'] then
        begin
        temp := Context.Values['USER_NAME2'];
        end
else    begin
        temp := Context.Values['USER_NAME'];
        end;
chaine[1] := pchar(temp);
 
if Context.Values['PASSWORD'] <> Context.Values['PASSWORD2'] then
        begin
        temp := Context.Values['PASSWORD2'];
        end
else    begin
        temp := Context.Values['PASSWORD'];
        end;
chaine[2] := pchar(temp);
temp := Context.Values['FILENAME'];
        chaine[3] := pchar(temp);
temp := Context.Values['RQPARAM'];
        chaine[4] := pchar(temp);
temp := Context.Values['DIRNAME'];
        chaine[5] := pchar(temp);
 
temp := Context.Values['RQPARAM'];
        rqparam[0] := pchar(temp);
 
creation_fichier(chaine, rqparam);
end;

Selon la valeur que je mets dans mon formulaire pour la valeur "FILENAME", je me retrouve avec des valeurs incoherentes dans mon tableau.

Second probleme:
Si les valeurs sont cohérentes (qu'il ne manque pas un caractère dans un des pchar, ou qu'un pchar a pris la meme valeur qu'un autre), j'envoie donc à ma procédure de la dll dont j'ai modifié les params pour accepter les pchar.

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
procedure creation_fichier(tabchaine : array of pchar; param: pchar);
  var  rqparam, chaine : TStrings;
        i : integer;
  begin
{
0 DATABASE
1 USER_NAME
2 PASSWORD
3 FILENAME
4 RQPARAM
5 DIRNAME
6 FORMATDONNES
7 IDXML
8 FIRSTCLASS
}
rqparam := TStringList.Create;
rqparam.clear;
chaine := TStringList.Create;
chaine.clear;
 
for i := 0 to 9 do
        begin
        chaine.Add(tabchaine[i]);
        end;
rqparam.Add(param);
...

Alors là pareil, c'est assez folclo. Une valeur qui avait été envoyée correctement, change lors de l'affectation dans chaine. exemple: toto.txt devient toto.tx#$0;

Tout est aléatoire dans les affectations d'où mon "insistance" pour le passage par Tstrings car quand j'avais testé ma procédure de la dll dans la dll XMLRad, tout se passé tres bien.

04/04/2007, 13h01
philnext
Déja juste une remarque : tu devrais retranstyper dans ta DLL, je traduis :
Transformer
Code:

1 2 chaine.Add(tabchaine[i]);
en :
Code:

1 2 chaine.Add(string(tabchaine[i]));
04/04/2007, 13h05
philnext

Sinon pour ton 1er pb 'je me retrouve avec des valeurs incohérentes...' tu as comparé ton tableau avant et après l'appel à la DLL ?

Code:

1 2 3 4 5 6 7 8 if Context.Values['DATABASE'] <> Context.Values['DATABASE2'] then begin temp := Context.Values['DATABASE2']; end else begin temp := Context.Values['DATABASE']; end;
pourqoi??
Code:

1 2 temp := Context.Values['DATABASE2'];
suffit, non??
pourqi un tableau de PCha? une seul valeur Pchar suffit , tes valeur séparé ar des ";" ou autre, ou simplement utlise un tableau static de char

Code:

chaine:array[1..1024] of char

ou meme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 TMychar=array[1..50] of char; donnees=record DATABASE:TMychar; USER_NAME:TMychar; PASSWORD:TMychar; FILENAME:TMychar; RQPARAM:TMychar; DIRNAME:TMychar; FORMATDONNES:TMychar; IDXML:TMychar; FIRSTCLASS:TMychar; end;
bah une idée, mais surement il en a d'autre sans cassé la téte avec les TSrings

04/04/2007, 14h10
julien_d

Citation:

Envoyé par philnext

Sinon pour ton 1er pb 'je me retrouve avec des valeurs incohérentes...' tu as comparé ton tableau avant et après l'appel à la DLL ?

les valeurs incohérentes apparaissent avant l'envoie dans la procedure de la dll.
exemple qui arrive:
normalement je devrais avoir du genre:
chaine('base','user','pass' ...)

sauf que j'ai avant l'envoie chaine('base*','user*','pass*' ...) * etant un carré ou pire chaine('base','user','base*' ...) . ce n'est que 2 des cas possible.:bug:

Citation:

Envoyé par edam

pourqi un tableau de PCha? une seul valeur Pchar suffit , tes valeur séparé ar des ";" ou autre, ou simplement utlise un tableau static de char

Si j'ai bien compris ton idée, tu veux mettre les variables les une a la suite des autres dans un tableau de char ?La plupart des variables récupérées font plus de 300 caracteres. il me faudrait un tableau de char de plus de 2000 caractères pour être sûr de pouvoir stocker tout.
04/04/2007, 15h08
philnext

Citation:

j'ai avant l'envoie chaine('base*','user*','pass*' ...) * etant un carré ou pire

Je ne sais pas où tu 'vois' ces chaines mais je pense que c'est simplement l'affichage de ton debuggeur qui essaye d'afficher des PChar, donc des chaines qui ont le caractère #0, en croyant que ce sont des Strings.
Je pense donc que tout est correct.
Peux tu simplement vérifier, en affichant dans ta DLL, le contenu de ton tableau mais en transtypant en string comme je te l'ai indiqué dans mon post précédent ?
04/04/2007, 15h38
julien_d

je fais essayer de faire ce que tu as dit même si je viens de résoudre par moi même mon problème initial avec les Tstrings.

D'abord info sympa, on peut envoyer des Tstrings à une dll en temps que parametres. L'erreur que j'avais été:

procedure envoielesTString
begin
recoielesTStrings(Tstrings1, TStrings2);
end;

procedure recoielesTStrings(TStrings1, TStrings2)
begin
functionX(TStrings2); il n'aimait pas que j'appelle la fonction functionX avec directement le parametre TStrings2. j'ai donc créé une nouvelle TStrings qui est la copie de TStrings2 et mis la nouvelle TString en parametre de functionX
end;
04/04/2007, 16h03
julien_d

j'ai fait ce que tu m'as demandé et il y a des problèmes malgrès ta méthode, du genre la string égale à 'mo ' au lieu de 'mot'.
04/04/2007, 16h08
philnext

Bon..le principal c'est que tu ais ta solution. Si j'ai le temps je regarderais ton pb de plus près car c'est un peu bizarre...