CRIAR DLL VB

X16X 12/03/2010 20:10:56
#336840
é possivel criar uma .DLL com determinadas funcoes no vb6 e depois utilizar essa .DLL em outras linguagens de programacao ?

Se possivel alguem poderia me mandar um exemplo.


OBRIGADO.
MOISES.ARAUJO 16/03/2010 22:35:28
#337127
Sim é possivel, ja criei dll em vb e utilizei em delphi, quanto a exemplos o site esta cheio deles.
FADSYSTEM 19/03/2010 14:28:59
#337410
CRIANDO DLL EM VB

1º Clique no menu File --> New Project --> ActiveX DLL

2º Renomei o nome do projeto de Project1 para VB_Delphi
3º Renomei o nome da classe de Class1 para Teste

4º Acrescente no conteudo de Teste o código abaixo:

[txt-color=#0000f0]Public Nome As String

Public Function Soma(Valor1 As Double, Valor2 As Double) As Double
Soma = Valor1 + Valor2
End Function

Private Sub Class_Initialize()
Nome = [Ô]FADSystem[Ô]
End Sub[/txt-color]

5º Clique no menu File --> Save Project As...
6º Clique no menu File --> Make VB_Delphi.Dll


RODANDO DLL CRIADO EM VD NO DELPHI

1º Inclua ComObj na lista uses.

2º Inclua um Button e inclua o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
[txt-color=#0000f0]var
Obj: OleVariant;
r: Integer;
s: string;[/txt-color]
begin
[txt-color=#0000f0] Obj:= CreateOleObject([ô]VB_Delphi.Teste[ô]);

r:= Obj.Soma(1, 3);
s:= Obj.Nome;

ShowMessage(IntToStr(r)); // saida --> 4
ShowMessage(s); // saida --> FADSystem

Obj:= Unassigned; // Libera objeto[/txt-color]
end;

-----------------------------------------------------------------------
Parece dificil, mas é facim, facim...

Atenciosamente,

Fabio Araujo Damascena
Tópico encerrado , respostas não são mais permitidas
Voltar