Un pequeña ayudita en Harbour

Post Reply
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Un pequeña ayudita en Harbour

Post by softruz »

Muy buenas, tengo este código de xHarbour y me gustaría pasarlo a Harbour, pero me da error al compilar el FOR EACH, ¿sabeis como puedo hacerlo?

function GetWMI(cClass,cProperty)
local oLoc,oWmi,oList,oItem
default cClass:="Win32_ComputerSystem",cProperty:="Name"

oLoc:= CreateObject( "wbemScripting.SwbemLocator" )
oWmi:= oLoc:ConnectServer()
if oWmi == NIL
return ""
end if

oList := oWmi:ExecQuery("SELECT * FROM "+cClass)

for each oItem in oList
cReturn:=oItem:&(cProperty)
next
return cReturn

Un Saludo.
Antonio Martinez
Posts: 72
Joined: Tue Sep 11, 2007 3:51 pm

Re: Un pequeña ayudita en Harbour

Post by Antonio Martinez »

Softcruz,

Creo que en harbour hay algo asi como un xHb.ch y una xHarbour.lib (los nombres son aproximados) para tener compatibilidad con extensiones xHarbour.

Saludos
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Re: Un pequeña ayudita en Harbour

Post by softruz »

Me podrías decir donde conseguirlo.
Antonio Martinez
Posts: 72
Joined: Tue Sep 11, 2007 3:51 pm

Re: Un pequeña ayudita en Harbour

Post by Antonio Martinez »

Forma parte de la distribucion de Harbour.
Bajate la nightly de Harbour, que ahí debe estar; y supongo que también en la distribución de FiveTech
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Un pequeña ayudita en Harbour

Post by Daniel Garcia-Gil »

Hola

cual es el error de compilacion? (el ejemplo que colocaste me funcina perfectamente... )
que version de harbour estas usando?
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Re: Un pequeña ayudita en Harbour

Post by softruz »

Muchas gracias, este e mi error:

Harbour Compiler Alpha build 43.0 (Flex)
Copyright 1999-2004, http://www.harbour-project.org/
Compiling 'ctbalb.prg'...
100ctbalb.prg(101) Error E0030 Syntax error: "parse error at 'OITEM'"
ctbalb.prg(102) Error E0030 Syntax error: "parse error at '&'"
ctbalb.prg(103) Error E0013 NEXT does not match FOR
20030050080010020030090011001300140016001700180019002000210023002500260028003000320033003400350036003700390040003 errors
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Re: Un pequeña ayudita en Harbour

Post by softruz »

Teneis un ejemplo de hacerlo sin FOR EACH.?
Carlos Mora
Posts: 988
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Re: Un pequeña ayudita en Harbour

Post by Carlos Mora »

softruz wrote: Harbour Compiler Alpha build 43.0 (Flex)
Copyright 1999-2004, http://www.harbour-project.org/
El problema es que es un harbour extremadamente viejo ¡Es una versión alpha del 1.0!
Prueba de bajarte una versión más reciente.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Un pequeña ayudita en Harbour

Post by Antonio Linares »

Desde aqui puedes descargar una versión más reciente que sea compatible con la versión de FWH que uses:

http://code.google.com/p/harbour-and-xh ... loads/list
regards, saludos

Antonio Linares
www.fivetechsoft.com
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Re: Un pequeña ayudita en Harbour

Post by softruz »

Muchas Gracias, voy a probar.
Post Reply