dll et chaine de caracteres

Question

Bonjour;

Apres une longue recherche sur les DLL et les chaine de caracteres et apres une grande lecture, je n'arrive toujours pas a resoudre mon problem qui est l'utilisation de fonction d'une DLL qui a comme parametres d'entré des pchar et me rend un pchar.

Veuillez me guider pour voir les choses en claire.

Le code de ma DLL:

library ActivLog_cleactivation;


{ Important .... }


uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Dialogs,
  StdCtrls;
{$R *.res}
////////////////////////


function CleActivation(NumSer:pchar; cle:pchar):pchar;   StdCall;
var
ns, act:String;
tcle, tnumser,tdiv,i,K,l, cleAsc:integer;


begin
ns:=numser;

 Delete(ns,6,1);
 Delete(ns,5,1);
 
  act:='';
  tcle:=length(cle);
  tnumser:=length(trim(ns));
  tdiv:=tnumser div tcle;
  if (tdiv<>0) then
  begin
   i:=1;
   K:=1;
   while (((i+tdiv)-1)<=tnumser)  do
    begin
    cleAsc:=ord(cle[K]);
    act:=act+inttostr(strtoint(Copy(ns,i,tdiv))*cleAsc);
    i:=i+tdiv;
    K:=K+1;
    end;
   if (i<=tnumser)  then
    begin
    act:=act+(inttostr(strtoint(Copy(ns,i,tnumser))*tcle));
    end;
  end
  else
  begin
    for l:=1 to tnumser do
    begin
    act:=act+inttostr(ord(ns[l])+ord(cle[l]));
    end;




  end;
//insertion de caractere aleatoire
  RandSeed:=tcle;


  Insert(chr(65+random(26)),act,2);
  Insert(chr(65+random(26)),act,3);
   result:=pchar(act);
end;
//////////////////////


 exports
CleActivation;
/////////////////
begin
end.

Le code source de mon application:

procedure TForm1.BTNActClick(Sender: TObject);
var
numero,cle:string;
cl, activ:string;


begin
cl:='abcd';
numero:= EdtNumSerie.text; // valeur saisie '1387ZE429617';
activ:=CleActivation(pchar(numero),pchar(cle));


end;

merci de m'aider pour resoudre se probleme.

asmahane24 · Answer

Je rajoute que je voudrai pas utiliser le 'ShareMem'
Merci

f0xi · Answer

function Truc(const A, B: PChar): PChar; stdcall;
var sA, sB, sR: string;
begin
  sA := A;
  sB := B;

  sR := sA +' '+ sB;

  result := PChar(sR);
end;

<hr size="2" width="100%" />

Dll et chaine de caracteres

2 réponses

Votre réponse

Discussions similaires