Un pequeña ayudita en Harbour
Un pequeña ayudita en Harbour
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.
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.
-
- Posts: 72
- Joined: Tue Sep 11, 2007 3:51 pm
Re: Un pequeña ayudita en Harbour
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
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
Re: Un pequeña ayudita en Harbour
Me podrías decir donde conseguirlo.
-
- Posts: 72
- Joined: Tue Sep 11, 2007 3:51 pm
Re: Un pequeña ayudita en Harbour
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
Bajate la nightly de Harbour, que ahí debe estar; y supongo que también en la distribución de FiveTech
- 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
Hola
cual es el error de compilacion? (el ejemplo que colocaste me funcina perfectamente... )
que version de harbour estas usando?
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
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
Re: Un pequeña ayudita en Harbour
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
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
Re: Un pequeña ayudita en Harbour
Teneis un ejemplo de hacerlo sin FOR EACH.?
-
- Posts: 988
- Joined: Thu Nov 24, 2005 3:01 pm
- Location: Madrid, España
Re: Un pequeña ayudita en Harbour
El problema es que es un harbour extremadamente viejo ¡Es una versión alpha del 1.0!softruz wrote: Harbour Compiler Alpha build 43.0 (Flex)
Copyright 1999-2004, http://www.harbour-project.org/
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"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Un pequeña ayudita en Harbour
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
http://code.google.com/p/harbour-and-xh ... loads/list
Re: Un pequeña ayudita en Harbour
Muchas Gracias, voy a probar.