FiveTech Software tech support forums

Hola amigos
Gracias por su ayuda.
Probe todo lo que me envian y nada anda en 16bits!
La funcion CreateObject() no existe en 16bits
Intente usando CreateOleObject() pero no puedo lograr lo que necesito
Salu2 a todos

Prueba a usar win_oleCreateObject() en vez de CreateOLEObject()

Jorge,

Has podido probar esto ?

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
Controlador:Nuevo()

Prueba asi:

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
Controlador:Nuevo()

Jorge,

Comprueba este valor y dime que te aparece:

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
hSections := OLEGetProperty(Controlador,"ConectarControlador")
MsgInfo( hSections )

... method: CONECTARCONTROLADOR Supongo que tendre que usar las funciones previstas para OLE. Si utilizo esa forma funciona lo siguiente: Controlador:=CreateOLEObject('DataLinkLibrary.IController') hSections := OLEGetProperty(Controlador,"ConectarControlador") OLESetProperty(Controlador,"Nuevo","DEMO") ...

Jorge,

Prueba así:

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
hSections := Controlador:Sections
Controlador:Nuevo = "DEMO"

... los que hice sin problemas. Utilize el GacUtil.exe y luego el RegAsm.exe Me base en el ejemplo de FWH (ole.prg) y escribi esto: Controlador:=CreateOLEObject('DataLinkLibrary.IController') hSections := OLEGetProperty(Controlador,"Sections") OLESetProperty(Controlador,"Nuevo","DEMO") ...

... dll y un tlb que me informan son librerias de clases de .NET las cuales contienen funciones que necesito utilizar, estoy probando con la funcion CreateOLEObject(), los que desarrollaron esta dll dan ejemplos de uso en VB, en Delphi y VFox, en delphi lo usan como un objeto OLE y por ahi arranque, ...

... oexcelsolver:Visible(.t.) hWndexcel := FindWindow(0,"Microsoft Excel - "+cfilenopath(clibro)) SetParent(hwndexcel,oWnd:hWnd) Con CreateOleObject("Excel.Application") no funcionaban las opciones en las que excel abre un dialogo y se quedaba colgado, entre ellas mis funciones. ...

... IMapi () LOCAL oMaster,oRecorder, nID, nIndex := 1, oDisc // LOCAL cCLSID := "20CCA62-51A5-11D3-9144-00104BA11C5E" // oMaster := CreateOleObject ("IMAPI.MsDiscMasterObj") // Imapi V1 // oDisc:= oMaster:IDiscMaster // ? oDisc:Open() oMaster := CreateObject("IMAPI2.MsftDiscMaster2") ...

Prueba esto:

wsfev1 := CreateOleObject("FEAFIPLib.wsfev1")

MsgInfo( ValType( wsfev1 ) )

... la que tengo esa aplicacion es muy antigua (2.7), pero no deseo tener que migrar todo, pues es para AYER! Hay alguna manera de reemplazarlo con CreateOleObject? Desde ya muchas gracias

Respondido en http://forums.fivetechsupport.com/viewtopic.php?f=3&t=8990&start=0&hilit=createoleobject+createobject

... uso el o := CreateObject(""MapWinGis.Shapefile.1") y luego hago MsgInfo(ValType(o)) me devuelve "O" Cuando uso el o := CreateOleObject(""MapWinGis.Shapefile.1") y luego hago MsgInfo(ValType(o)) me devuelve "P"