FiveTech Software tech support forums

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.

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

Me podrías decir donde conseguirlo.

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

Hola

cual es el error de compilacion? (el ejemplo que colocaste me funcina perfectamente... )
que version de harbour estas usando?

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

Teneis un ejemplo de hacerlo sin FOR EACH.?

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.

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

Muchas Gracias, voy a probar.