Como utilizar uma classe criada na DLL ?
Pessoal,
Estou com o seguinte problema:
Criei uma DLL, em Delphi 5, ela é compilada sem nenhum problema.
Porem a função que principal irá retornar uma classe criada nela mesma, que teve o nome de [i:30a8847283][b:30a8847283]tpUsuario[/b:30a8847283][/i:30a8847283].
No meu executável ao declarar o uso da função [i:30a8847283][b:30a8847283][color=darkblue:30a8847283]EfetuarLogin[/color:30a8847283][/b:30a8847283][/i:30a8847283] (Function EfetuarLogin(psLogin, psSenha:String; piSistema:Integer):tpUsuario; external ´MinhaDLL.dll´ name ´EfetuarLogin´;) ele dá erro, claro a classe não existe no EXE mas sim na DLL.
Pergunta:
Como faço para que a Classe criada na DLL possa ser utilizada no EXE ?
Grato desde já pela atenção.
Estou com o seguinte problema:
Criei uma DLL, em Delphi 5, ela é compilada sem nenhum problema.
Porem a função que principal irá retornar uma classe criada nela mesma, que teve o nome de [i:30a8847283][b:30a8847283]tpUsuario[/b:30a8847283][/i:30a8847283].
DEFINIÇÃO DA CLASSE
type
tpUsuario = class
public
{ DECLARAÇÕES PUBLICAS }
Function Codigo:Integer;
Function Nome:String;
Function EMail:String;
Function Login:String;
{Declarações de funções}
Function AcessaTela(psIDTela:String):Boolean;
private
{ DECLARAÇÕES PRIVADAS }
{ Declações de variáveis}
iCodigo:Integer;
sNome:String;
sEMail:String;
sLogin:String;
lstTelasAcesso:TStringList;
{Declarações de funções}
end;
FUNÇÃO QUE SERÁ UTILIZADA PELO SISTEMA (EXE)
[color=darkblue:30a8847283]Function [/color:30a8847283]EfetuarLogin(psLogin, psSenha:[color=darkblue:30a8847283]String[/color:30a8847283]; piSistema:Integer):tpUsuario;
[color=darkblue:30a8847283]Begin[/color:30a8847283]
Result := PrepararDados(psLogin, psSenha, piSistema);
[color=darkblue:30a8847283]end[/color:30a8847283];
FUNÇÃO QUE SERÁ UTILIZADA PELA DLL
[color=darkblue:30a8847283]Function [/color:30a8847283]PrepararDados(psLogin, psSenha:[color=darkblue:30a8847283]String[/color:30a8847283]; piSistema:[color=darkblue:30a8847283]Integer[/color:30a8847283]):tpUsuario;
No meu executável ao declarar o uso da função [i:30a8847283][b:30a8847283][color=darkblue:30a8847283]EfetuarLogin[/color:30a8847283][/b:30a8847283][/i:30a8847283] (Function EfetuarLogin(psLogin, psSenha:String; piSistema:Integer):tpUsuario; external ´MinhaDLL.dll´ name ´EfetuarLogin´;) ele dá erro, claro a classe não existe no EXE mas sim na DLL.
Pergunta:
Como faço para que a Classe criada na DLL possa ser utilizada no EXE ?
Grato desde já pela atenção.
Kaworo
Curtidas 0
Respostas
Beppe
09/10/2003
Neste caso, aconselho a usar packages ou interfaces.
Ataliba
Ataliba
GOSTEI 0