by GuillermoMtz » Thu Aug 29, 2013 10:27 pm
Gracias Adhemar por tu apoyo, pero la aplicacion se cierra al crear el objeto del activex puse unas banderas a la tactivex para monitore y solo llega al pasa 2
te anexo el codigo.
METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX
DEFAULT oWnd := GetWndDefault(), nRow := 0, nCol := 0, nWidth := 200,;
nHeight := 200
::nTop = nRow
::nLeft = nCol
::nBottom = nRow + nHeight
::nRight = nCol + nWidth
::oWnd = oWnd
::nId = ::GetNewId()
::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
::cProgID = cProgID
::cString = ActXString( cProgID )
::Register()
? 'paso1'
if ! Empty( oWnd:hWnd )
::Create()
oWnd:AddControl( Self )
? 'paso2'
::hActiveX = CreateActiveX( ::hWnd, cProgID, Self )
? 'paso3'
::oOleAuto = TOleAuto():New( ActXPdisp( ::hActiveX ) )
Saludos!
_____________________________________________
NxTSolutions
Soluciones Integrales en Informatica
Sitio Web
http://www.nxtsolutions.com.mx/_____________________________________________