coloque o seguinte comando na chamada:
cdecl; external 'biblio.dll' ;
"Atenciosamente, Evaldo Avelar Marques"
----- Mensagem original ----
De: Alexandre G. de Oliveira <[EMAIL PROTECTED]>
Para: Lista Delphi - Yahoo <delphi-br@yahoogrupos.com.br>
Enviadas: Quarta-feira, 8 de Agosto de 2007 9:31:10
Assunto: [delphi-br] Erro ao usar dll
Olá a Todos...
Pessoal tenho a seguinte dll:
library Biblio;
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, Buttons, StdCtrls,
Mask, DBCtrls, ExtCtrls,
ActnList, ComCtrls, FMTBcd, Provider, DBClient;
{$R *.res}
procedure LimpaCampos( vForm: TForm; vFormHandle:
THandle);
var i : Integer;
begin
for i := 0 to (vForm.ControlCount -1) do
if vForm.Controls[ i].ClassName = 'TEdit' then
begin
TEdit(vForm. Controls[ i]).Text: ='';
end;
for i := 0 to (vForm.ControlCount -1) do
if vForm.Controls[ i].ClassName = 'TDBEdit' then
begin
TDBEdit(vForm. Controls[ i]).Text: ='';
end;
for i := 0 to (vForm.ControlCount -1) do
if vForm.Controls[ i].ClassName = 'TCheckBox' then
begin
TCheckBox(vForm. Controls[ i]).Checked: = False;
end;
for i := 0 to (vForm.ControlCount -1) do
if vForm.Controls[ i].ClassName = 'TDBCheckBox' then
begin
TDBCheckBox( vForm.Controls[ i]).Checked: = False;
end;
end;
Exports
LimpaCampos;
begin
end.
E no Form frmCadKits declaro a procedure e a dll.
...
public
{ Public declarations }
end;
procedure LimpaCampos( vForm: TForm; vFormHandle:
THandle); external 'biblio.dll' ;
var
...
E faço uma chamada no show do Form
procedure TfrmCadKits. FormShow( Sender: TObject);
begin
LimpaCampos( frmCadKits, frmCadKits. Handle);
end;
E recebo o erro:
Project Aplicativo.exe raised exception class
EAccessViolation with message 'Access violation at
address 045DF5B in module Aplicativo.exe' . Read of
address 00000180'. Process stopped. Use Step or Run to
continue.
Alguém tem uma solução, já tentei de várias formas e
nada, sempre dá esse erro. No mesmo diretório da
aplicação estão a biblio.dll e a borlndmm.dll.
Grato a todos.
Alexandre.
Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.
yahoo.com/ mailalertas/
<!--
#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;}
-->
Alertas do Yahoo! Mail em seu celular. Saiba mais em
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
