Fonction dans une bpl qui retourne un String (avec string en argument)

Version imprimable

20/03/2008, 15h26
lejert

Fonction dans une bpl qui retourne un String (avec string en argument)

Salut,

Ca fait un bout de temps que je suis en train de m'enerver sur un bout de code qui ne fonctionne pas. :evilred::evilred::evilred::evilred:

Je voudrait simplment faire une fonction dans une BPL qui traite une chaine de caractère et retourne le resultat.

J'ai lu la FAQ à propos des DLL et je pense que le principe doit être le meme.

Je ne sais pas si le probleme viens de l'appel ou de la bpl elle meme. J'ai des erreurs 'rtl100.bpl' ou runtime error...

Quelque pourrait-il me donner un exemple ? Merci d'avance pour votre aide
20/03/2008, 15h47
Rayek

Pourrais tu montrer ton code, cela serait plus simple pour voir d'où vient ton problème.

Pour ma part j'utilise les BPL en tant que PlugIn pour mes logiciels et je fait appel à des fonctions + ou - complexe avec des retours divers (Type record, class, string, etc...).

Citation:

Pour ma part j'utilise les BPL en tant que PlugIn pour mes logiciels et je fait appel à des fonctions + ou - complexe avec des retours divers (Type record, class, string, etc...).

C'est à peu pres ce que je veux faire. C'est pour utiliser des méthodes de cryptage par exemple. Je veux pouvoir mettre une bpl dans le repertoire applicatif sans changer l'exe. Ex : tel client veux un cryptage MD5, je lui mets la bpl nommée crypt.bpl par exemple, et il le prog l'utilise de maniere transparente, mieux encore, je mets toutes mes méthodes de cryptage dans la bpl, et la configuration indique quelle méthode utiliser etc ...

J'ai créé pour apprendre a me servr des bpl, un projet avec deux Edits (edtIn et edtOut , l'un pour lentrée et l'autre pour la sortie du résultat).

Appel dans le projet
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 interface uses ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; function MD5(S : String; Buffer: pChar): Cardinal; stdcall; external 'kmd5.bpl'; *** procedure TForm1.btnGoClick(Sender: TObject); var Taille: Cardinal; Buf: pChar; begin //On récupère la taille du message Taille := MD5(edtin.Text, nil); //Puis on alloue la mémoire nécessaire GetMem(Buf, Taille); //On récupère/traite le résultat //MD5(Buf, Taille); //Et enfin on peut libérer la mémoire FreeMem(Buf);
Dans la bpl :
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 unit ExportsKmd5; interface uses MD5Api, SysUtils; function ComputeMD5(S : String) : String ; function MD5(S : String; Buffer: pChar): Cardinal; stdcall; // -- Export the functions. exports MD5; implementation function ComputeMD5(S : String) : String ; var Str : String; begin Result := MD5Api.MD5(S); end; function MD5(S : String; Buffer: pChar): Cardinal; stdcall; var msg: String; begin //On récupère le résultat. Notez que le type string n'est pas proscrit en interne msg := ComputeMD5(S); Result := Length(msg); //Si le buffer a été alloué, on y effectue une copie de la chaîne if Buffer <> nil then StrCopy(Buffer, pAnsiChar(msg)); end; end.
Voila ou j'en suis... :s

Je fonctionne différemment de toi car je charge dynamiquement les packages.

[edit]
J'ai peut être une solution mais à tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Type 
  TMD5 = function (S : String; Buffer: pChar): Cardinal; stdcall;
var
  PackHandle : integer;
  GetMD5 : TMD5;
  Resultat : Cardinal;
begin
  PackHandle := LoadPackage('Le_chemin_de_ton_package.bpl');
  GetMD5 := GetProcAddress(PackHandle,'MD5');
  Resultat := GetMD5(edtin.Text, nil);
end;

20/03/2008, 16h34
lejert

Ok, et comment fait-on si l'on veut charger la bpl statiquement dans ce cas ?
20/03/2008, 16h37
Rayek

Voir plus haut j'ai édité mon message
20/03/2008, 22h15
guillemouze

une question m'intrique dans ce sujet: pourquoi utiliser un bpl plutot qu'une dll?
21/03/2008, 11h32
lejert

Citation:

une question m'intrique dans ce sujet: pourquoi utiliser un bpl plutot qu'une dll?

En effet, je pourrait utiliser une dll dans ce cas précis. D'ailleurs le fonctionnement serait le meme.

les bpl offent une facilité quant a la gestion des objets.

Dans mon cas, je cherche à me familiariser avec les bpl afin d'avoir une modularite
21/03/2008, 11h36
guillemouze

Citation:

Envoyé par lejert

(...)les bpl offent une facilité quant a la gestion des objets.(...)

Tu connais un endroit ou je pourrai savoir quelles sont les differences avec une dll? ou si tu peu m'expliquer grosso modo les principales differences?

Merci
21/03/2008, 11h56
Rayek

un joli tuto ici :

http://sjrd.developpez.com/delphi/tutoriel/compoplugin/
21/03/2008, 12h03
lejert

Citation:

Tu connais un endroit ou je pourrai savoir quelles sont les differences avec une dll? ou si tu peu m'expliquer grosso modo les principales differences?

Bien que cela sorte du sujet de mon post, voici des liens :

La FAQ : Comment utiliser des objets avec des dll :http://delphi.developpez.com/faq/?pa...tentredlletexe

Pour les bpl, je ne suis qu'au début de leur utilisation, mais je sais que les BPL te permettent de charger plus facilment des classes dynamiquement, tu peux chercher du cote des fonctions GetClass et LoadPackage

Il y a aussi cet article http://dn.codegear.com/article/27178
21/03/2008, 12h24
guillemouze

hmmm ca m'a l'air vraiment tres interessant. Je me pencherai plus en profonduer la dessus des que j'aurai un peu de temps.

Un GRAND merci a vous deux :king: