Coloque na uses tanto da DLL e do programa a Unit Sharemem, lembrando
que ela tem que ser a primeira a ser declarada...
Wesley
----- Original Message -----
From: Jumper
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 20, 2007 6:19 PM
Subject: Re: [delphi-br] Problemas com DLL...
Tente declarar no uses a unit : winprocs
ou então muda os tipos de parametros para pchar ou widestring.
Em 20/07/07, Willian Jhonnes L. dos Santos <[EMAIL PROTECTED]>
escreveu:
>
> Olá pessoal...
> Estou com o seguinte problema: escrevi uma DLL de criptografia e
> descriptografia para meus programas. Uma DLL simples, sem grandes
> rcursos, mas muito eficiente. O problema é que quando tento acessá-la
> via software, a função é executada, mas também é exibida a mensagem
> "Invalid pointer operation.".
>
> Seguem abaixo os exemplos dos fontes da DLL, da declaração da função e
> seu uso. Qualquer ajuda é bem vinda.
>
> []'s
>
> Willian
>
>
> //DLL
> library libcrypt32;
>
> uses
> ShareMem,
> SysUtils,
> Classes,
> Messages,
> Windows,
> StdCtrls,
> DCPcrypt2,
> DCPblowfish,
> DCPhaval;
>
> {$R *.res}
>
> function fncEncrypt_Blowfish_Haval(_pInitStr, _pString: String): String;
> export; stdcall;
> begin
> with TDCP_blowfish.Create(nil) do
> begin
> InitStr(_pInitStr, TDCP_haval);
> Result := EncryptString(_pString);
> Burn;
> Free;
> end;
> end;
>
> exports
> fncEncrypt_Blowfish_Haval;
>
> end.
>
> //Declaração
> function fncEncrypt_Blowfish_Haval(_pInitStr, _pString: String) : String;
> stdcall; external 'libcrypt32.dll' name 'fncEncrypt_Blowfish_Haval';
>
> //Uso
> procedure TfrmPrincipal.xpbtnCriptografarClick(Sender: TObject);
> begin
> eString2.Text := fncEncrypt_Blowfish_Haval(K_INIT_STRING, eString1.Text);
> end;
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.10.12/910 - Release Date: 21/7/2007
15:52
[As partes desta mensagem que não continham texto foram removidas]
