tenta retirar o StdCall. =]
----- Mensagem original ---- De: Jumper <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 20 de Julho de 2007 18:19:38 Assunto: 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 <willianjhonnes@ yahoo.com. br> 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. xpbtnCriptografa rClick(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] <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> Flickr agora em português. Você cria, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]