Un pequeña ayudita en Harbour

[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]

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]

Me podrías decir donde conseguirlo.

[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

[Daniel Garcia-Gil]

Hola

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

[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]

Teneis un ejemplo de hacerlo sin FOR EACH.?

[Carlos Mora]

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.

[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-xharbour-builds/downloads/list

[softruz]

Muchas Gracias, voy a probar.