FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Controlar PocketPC Device desde PC
Posts: 6
Joined: Sat Feb 11, 2006 03:53 AM
Controlar PocketPC Device desde PC
Posted: Tue Feb 21, 2006 02:44 PM

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

Posts: 6
Joined: Sat Feb 11, 2006 03:53 AM
Continuando con la Consulta
Posted: Thu Feb 23, 2006 02:08 AM

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

Gracias por la Ayuda

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Controlar PocketPC Device desde PC
Posted: Thu Feb 23, 2006 02:11 AM

Hazlo así:

MsgInfo( OleInvoke( sregocetpx, "GetVersion" ) )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6
Joined: Sat Feb 11, 2006 03:53 AM
Problema Solucionado
Posted: Thu Feb 23, 2006 03:10 AM

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

Continue the discussion