[delphi-br] desenvolvimento de dll

[felipe govoni]

bom dia

estou criando a seguinte dll:

function ValorAsc(Letra: String): Byte; Export; stdcall;
begin
  if Length(letra) > 0 then
    ValorAsc := Ord(Letra[1])
  else
    ValorAsc := 0;
end;

function Cripto(Texto: wideString) :wideString; Export; stdcall;
var
  Cont, Cod: Integer;
  Retorna: String;
begin
  for Cont := 1 to Length(Texto) do begin
    Cod := ValorAsc(Copy(Texto, Cont, 1));
  Retorna := Retorna + Chr(Cod + 57(*valor a ser adicionado - pode ser
modificado*));
end;
  Cripto := Retorna;
end;

function DesCripto(Texto: widestring): wideString; Export; stdcall;
var
  Cont, Cod: integer;
  Retorna: String;
begin
  for Cont := 1 to Length(Texto) do begin
    Cod := ValorAsc(Copy(Texto, Cont, 1));
  Retorna := Retorna + Chr(Cod - 57);
end;
  DesCripto := Retorna;
end;

exports
  cripto, descripto;




porem no software que vai chamar a dll da o seguinte erro:

Não foi possivel localizar o ponto de entrada do procedimento cripto na
biblioteca de vinculo dinâmico 'cript_dados.dll'


no programa que chama a dll fiz assim:


var
  Form1: TForm1;

implementation
function cripto(texto :widestring) :widestring; external 'cript_dados.dll';


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := cripto(widestring(Edit1.Text));
end;









alguem pode me ajudar?

desde ja agradeço



-- 
Felipe Govoni
---------------------
Programador
Fone 8472-8718


[As partes desta mensagem que não continham texto foram removidas]