Estou com uma duvida na hora de instanciar um objeto COM em relação a construtor e tambem a associado deste objeto à um evento que o mesmo possui.
Abaixo eu mando o codigo como eu faria em Delphi e da Ok , so que preciso de fazer em delphi, então se alguém puder ajudar. fico grato.
AS DUVIDAS ESTÃO NO CODIGO DO VB ESCRITA EM MAIUSCULO
//CODIGO DELPHI
uses
MinhaDLL_TLB
.
.
public
cli : Cliente
prod : Produto
//evento click
procedure TForm1.Button1Click(Sender: TObject);
begin
//instanciando um cliente
cli := Cliente.Create
//instanciando um produto - aqui eu tenho obrigatoriamente que passar parametro
prod := Produto.Create(NIL)
//declarando o evento\listener que vai ficar ouvindo quando o produto for leiloado.
prod.OnBuy := Leiloado
end;
// evento que fecha a negociacao quando o produto é leiloado
procedure TForm1.Leiloado(ASender: TObject; const msg: WideString);
begin
Button1.Enable := false
end;
Bom para eu usar esse objeto COM em VB eu tenho que adicionar referência
beleza,isso foi feito
//CODIGO VB
declarar a variavel em VB fica assim, pelo menos do que eu entendi
e tb fiz e não deu nenhum erro
Dim cli As MinhaDLL.Cliente
//ESSA VARIAVEL FOI DECLARADA ASSIM PORQUE ELA POSSUI EVENTOS
//CERTO ?
Dim WithEvents pro As MinhaDLL.Produto
Evento do click do botão
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
//instanciando o cliente
cli = CreateObject("MinhaDLL.Cliente")
//NÃO ESTOU CONSEGUINDO INSTANCIAR O PRODUTO ACHO QUE É POR CAUSA DO PARAMETRO OBRIGATORIO
QUE NÃO SEI COMO PASSAR
//NÃO DA CERTO, DA ERRO
pro = CreateObject("MinhaDLL.Produto")
//DO QUE ENTENDI, QUANDO UMA VARIAVEL TEM EVENTOS DEVE SE COLOCAR O NOME DELA SEGUIDO DE "_" MAIS O NOME DO EVENTO
Public Sub pro_Leiloado()
tbConectado.Text = "Leiloado"
End Sub
Pergunta
leonardod
Ola Pessoal
Estou com uma duvida na hora de instanciar um objeto COM em relação a construtor e tambem a associado deste objeto à um evento que o mesmo possui.
Abaixo eu mando o codigo como eu faria em Delphi e da Ok , so que preciso de fazer em delphi, então se alguém puder ajudar. fico grato.
AS DUVIDAS ESTÃO NO CODIGO DO VB ESCRITA EM MAIUSCULO
Bom para eu usar esse objeto COM em VB eu tenho que adicionar referência beleza,isso foi feitoLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.