FiveTech Software tech support forums

Buenos dias a todos

Estoy probando con dos librerias activex para poder controlar PocketPC desde una PC de Escritorio.

Actualmente logro abrirla por medio de createoleobject pero luego no puedo hacer ninguna llamada a las funciones. He tratado de usar OLEInvoke y Activex:Metodo() y nada.

Estoy usando xHarbour 0.99.60 y fivewin 2.7.

Los Activex que estoy usando se llaman Srego de WWW.Srego.com y CESync de www.pda-tec.com.

Talvez me puedan iluminar un poco de lo que estoy haciendo mal.

Adjunto parte de mi codigo, Gracias y saludos.

// SREGO
SregoCETPx:=CreateOleObject("SREGOCETPX.SregoCETPxCtrl.1")
msginfo(sregocetpx)
// valor asignado = 24125504

MSGinfo(sregocetpx:GetVersion())
// Este ultimo deberia de regresar el numero de la version. Pero me da el error
// Error BASE/1004
// 'NUMERIC' has no exported method: GetVersion


// CESync
SyncAx1:=CreateOleObject("PPC_SyncAxV2.SyncAx")
MSGinfo(syncax1)
// valor asignado = 1546464

msginfo(syncax1:CreateFolder('\PRUEBA'))
// El de arriba me deberia de crear una carpeta en la pocket llamada PRUEBA pero da el mismo error
// Error BASE/1004
// 'NUMERIC' has no exported method: GetVersion

O alguien conoce alguna otra forma de poder lograr lo de arriba.

Gracias por la Ayuda

Hazlo así:

MsgInfo( OleInvoke( sregocetpx, "GetVersion" ) )

Perdon por mi error, los dos anteriores son Activex, mi codigo para llamar las funciones.

oActiveX = TActiveX():New( oWnd, "SREGOCETPX.SregoCETPxCtrl.1" )
cl_fer:=oActivex:DO("MakeDirectory","\PRUEBA")
MSGinfo(cl_fer)

Gracias por la Ayuda

Saludos