Dll + função

[Ådriano 9]

E ai galera tenha a seguinte função:

 

 

function Tcripto.Criptografar(Texto: String):String;

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

 

coloco numa dll e sempre retorna um erro será que vcs podiam me ajudar.....

 

Muito Obrigado...

[Felipe Liberal 0]

E ai galera tenha a seguinte função:

 

 

function Tcripto.Criptografar(Texto: String):String;

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

 

coloco numa dll e sempre retorna um erro será que vcs podiam me ajudar.....

 

Muito Obrigado...

 

Adriano

 

Seria interessante colocar o código de como você salva o resultado do texto criptografado na DLL. Outra questão o Erro ocorre ao Salvar na DLL ou ao Resgatar o valor da mesma?

 

Att,

 

Felipe

[Ådriano 9]

E ai galera tenha a seguinte função:

 

 

function Tcripto.Criptografar(Texto: String):String;

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

 

coloco numa dll e sempre retorna um erro será que vcs podiam me ajudar.....

 

Muito Obrigado...

 

Adriano

 

Seria interessante colocar o código de como você salva o resultado do texto criptografado na DLL. Outra questão o Erro ocorre ao Salvar na DLL ou ao Resgatar o valor da mesma?

 

Att,

 

Felipe

 

 

 

 

 

 

E ai bl....A função esta deste jeito na Dll:

 

bla,bla,bla....rsrsrsr.....

 

 

function Criptografar(Texto: String):String;Stdcall

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

export

Criptografar;

begin

end.

 

E chamo ela na unit assim:

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

function Criptografar(Texto: String):String; external 'Minhadll.dll';

 

e no botão faço:

 

Edit2.text:=Criptografar(edit1.text);

 

...

Então até que mostra a criptografia só que sempre da um erro....

 

desde ja Agradeço a sua ajuda.....

[BuGFiX 0]

E ai galera tenha a seguinte função:

 

 

function Tcripto.Criptografar(Texto: String):String;

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

 

coloco numa dll e sempre retorna um erro será que vcs podiam me ajudar.....

 

Muito Obrigado...

 

Adriano

 

Seria interessante colocar o código de como você salva o resultado do texto criptografado na DLL. Outra questão o Erro ocorre ao Salvar na DLL ou ao Resgatar o valor da mesma?

 

Att,

 

Felipe

 

 

 

 

 

 

E ai bl....A função esta deste jeito na Dll:

 

bla,bla,bla....rsrsrsr.....

 

 

function Criptografar(Texto: String):String;Stdcall

const

masc=257;

var

r : string;

i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

 

export

Criptografar;

begin

end.

 

E chamo ela na unit assim:

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

function Criptografar(Texto: String):String; external 'Minhadll.dll';

 

e no botão faço:

 

Edit2.text:=Criptografar(edit1.text);

 

...

Então até que mostra a criptografia só que sempre da um erro....

 

desde ja Agradeço a sua ajuda.....

 

 

na dll use exports e não export

 

na declaração da função dentro do seu programa use

 

function Criptografa(texto: String): String; external name 'Minhadll.dll'

 

flw http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ådriano 9]

E ai colegas.....não funcionou não....a palavra Export eu digitei errado é Exports mesmo..........e na função não funciona com a palavra "NAME "

Ta Osso essa função.....