Erro Criando DLL
18/02/2003
0
Olá Estou tentando Criar uma DLL, e está me dando o Seguinte Erro
´invalid operation point ´ Obs.: Estou usando o StdCall
//Dll Library Upp;
Uses
Windows,Messages,SysUtils,Variants,Classes,
Graphics,Controls,Forms,Dialogs;
{$R *.res}
Function Teste:String; Export;StdCall;
Begin
Result:=´1.0.0.1´;
end;
End;
Exports Teste ;
Begin
End.
// Aplicativo
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Function Teste:String;stdcall;
var
Form1: TForm1;
Function Teste:String; External ´C:\TBs Software\dll\Upp.dll´;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
Try
Edit1.Text:=Teste;
Except
End;
end;
end.
Ele executa dá o erro e retorna o valor
Obrigado !!!
´invalid operation point ´ Obs.: Estou usando o StdCall
//Dll Library Upp;
Uses
Windows,Messages,SysUtils,Variants,Classes,
Graphics,Controls,Forms,Dialogs;
{$R *.res}
Function Teste:String; Export;StdCall;
Begin
Result:=´1.0.0.1´;
end;
End;
Exports Teste ;
Begin
End.
// Aplicativo
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Function Teste:String;stdcall;
var
Form1: TForm1;
Function Teste:String; External ´C:\TBs Software\dll\Upp.dll´;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
Try
Edit1.Text:=Teste;
Except
End;
end;
end.
Ele executa dá o erro e retorna o valor
Obrigado !!!
Zector
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Anonymous
Não sei se é isso mas tente declarar o nome da dll ali onde vc colocou o caminho completo.
coloque a dll no mesmo diretorio da sua aplicacao.
Boa Sorte!
Gean Carlos
coloque a dll no mesmo diretorio da sua aplicacao.
Boa Sorte!
Gean Carlos
Responder
18/02/2003
Anonymous
Eu utilizo dll também, mas não declaro o stdcall e a dll funciona normalmente.
Dica: Só declare na dll aquelas units que vc realmente precisa usar.
Colocar a unit Forms faz a dll crescer muito de tamanho.
Espero ter ajudado.
Carlos Bastos
Dica: Só declare na dll aquelas units que vc realmente precisa usar.
Colocar a unit Forms faz a dll crescer muito de tamanho.
Espero ter ajudado.
Carlos Bastos
Responder
Clique aqui para fazer login e interagir na Comunidade :)