Antonio:
Como dijo M. L. King, "Tengo un sueño", que tan posible es crear un LIB como
la xaScript de tu ex o como la de xHarbour profesional ????.
Saludos
Antonio:
Hasta ahora mis aplicaciones están hechas con FW y xHarbour pero si ya existe
dicha lib bien vale la pena mudarme a Harbour, seguramente tendré que hacer
cambios a mi código pero vale la pena.
Voy a probarla, ya te informaré el resultados.
Con que versiones de Harbour y Borland debo usar?
Saludos
Hasta donde tengo probado, que lo he cambiado todo bastante rápido de xHarbour a HBarbour entre diciembre pasado y enero, va bien con BCC 582, BCC 6.3 (para 32 bits) y Visual Studio Comunity 2013 para 64 bits. Las versiones de Harbour y FW son de enero y son las descargadas de fivetech. Hay varios post recientes donde puedes ver los cambios (pocos) que hemos tenido que acometer.
Antonio:
He descargado FiveEdit como lo indicaste, descargue Harbour 3.2 20141218 de Bitbucket,
pruebo FiveEdit con lo anterior más FWH1312 previa configuración para indicar los paths
correcto y no pasa nada al dar clic sobre el botón SCRIPT solo con el botón RUN funciona.
Será que algo me falta ?
Saludos
Armando,
Al arrancar fivedit te aparece un código por defecto con un MsgInfo().
Primero comprueba que tu configuración de fivedit sea correcta (path de FWH)
Al pulsar "script" ejecutará tu código en memoria.
Yo llevo mucho tiempo insistiendo en que esta es la razón más importante para usar Harbour en vez de xHarbour 
oHrb = HB_CompileFromBuf( StrTran( ::oEditor:GetText(), "Main", "__Main" ),;
"-n", "-I..\include", "-Ic:\harbour\include" )Angel, gracias!
oHrb = HB_CompileFromBuf( StrTran( ::oEditor:GetText(), "Main", "__Main" ),;
"-n", "-I" + AllTrim( ::cFWHPath ) + "\include",;
"-I" + AllTrim( ::cHarbPath ) + "\include" )Antonio:
Wow, ahora sí funca. Voy a revisar el código de FiveEdit para tratar de entender el truco
pero si tú puedes orientarme, te lo voy a agradecer.
Saludos
METHOD RunScript() CLASS TFivedit
local oHrb, cResult, bOldError
FReOpen_Stderr( "comp.log", "w" )
oHrb = HB_CompileFromBuf( StrTran( ::oEditor:GetText(), "Main", "__Main" ),;
"-n", "-I" + AllTrim( ::cFWHPath ) + "\include",;
"-I" + AllTrim( ::cHarbPath ) + "\include" )
if "error" $ MemoRead( "comp.log" )
MsgInfo( MemoRead( "comp.log" ), "Error" )
else
if ! Empty( oHrb )
BEGIN SEQUENCE
bOldError = ErrorBlock( { | o | DoBreak( o ) } )
hb_HrbRun( oHrb )
END SEQUENCE
ErrorBlock( bOldError )
endif
endif
return nilPrueba con MemoRead( cFile )
Armando, hecha un vistazo a scripts.prg en el directory samples de FWH. Verás un ejemplo totalmente funcional.
Lo que no me acaba de gustar del todo, es el tener que colocar en el pc del usuario final las carpetas con los includes tanto de harbour como de fwh . ¿ No se podría empaquetar todos esos archivos dentro de un fichero que se distribuya ? . ¿ algo como una dll ? .
El riesgo de que un usuario final toque un archivo y estropee el programa se multiplica por cada archivo que coloquemos .
Señores:
A todos, muchas gracias por sus comentarios.
Seguiré lo indicado.
Saludos
