realmente marcos agora compilou mas quando clico no botao
da a mensagem de out of memory.
2008/11/26 Marcos Douglas <[EMAIL PROTECTED]>
> Acho que no caso das DLL's, as funções são case-sensitive.
> Experimente alterar cripto por Cripto na seção exports.
>
> Abraços
> Marcos Douglas
>
>
> On Wed, Nov 26, 2008 at 11:11 AM, felipe govoni <[EMAIL
> PROTECTED]<govoni.felipe%40gmail.com>>
> wrote:
> > 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]
> >
> >
> > ------------------------------------
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> >
>
>
--
Felipe Govoni
---------------------
Programador
Fone 8472-8718
[As partes desta mensagem que não continham texto foram removidas]
