activeX Error

tomafa · Post by **tomafa** » Wed Sep 20, 2006 10:31 pm

Tengo la siguiente duda por que me sale el error, con la libreria activeX
Error: 'C:\ACTIVEX.LIB' contains invalid OMF record, type 0x21 (possibly COFF),

Post by **Antonio Linares** » Thu Sep 21, 2006 12:50 pm

Porque esa librería es para Microsoft ó PellesC, pero no para Borland. Borland usa formato OMF, no COFF.

tomafa · Post by **tomafa** » Thu Sep 21, 2006 2:06 pm

entonces que hago para poder interactuar con control que tengo Activex para ejecutarlo en mi programa utilizo fwh y harbour, alguna sugerencia
gracias....

Post by **Antonio Linares** » Thu Sep 21, 2006 4:21 pm

FWH soporta controles ActiveX, con eventos, desde la versión 2.7 marzo 2006. No hace falta ninguna librería adicional.

tomafa · Post by **tomafa** » Thu Sep 21, 2006 6:01 pm

gracias por tu respuesta, pero que estoy haciendo mal, te muestro parte del codigo

DEFINE WINDOW oWnd

cCaption := "Esta es una Prueba...."

MyFrame := TActiveX():New( oWnd, "MyFramePanel.MyFrame" )
MyFrame:nTop := 10
MyFrame:nWidth := 250
MyFrame:nLeft := 80
MyFrame:nHeight := 200

MyFrame:Do( "Caption", cCaption )

si quito la linea marcada, me corre el programa, pero al colocar la linea, no me hace nada, lo hecho de mil formas, y no se que estoy haciendo mal, no tengas un ejemplo, utilizo verce para compilar, que estoy haciendo mal, gracias....

Antonio

Post by **Antonio Linares** » Thu Sep 21, 2006 8:04 pm

Prueba con MyFrame:SetProp( "Caption", cCaption )

tomafa · Post by **tomafa** » Thu Sep 21, 2006 10:20 pm

hice lo que me indicaste, me genera el ejecutable, pero no pasa nada y si quieres te paso la OCX y el programa indicame cono lo subo y te lo paso, llevo esta semana tratando de ejecutar esta aplicacion y no veo resultados espero exista la solucion....

Antonio Díaz

Saludos y Gracias por tu respuesta

Post by **Antonio Linares** » Fri Sep 22, 2006 3:36 am

Antonio,

Que OCX es ?

tomafa · Post by **tomafa** » Fri Sep 22, 2006 2:15 pm

jcFrame.ocx esta es la libreria dime como la subo o te la mando a tu correo,

gracias por tu apoyo

Antonio[/b]

Post by **Antonio Linares** » Fri Sep 22, 2006 3:13 pm

Antonio,

No nos envies nada de momento, gracias. Tienes la documentación de ese OCX ? Algún ejemplo de uso ?

tomafa · Post by **tomafa** » Fri Sep 22, 2006 4:40 pm

la documentacion como tal, no la tengo, pero conosco las propiedades y los metodos de la libreria, estuve haciendo pruebas, lo que encontre es que instale una version más reciente de harbour, no se que hice, pero me esta ejecutando el programa, solo que el problema es que lo quiero hacer por medio de un dialogo y este no me despleja el control que esta pasando en una ventana normal si me despleja el control pero en un dialogo no.

saludos

Post by **Antonio Linares** » Fri Sep 22, 2006 5:36 pm

Pon aquí el código que estás usando para crearlo en el diálogo.

tomafa · Post by **tomafa** » Fri Sep 22, 2006 6:14 pm

DEFINE DIALOG odlg TITLE "PRUEBA ACTIVEX"

oAgentS:= TActiveX():New( odlg, "MyFramePanel.MyFrame" )

oAgentS:nTop := 10
oAgentS:nWidth := 250
oAgentS:nLeft := 80
oAgentS:nHeight := 200

oAgentS:SetProp( "Caption" , "Litio" )
oAgentS:SetProp( "Font" , aFont )
oAgentS:SetProp( "Appearance" , 5 )
oAgentS:SetProp( "CaptionEffect", 1 )

ACTIVATE DIALOG odlg
este es el ejemplo, una pregunta, como puedo manipular las font del objeto, si al desplejar con un ?msgstop( oAgentS:getProp( "font"), aparece como objeto y quiero cambiar el tamano, y el tipo de letra, este es el codigo como creo con dialogo, pero no me hace nada, con windows si me lo ejecuta.

Saludos Antonio Díaz

)

tomafa · Post by **tomafa** » Fri Sep 22, 2006 7:13 pm

Antonio:

en donde puedo encontrar la classe tactivex.prg

saludos

Antonio Díaz

Post by **Antonio Linares** » Fri Sep 22, 2006 10:07 pm

En FWH a partir de FWH 2.7