Menu Delphi:
Arquivo/novo/outro…
Pressione o botão OK [OK]
Clique no menu Arquivo/Salvar para salvar:
Digite o nome do projeto MyCom
Pressione o botão Salvar
Abra o arquivo de menu/novo/outro novamente…
Pressione o botão [OK};
Digite MyObject em coclassName
Pressione OK
Pressione mouse clique com o botão direito do mouse no imyobject
Imyobject/novo/método
Digite o teste em nome
Mudar para a página Parâmetros
Pressione Adicionar duas vezes
Altere o nome dos primeiros parâmetros para PSPARAM1, digite BSTR
Altere o nome dos segundos parâmetros para PsResult, digite BSTR*
Ponto de mouse para o campo modificador dos segundos parâmetros
Pressione o botão "..."
Tick Retval
Pressione OK
(O original [in] se torna [fora, retval], indicando que isso deve ser retornado e seu tipo é uma string)
Feche esta janela
(Você verá que ele cria um modelo de código para você)
Arquivo/Salvar
Digite o nome do arquivo myObject
Pressione Salvar
Alterar código
Clique em Ctrl+S para salvar
Projetar/construir mycom
Você pode ver que um arquivo mycom.dll foi gerado.
Este é o componente COM que você deseja.
Vamos falar sobre o método de chamar este componente COM:
Novo um novo aplicativo
Adicione um comobj nos usos
Coloque um botão em forma
Digite o código a seguir no evento OnClick do botão:
Código : |
var MyObject: Olevariant; Começar MyObject: = createoleObject ('mycom.myObject'); tentar ShowMessage (myObject.test ('Dawn')); Finalmente Varclear (MyObject); fim; fim; |
Execute ... e pressione o botão do botão1
Você verá uma mensagem ... isto é, o valor do método de teste do objeto COM é executado.