Por favor dah uma olhada como esta no arquivo _TLB.pas, o nome da OCX eh
NewMultiMap.ocx
Existem duas referencias a esta funcao no arquivo .PAS que o Delphi gerou.
_NewMultiMapCtl = interface(IDispatch)
['{BFC9C8B5-8FAC-4D89-A1DB-79D04D05B824}']
function OpenWorkSpace(var cPathWorkSpace: WideString): WordBool;
safecall;
E tem assim tb:
_NewMultiMapCtlDisp = dispinterface
['{BFC9C8B5-8FAC-4D89-A1DB-79D04D05B824}']
function OpenWorkSpace(var cPathWorkSpace: WideString): WordBool;
dispid 1610809377;
O codigo correto do que estou fazendo:
type
TOpenWork = function(var cPathWorkSpace: WideString): WordBool;
procedure TForm1.Button3Click(Sender: TObject);
var
Handle: Integer;
WorkSpace: TOpenWork;
begin
Handle := LoadLibrary('NewMultiMap.ocx');
if (Handle <> 0) then
begin
@WorkSpace := GetProcAddress(Handle, 'OpenWorkSpace');
if (@WorkSpace <> nil) then
begin
Label3.Caption := 'OK';
end;
FreeLibrary(Handle);
end;
end;
Macfly escreveu:
> Olá...
> Acho que vc deverá incluir a unit gerada quando vc importou o ocx no
> seu projeto...
> e então dar uma olhada no source dela.. para verificar quais funções e
> classes estão disponíveis...
>
> []''s
> Macfly
>
>
>
> -=SchiavoR=- <[EMAIL PROTECTED]> wrote:
> Acho que eu sou muito burro, pq naum to conseguindo achar exemplos no
> google sobre isso, estou tentando seguir o exemplo do Delphi sobre DLL.
>
> Desta forma eu consigo obter um Handle para a OCX, através do
> LoadLibrary, mas a função GetProcAddress não esta conseguindo encontrar
> a função.
>
> Ajuda PLZ!
>
> type
> TOpenWork = function(PathTable: String): Boolean;
> ....
> ....
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Handle: Integer;
> OpenWS: TOpenWork ;
> begin
> Handle := LoadLibrary('TESTE.OCX');
> if Handle <> 0 then
> begin
> @OpenWS:= GetProcAddress(Handle, 'OpenWorkSpace');
> if (@OpenWS<> nil) then
> begin
> OpenWS('c:\teste.map');
> Label1.Caption := 'OK';
> end;
> FreeLibrary(Handle);
> end;
> end;
>
>
>
> Rodrigo Othavio Farias escreveu:
>
> > Cara vc precisa da documentação desse activex, sem ela vc nao faz
> > nada, é a
> > mesma coisa que querer usar uma dll normal sem saber as funcoes e os
> > parametros dela
> >
> > Pra usar basicamente vc vai chamar as funções como se fossem dlls
> > normais,
> > mas vc tem que saber quais sao as funcoes e quais os parametros de
> > entrada e
> > saida
> >
> > Se vc procurar bem na internet com certeza vai achar algum exemplo de
> > uso de
> > activex no delphi, procura por
> >
> > delphi vb activex
> >
> >
> > Ou algo do genero que deve aparecer varios exemplos de uso.
> >
> >
> > []´s
> > Rodrigo O. Farias
> >
> >
> > ----- Original Message -----
> > From: -=SchiavoR=-
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Wednesday, June 01, 2005 2:30 PM
> > Subject: RES: [delphi-br] Duvidas ActiveX
> >
> >
> > Vixe agora ficou fogo.
> >
> > Posso te contar um segredo?
> >
> > O povo que desenvolveu não sabe como faz pra usar no Delphi.
> >
> > To bem de suporte né?
> >
> > Será que se eu postar o _TLB que o Delphi gerou com as definições das
> > interfaces reconhecidas na OCX alguém aqui conseguiria entender e me
> > ajudar?
> >
> > Walter Alves Chagas Junior escreveu:
> >
> > > éh, biblioteca são outros 500. Você vai ter que consultar a
> > > documentação do
> > > produto pra ver como fazer pra instalar ela
> > >
> > >
> > >
> > > []s
> > >
> > > Walter Alves Chagas Junior
> > > Projeto e desenvolvimento
> > > Telemont Engenharia de telecomunicações
> > > Belo Horizonte - MG - Brazil
> > > [EMAIL PROTECTED]
> > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > >
> > >
> > > > -----Mensagem original-----
> > > > De: -=SchiavoR=- [mailto:[EMAIL PROTECTED]
> > > > Enviada em: quarta-feira, 1 de junho de 2005 13:51
> > > > Para: delphi-br@yahoogrupos.com.br
> > > > Assunto: Re: RES: RES: [delphi-br] Duvidas ActiveX
> > > >
> > > >
> > > > Não é exatamente um componente eh uma biblioteca que
> > > > implementa funções
> > > > e procedimentos (interface) criada em visual basic pra execução de
> > > > comandos e interação com outro programa.
> > > >
> > > > Walter Alves Chagas Junior escreveu:
> > > >
> > > > > Ai eu não sei. Teria que ver o componente do que se trata.
> > > > Mas deveria ter
> > > > > viu.
> > > > >
> > > > >
> > > > >
> > > > > []s
> > > > >
> > > > > Walter Alves Chagas Junior
> > > > > Projeto e desenvolvimento
> > > > > Telemont Engenharia de telecomunicações
> > > > > Belo Horizonte - MG - Brazil
> > > > > [EMAIL PROTECTED]
> > > > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > > > >
> > > > >
> > > > > > -----Mensagem original-----
> > > > > > De: -=SchiavoR=- [mailto:[EMAIL PROTECTED]
> > > > > > Enviada em: quarta-feira, 1 de junho de 2005 11:40
> > > > > > Para: delphi-br@yahoogrupos.com.br
> > > > > > Assunto: Re: RES: [delphi-br] Duvidas ActiveX
> > > > > >
> > > > > >
> > > > > > Olá Walter, obirgado por responder.
> > > > > >
> > > > > > O Delphi compila o pacote e instala belezinha, se eu for na
> opção
> > > > > > Project/Options/Packages eu encontro ela na lista, e existe
> o .BPL
> > > > > > criado pra ela.
> > > > > >
> > > > > > Porém na paleta ActiveX não existe nenhum ícone para ela,
> > > > > > acho que ela
> > > > > > não possui componente visual, apenas funções e procedimentos.
> > > > > >
> > > > > > Como proceder nisso?
> > > > > >
> > > > > > Walter Alves Chagas Junior escreveu:
> > > > > >
> > > > > > > O controle ActiveX, instalado no Delphi, será tratado como
> > > > > > um componente.
> > > > > > > Basta colocar o componente no formulário e usar as
> > > > propriedades e os
> > > > > > > recursos dele como se estivesse usando um DBEdit, por exemplo,
> > > > > > >
> > > > > > > So não se esqueça que quando você levar seu projeto para o
> > > > > > cliente, você
> > > > > > > terá que levar as dll´s/ocx´s referentes ao
> > > > supra-citado e instalar
> > > > > > > elas lá
> > > > > > > (seja via registro de dll ou via instalador próprio), conforme
> > > > > > > instruções do
> > > > > > > fabricante. Do contrario seu programa irá dar pau lá ao ser
> > > > > > executado.
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > []s
> > > > > > >
> > > > > > > Walter Alves Chagas Junior
> > > > > > > Projeto e desenvolvimento
> > > > > > > Telemont Engenharia de telecomunicações
> > > > > > > Belo Horizonte - MG - Brazil
> > > > > > > [EMAIL PROTECTED]
> > > > > > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > > > > > >
> > > > > > >
> > > > > > > > -----Mensagem original-----
> > > > > > > > De: -=SchiavoR=- [mailto:[EMAIL PROTECTED]
> > > > > > > > Enviada em: quarta-feira, 1 de junho de 2005 10:51
> > > > > > > > Para: delphi-br@yahoogrupos.com.br
> > > > > > > > Assunto: [delphi-br] Duvidas ActiveX
> > > > > > > >
> > > > > > > >
> > > > > > > > Galera, bom dia!
> > > > > > > >
> > > > > > > > To precisando usar uma ActiveX aqui, pegar algumas
> > > > funções etc.
> > > > > > > >
> > > > > > > > Jah importei ela no Delphi e ele gerou aquele arquivo
> > > > > > *_TLB.pas, onde
> > > > > > > > estao as interfaces, agora como faço pra chamar as funções,
> > > > > > > > objetos que
> > > > > > > > estão lá?
> > > > > > > >
> > > > > > > > [ ]'s Rodrigo
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > --
> > > > > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> > > > MENSAGEM >>>>>
> > > > > > > >
> > > > > > > > Para ver as mensagens antigas, acesse:
> > > > > > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > > > > > >
> > > > > > > > Para falar com o moderador, envie um e-mail para:
> > > > > > > > [EMAIL PROTECTED] ou
> [EMAIL PROTECTED]
> > > > > > > >
> > > > > > > > Links do Yahoo! Grupos
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > [As partes desta mensagem que não continham texto foram
> > > > removidas]
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > --
> > > > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
> >>>>>
> > > > > > >
> > > > > > > Para ver as mensagens antigas, acesse:
> > > > > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > > > > >
> > > > > > > Para falar com o moderador, envie um e-mail para:
> > > > > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > --------------------------------------------------------------
> > > > > > ----------
> > > > > > > *Links do Yahoo! Grupos*
> > > > > > >
> > > > > > > * Para visitar o site do seu grupo na web, acesse:
> > > > > > > http://br.groups.yahoo.com/group/delphi-br/
> > > > > > >
> > > > > > > * Para sair deste grupo, envie um e-mail para:
> > > > > > > [EMAIL PROTECTED]
> > > > > > >
> > > > >
> > > >
> <mailto:[EMAIL PROTECTED]>
> > > > > >
> > > > > > * O uso que você faz do Yahoo! Grupos está sujeito
> > > > aos Termos do
> > > > > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > > --
> > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > > > >
> > > > > Para ver as mensagens antigas, acesse:
> > > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > > >
> > > > > Para falar com o moderador, envie um e-mail para:
> > > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > > > >
> > > > > Links do Yahoo! Grupos
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > [As partes desta mensagem que não continham texto foram removidas]
> > > > >
> > > > >
> > > > >
> > > > > --
> > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > > > >
> > > > > Para ver as mensagens antigas, acesse:
> > > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > > >
> > > > > Para falar com o moderador, envie um e-mail para:
> > > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > > > >
> > > > >
> > > > >
> > > > >
> > > > --------------------------------------------------------------
> > > > ----------
> > > > > *Links do Yahoo! Grupos*
> > > > >
> > > > > * Para visitar o site do seu grupo na web, acesse:
> > > > > http://br.groups.yahoo.com/group/delphi-br/
> > > > >
> > > > > * Para sair deste grupo, envie um e-mail para:
> > > > > [EMAIL PROTECTED]
> > > > >
> > > >
> <mailto:[EMAIL PROTECTED]>
> > > > >
> > > > > * O uso que você faz do Yahoo! Grupos está sujeito aos
> Termos do
> > > > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
> > > > >
> > > > >
> > > >
> > > >
> > > >
> > > > --
> > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > > >
> > > > Para ver as mensagens antigas, acesse:
> > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > >
> > > > Para falar com o moderador, envie um e-mail para:
> > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > > >
> > > > Links do Yahoo! Grupos
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > --
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > > Para ver as mensagens antigas, acesse:
> > > http://br.groups.yahoo.com/group/delphi-br/messages
> > >
> > > Para falar com o moderador, envie um e-mail para:
> > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > >
> > >
> > >
> > >
> ------------------------------------------------------------------------
> > > *Links do Yahoo! Grupos*
> > >
> > > * Para visitar o site do seu grupo na web, acesse:
> > > http://br.groups.yahoo.com/group/delphi-br/
> > >
> > > * Para sair deste grupo, envie um e-mail para:
> > > [EMAIL PROTECTED]
> > >
> > > <mailto:[EMAIL PROTECTED]>
> > >
> > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
> > >
> > >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> >
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> > Para visitar o site do seu grupo na web, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/
> >
> > Para sair deste grupo, envie um e-mail para:
> > [EMAIL PROTECTED]
> >
> > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do
> > Yahoo!.
> >
> >
> >
> >
> >
> > ____________________________________________________
> > Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
> > http://mail.yahoo.com.br
> >
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> >
> >
> > ------------------------------------------------------------------------
> > *Links do Yahoo! Grupos*
> >
> > * Para visitar o site do seu grupo na web, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/
> >
> > * Para sair deste grupo, envie um e-mail para:
> > [EMAIL PROTECTED]
> >
> <mailto:[EMAIL PROTECTED]>
> >
> > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
> >
> >
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
>
> ---------------------------------
> Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo!.
>
>
>
> ---------------------------------
> Yahoo! Mail Mobile
> Take Yahoo! Mail with you! Check email on your mobile phone.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
