declara a sharemem no programa também. antes de todas as declaraçoes.
e como o rubem falou, põe a dll borlndmm.dll no mesmo diretorio do teu .exe
ó, essa dll da borland varia com a versao do delphi que você usa.
----- Mensagem original ----
De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 21 de Julho de 2007 3:34:36
Assunto: RE: [delphi-br] Problemas com DLL...
Quando vc usa a unit ShareMem, vc tem que distribuir, junto com sua DLL, uma
outra DLL chamada BORLANDMM.DLL. Veja se não é isso que tá faltando. Sds.
To: [EMAIL PROTECTED] os.com.brFrom: joaopaulo.jpo@ gmail.comDate: Fri, 20 Jul
2007 18:19:38 -0300Subject: Re: [delphi-br] Problemas com DLL...
Tente declarar no uses a unit : winprocsou 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]
____________ _________ _________ _________ _________ _________ _
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas
com Windows Desktop Search GRÁTIS!
http://desktop. msn.com.br/
[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]
