Instanciação de DLL no Forms 6i

[Hahu]

Bom dia amigos,

Não sei se você passaram por essa situação e tal...mas aí vai uma dúvida:

Como é que faço para instanciar uma dll no forms, de modo que eu consiga usa-la dentro do meu código do forms, passando os devidos paramentros?

Agradeço e conto com ajudas dos glufkes!!

Abs Hahu

[Trevisolli]

Fala meu velho, beleza?

Então, dá uma pesquisada aqui no fórum por ORA_FFI.
Você vai achar exemplos interessantes, como este:
http://glufke.net/oracle/viewtopic.php?t=1041&highlight=oraffi

qualquer coisa, manda ai.

[Tineks]

E ai Hahu beleza???

segue ai um exemplo..

Selecionar tudo

  -- VARIAVEIS...
  retorno1  ora_ffi.libhandletype;   -- Variável utilizada no corpo do pacote
  retorno2  ora_ffi.funchandletype;  -- SetLink


  -- CORPO...
-- Área Global  	
  retorno1 := Ora_Ffi.Load_Library('C:\LINKDLL\','PCDADOS32.DLL');

  -- 
  -- Utilizado para função SetLink
  /* Registra a função da DLL. */
  retorno2 := Ora_Ffi.Register_Function(retorno1, 'SetLink', Ora_Ffi.PASCAL_Std);

  /* Registra a variável da função e da DLL. */
  Ora_Ffi.Register_Parameter (retorno2, Ora_Ffi.C_INT);
  Ora_Ffi.Register_Parameter (retorno2, Ora_Ffi.C_INT);

  /* Registra o Tipo de Retorno da DLL. */
  Ora_Ffi.Register_Return (retorno2, Ora_Ffi.C_INT);  	
  -- 

[]'s

[Hahu]

Valeu trevisolli e Tineks,

nossa muito legal esse procedimento..está rodando perfeitamente no desenvolvimento!! -m

Que Deus abençõe a todos!

Abs Hahu