Respuestas de foro creadas
-
Entradas
-
a ver si puede servir de algo, al menos ahora tengo Apache (sin xampp) funcionando.
El caso...
Si arranco Apache desde C:\Apache24\bin haciendo doble click en httpd.exe, quedándose y dejando la ventana msdos abierta, me está funcionando TODO correctamente
File( "\\Server10\c\Xailer\Bin\Xailer.exe" ) -> .T.
oExcel:WorkBooks():Open( "c:\prova\prova.xlsx" ) -> .T.
Ahora viene donde no me funciona... cuando tengo Apache como servicio... ejecutando como administrador un bat con:
C:\Apache24\bin\httpd -k install
net start Apache2.4File( "\\Server10\c\Xailer\Bin\Xailer.exe" ) -> .F.
oExcel:WorkBooks():Open( "c:\prova\prova.xlsx" ) -> .F.
No se que hará/hace xampp, arrancando con xamp-control.exe, alguna cosa debe hacer, peró ahí a mi se me escapa.
De momento, puedo tener esa ventanita de msdos abirta, la minimizo y ya está, pero creo que debe tener alguna solución.
Ahí voy haciendo mis pruebas... en un segundo Server, que a veces tengo conectado o no, por si alguien quiere chafardear.
http://xevicomas.duckdns.org:8069/cgi-bin/provanefele.exe
Un Saludo,
Xevi.
Pues NO... Apache sigue sin funcionarme lo de acceder a algunos archivos fuera de htdocs
He instalado una VM con Windows10 pro
He copiado la carpeta Apache y he iniciado el servidor
C:\Apache24\bin\httpd -k install
net start Apache2.4Me ha dado primero error que faltaba vcruntime140.dll y no se poodia arrancar Apache.
Lo he descargado de https://es.dll-files.com/vcruntime140.dll.html y copyado en C:\Windows\System32 y en C:\Windows\SysWOW64
luego me ha dejado arrancar correctamente Apache.
funciona localhost
funciona localhost/cgi-bin/provanefele.exe
Pero...
File( "\\Server10\c\Xailer\Bin\Xailer.exe" ) sigue devolviendo .F.
No se que más probar!!!
Bien, voy haciendo pruebas y me voy topando con comportamiento distinto en momento de acceder a archivos físicos de mi PC o red... en Apache, dependiendo si éste es con xampp o no.
File( "\\Server10\c\Xailer\Bin\Xailer.exe" ) -> .T. en c:\xampp .F. en c:\Apache24
oExcel:WorkBooks():Open( "c:\prova\prova.xlsx" ) -> .T. en c:\xampp .F. en c:\Apache24
Voy a instalar una VM con VirtualBox, de cero, con windows10 (no enterprise) y primero a ver si me funciona File( "\\Server10\c\Xailer\Bin\Xailer.exe" )... si eso, luego ya a ver instalo Office2019, y a ver donde llego.
Un Saludo,
Xevi.
Ahora veo que me está funcionando si pongo la IP i no con localhost...
http://192.168.1.126:8080 SI me funciona
http://localhost:8080 NO me funciona ¿?¿? misterios¿?¿?
¿Has cambiado de puerto de escucha el router???
Yo estoy intentando cambiar de puerto a Apache, pero no me está respondiendo si hago el cambio de puerto por 8080, 8053 u otro. No se que me puede estar pasando. Reinicio PC, Apache... todo, y sigue sin funcionar en otro puerto que no sea el 80
1234567el fichero httpd.confla clave "Listen" cambiar el valor numérico de ésta por el puerto que quieras que utilice Apache, por ejemplo:Listen 8080la clave "ServerName" también poner el número del puerto que quieras utilice Apache, por ejemplo:ServerName localhost:8080No se que me puede estar ocurriendo...
Un Saludo,
Xevi.
Fredy,
Gracias, pero no me sirven, pero las anoto por si acaso pueden servirme para otros casos.
El tema está en que la normativa SEPA, por lo que concierne al fichero Xml resultante, debe de codificarse segun ISO-8859-1
https://ca.wikipedia.org/wiki/Latin-1
supongo que hay que "sustituir" estos caracteres por uno correspondiente/aproximado o simplemente por un espacio o prescindir de él.
De momento me lo voy a apañar como lo estoy haciendo, que servir ya hace algunos años que me está sirviendo.
por cierto, la "adaptación" de ese programita/rutina que tengo hecho y funcionando en Xailer de hace años, en mi primera prueba a Nefelizarlo, ha estado SUPER!!!
De paso me ha servido para "entender" un poco más el funcionamiento de Néfele, y así poquito a poco...Esperando más noticias, novedades, reuniones, quedadas en Skype... y si algun curso se imparte, aquí seguiremos.
Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Siguiendo el tema de caracteres especiales, no es tema de Néfele ni de Xailer, pero lo expongo por si alguien tiene o sabe de alguna solución.
Resulta que tengo hecha mi prime aplicacioncilla con Néfele, una mini que se encarga de leer datos de un Excel y los convierto a un ficherete Xml. Tengo hecho segun normativa SEPA19 y SEPA34 (recibos domiciliados y transferencias)
Bien, pues SOLO un pequeño tema, nada menos con los caracteres especiales que se pueden teclear en un WEdit o que puedo leer de una celda del Excel. Puede ser que en algunos casos, en esos datos haya algun dato de los especiales, acentos, etc... (áéíóúÁÉÉÓÚ...)
Es por si sabeis de alguna funcion para "reconvertir" esos caracteres por los que se piden en la normativa SEPA...
<?xml version="1.0" encoding="ISO-8859-1"?>
-<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.03" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
No se, yo de momento tengo una funcioncilla mía que a medida que me los voy encontrando voy incorporando.
123456789101112131415161718192021222324252627282930313233function xStrExcelToSEPAxml( cText )Local n, cBusca, cTorna := "", nAscanLocal aAsci195 := { {{135,-1,-1},"C"}, {{145,-1,-1},"N"}, {{128,129,132},"A"}, {{136,137,139},"E"}, {{140,141,143},"I"}, {{146,147,150},"O"}, {{153,154,156},"U"},; //Ç Ñ ÁÀÄ ÉÈË ÍÌÏ ÓÒÖ ÚÙÜ{{167,-1,-1},"c"}, {{177,-1,-1},"n"}, {{161,160,164},"a"}, {{169,168,171},"e"}, {{173,172,175},"i"}, {{179,178,182},"o"}, {{186,185,188},"u"} } //ç ñ áàä éèë íìï óòö úùüLocal aAsci194 := { {{170,-1,-1},"a"}, {{186,-1,-1},"o"} } //ªºLocal nAsciFor n:=1 To Len( cText )cBusca := SubStr( cText, n, 1 )nAsci := Asc(cBusca)If nAsci = 195 .or. nAsci = 194 //Caràcter Especialn++If n <= Len(cText)cBusca := Asc(SubStr( cText, n, 1 ))IF (nAscan := Ascan( IF(nAsci = 195, aAsci195, aAsci194 ), {|x| x[1,1] = cBusca .or. x[1,2] = cBusca .or. x[1,3] = cBusca } )) > 0cTorna += IF(nAsci = 195, aAsci195, aAsci194 )[nAscan,2]ElsecTorna += " "EndIfEndIfElseIf cBusca $ "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/-?:().,;‘+' &<>" + '"'cTorna += cBuscaElsecTorna += " "EndIfEndIfNextreturn cTornaLos caracteres especiales, he visto que se componen de 2 caracteres, el primero es un asc 195 o 194
Un saludo,
Xevi.
Otra cosa que veo y me he topado por lo que respecta a esos mismos caracteres especiales...
Cuando en un proyecto Néfele añado un nuevo módulo prg, Xailer lo crea por defecto con el juego de caracteres "ANSI", por lo que debo de cambiar cada vez que creo un prg nuevo el juego de caracteres a UTF-8
¿Alguna manera de poder decir a Xailer que ese proyecto genere los nuevos módulos/prgs a caracteres UTF-8???
Un saludo,
Xevi
De momento... y hasta que no salga una actualización con esto me apaño...
1234cFileTemp := GetTempFilename()cMemo := HB_MemoRead( cFileXLS )HB_MemoWrit( cFileTemp, SubStr(cMemo,1,Len(cMemo)-1), .F. )cFileXLS := cFileTempMe hago una copia sin el último caracter en la carpeta tmp (que curiosamente, es C:\xampp\tmp, windows tiene su tmp y Apache la suya, curioso, pero lógico, claro!!!)
Un saludo,
Xevi.
el código fuente ha cambiado mucho desde que te lo envié y no sabria decirte...
Te he pasado el proyecto más sencillo, mas pequeño... el exe que me genera a mi NefeleXailer y el fichero xls
Un Saludo,
Xevi
Fredy,
Apache24 en C:\Apache24 -> falla
Apache24 con xampp en C:\xampp -> funciona correctamente
sobre la misma PC (bien, en dos PCs con mismo comportamiento)
Windows 10 Enterprise LTSC, Office2019Paro un Apache y cambio de Apache, deteniendo servicio y volviendo a arrancar... SIEMPRE el mismo comportamiento
Un Saludo,
Xevi.
Fredy,
Si, puedo abrir/leer perfectamente un fichero con Néfele
He creado un fichero txt y me lo mustra como bien me has puesto como ejemplo.
Te adjunto el httpd.conf del servidor Apache24 sin utilizar xampp y que es el que da el error al abrir el archivo excel
Un Saludo,
Xevi.
Ahora... otro tema por lo que concierne al mismo tema, la subida de fichero, al menos en este caso que estoy probando (fichero excel) no termina de funcionar correctamente, pues el fichero original y el recibido en la carpeta cgi-bin/tmp no son "iguales"
Si intento abrir el fichero recibido con excel, encuentra un error y excel informa y "repara"... cosa que no me sirve, pues debo tratar ese archivo sin abrir excel, sinó SOLO utilizando el objeto "Excel.Application"
Comparando los dos archivos, el de origen i el tmp, (con Winmerge), veo que el fichero tmp le añade un bit más al final del fichero.
Ese es el problema, si le quito ese caracter final [1A] los dos archivos son idénticos.
Un Saludo,
Xevi.
Se me dio por probar con Apache que tengo funcionando con mi Server con mod_harbour
El mismo exe que construye Nefele+Xailer lo coloco en cgi-bin de ese Server y funciona!!!
Abre correctamente el fichero con oExcel:WorkBooks():Open(cFileXLS)O sea, que se trata de alguna configuración del Apache24 que tengo instalado para Néfele.
Seguro que eso os puede ayudar en algo para "localizar" que puede estar pasando, pero por lo visto se trata de accesos/permisos, no se, yo no entiendo.
De momento, puedo proseguir mis pruebas testeando con ese Apache.
Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Debes de escribir todo el nombre CON LA EXTENSION, si no tienes un ScriptAlias en el httpd.conf
Asi, pues, http://localhost/cgi-bin/negocio.exe
Un Saludo,
Xevi
Por lo que voy probando, y si puedo ayudar en alguna prueba me pongo a vuestra disposición...
El problema no está en OLE - Office, ya que lo carga correctamente con CreateObject()
El problema lo está dando al "acceder" al ficherete. Al momento del Open()
He probado de cambiar la ruta del fichero o quitar/eliminar/renombrar el fichero, y Open() da el mensaje de que no encuentra el fichero, que es un mensaje correcto. En el caso que el fichero exista es cuando da el error de no poder acceder a él.
Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Resulta, que mirando el httpd.conf, esas líneas ya estan en el fichero...
supongo que al instalar NefeleWizard se encarga...
12345678910Define SRVROOT "/Apache24"ServerRoot "${SRVROOT}"# Para que funcione el OLE dentro de Apache y con él ADO y el acceso a Microsoft SQLServerSetEnv ProgramFiles "C:\Program Files"SetEnv "ProgramFiles(x86)" "C:\Program Files (x86)"SetEnv ProgramFilesW6432 "C:\Program Files"SetEnv CommonProgramFiles "C:\Program Files\Common Files"SetEnv "CommonProgramFiles(x86)" "C:\Program Files (x86)\Common Files"SetEnv CommonProgramFilesW6432 "C:\Program Files\Common Files"Así es como lo tengo... y no me funciona.
Gracias por vuestro tiempo.
Estaria de bien que lo probara algun otro usuario...
Yo lo voy a probar en otra PC, a ver que tal.
(editado)... probado en una segunda PC, y tampoco me funciona, el mismo error.
De hecho, el servidor que tenia probando mod_harbour, el httpd.conf no tenia esas variables SetEnv y me funcionaba el objeto "Excel.Application"
Un Saludo,
Xevi.
Supongo que es por la versión que tengo de Néfele...
:cAccept := ".xlsx, .xls"123456789101112131415161718192021Error en /provanefeleEl siguiente error ha ocurrido: Message not foundWFileOpenDlg:_CACCEPTBASE 1005Arguments: [ 1] = Tipo: O Valor:Error code: 0Llamado desde __ERRRT_SBASE(0)Llamado desde WFILEOPENDLG:ERROR(0)Llamado desde (b)HBOBJECT(0)Llamado desde WFILEOPENDLG:MSGNOTFOUND(0)Llamado desde WFILEOPENDLG:_CACCEPT(0)Llamado desde EXCEL2SEPA(169)Llamado desde (b)TCGI(36)Llamado desde TCGI:EXCEL2SEPA(0)Llamado desde __OBJSENDMSG(0)Llamado desde TCGI:RUN(1190)Llamado desde CGI_INIT(22)Llamado desde MAIN(16)Por favor, anote lo que estaba haciendo cuando este problema ocurrio, para poder identificarlo y corregirlo, gracias.Un Saludo,
Xevi.
Quim,
Si, si lo veo con un submit de un Form, lo que pretendia es mostrar unos datos, que se rellenen unos campos en función del fichero seleccionado y procesar la información.
No hay problema de hacer primero un Form, donde solicito el fichero, y una vez subido pasar a otra pagina donde mostrar esos datos y hacel lo que tenga que hacer.
Solo, por curiosidad, pues digo, igual puedo lanzar el ajax y lo dejo mas como tengo hecho en la aplicación escritorio, nada más.Un Saludo,
Xevi.
Pues alguna cosa ocurre con la versión que tengo de Néfele!!!
En un proyecxto de Xailer...
123456789101112131415161718192021222324METHOD Button1Click( oSender ) CLASS TForm1Local oExcel, nFor, cFileXLS := "C:\prova\prova.xlsx", oHoja, nMaxTRYoExcel := GetActiveObject( "Excel.Application" )CATCHTRYoExcel := CreateObject( "Excel.Application" )CATCHLogDebug( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )ENDENDoExcel:WorkBooks():Open(cFileXLS)oHoja := oExcel:ActiveSheet()nMax := oHoja:UsedRange:Rows:Count()For nFor := 1 TO nMaxLogDebug( oHoja:Cells( nFor,1 ):Value )NextoExcel:ActiveWorkbook:Close( .F. )oExcel := NILRETURN NilEstá funcionando correctamente y visualizo los valores de las celdas 1 de la hoja1
Ahora bien, en un proyecto NéfeleXailer
123456789101112131415161718192021222324PROCEDURE pruebaXLS()Local oExcel, nFor, cFileXLS := "C:\prova\prova.xlsx", oHoja, nMaxTRYoExcel := GetActiveObject( "Excel.Application" )CATCHTRYoExcel := CreateObject( "Excel.Application" )CATCHoCGI:Console( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )ENDENDoExcel:WorkBooks():Open(cFileXLS)oHoja := oExcel:ActiveSheet()nMax := oHoja:UsedRange:Rows:Count()For nFor := 1 TO nMaxoCGI:Console( oHoja:Cells( nFor,3 ):Value )NextoExcel:ActiveWorkbook:Close( .F. )oExcel := NILRETURNDa error al legar a Open()
1234567891011121314151617Error en /provanefeleEl siguiente error ha ocurrido: Microsoft Excel no puede obtener acceso al archivo 'C:\prova\prova.xlsx'. Puede haber varios motivos: � El nombre o la ruta del archivo no existen. � Otro programa est� usando el archivo. � El libro que est� intentando guardar tiene el mismo nombre que otro libro que est� abierto en estos momentos. (0x800A03EC)OPENWINOLE 1007Arguments: [ 1] = Tipo: C Valor: C:\prova\prova.xlsxError code: -2147352567Llamado desde WIN_OLEAUTO:OPEN(0)Llamado desde PRUEBAXLS(207)Llamado desde (b)TCGI(37)Llamado desde TCGI:PRUEBAXLS(0)Llamado desde __OBJSENDMSG(0)Llamado desde TCGI:RUN(1190)Llamado desde CGI_INIT(22)Llamado desde MAIN(16)Por favor, anote lo que estaba haciendo cuando este problema ocurrio, para poder identificarlo y corregirlo, gracias.Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Por más vueltas que le doy, no logro entender...
Realmente, lo que está funcionando es un exe Xailer+harbour+Mingw que lo que hace es procesar datos y crear un archivo html para mostrar datosBien, o sea que TODO lo que no es "visual" debe de funcionar igual, entendí.
12345678910111213141516171819202122aFulls := {}cFileXls := "C:/Apache24/cgi-bin/tmp/" + oCGI:GetCgiFile("fitxerxls")TRYoExcel := GetActiveObject( "Excel.Application" )CATCHTRYoExcel := CreateObject( "Excel.Application" )CATCHcError := "ERROR! Excel not avialable."ENDENDTRYoExcel:WorkBooks():Open( cFileXls )For n:=1 TO oExcel:Sheets:CountAAdd( aFulls, oExcel:Sheets(n):Name )NextoExcel:ActiveWorkbook:Close( .F. )CATCHcError := "ERROR! Llibres/Sheets"ENDLo único que estoy haciendo, es en un momento dado, abrir un documento, no muestro NADA, miro que "hojas" tiene ese archivo excel para cargarlos en un array, cerrar el documento y luego ese array es el que enviaré a mostrar en una página.
Simplemente, de momento eso. Pues no me funciona.
Un Saludo,
Xevi.
Sigo con este tema...
Bien, por lo visto, acceder con FOpen(), MemoRead()...
FOpen( "C:\Apache24\cgi-bin\tmp/" + oCGI:GetCgiFile("fitxerxls") )
MemoRead( "C:\Apache24\cgi-bin\tmp/" + oCGI:GetCgiFile("fitxerxls") )
No da problemas y puedo abrir el archivo...
ahora bien, no se que puede ocurrir, cuando
oExcel := GetActiveObject( "Excel.Application" )
no se queja, que no pueda hacer un
oExcel:WorkBooks():Open( "C:/Apache24/cgi-bin/tmp/" + oCGI:GetCgiFile("fitxerxls") )Pues no se como poder leer archivos excel si no tiro de ese componente.
Para crear un archivo excel, tengo la clase TFileXls de Ramon Avendaño, pero no para lectura/modificación de un excel...Un Saludo,
Xevi
Quim,
Estoy tratando de "subir" primero un archivo y una vez alojado en el servidor, ya que lo aloja en la carpeta cgi-bin/tmp, procesarlo-abrirlo-leerlo... no se si hago alguna "estupidez", pero imagina una imagen jpg,bmp... qué harias con el fichero subido-recibido al servidor, mostrar-procesar-ver... pues de eso se trata que podamos subir archivos al server, no???
Una vez leido el arcchivo SI que voy a devolver datos y mostrarlos en una página, pero necesito poder "procesar-tratar" los datos de ese archivo subido
De hecho, lo planteo así, porque las pruebas que hice con mod_harbour, funcionaba de esta manera (igualita que con harbour).
Se trata de subir, leer-tratar datos y devolver datos para mostrar en una página.No pretendo abrir Excel, sinó que aprovechar el ActiveObject dentro de las posibilidades de abrir documento, leer/modificar celdas, capturar datos y finalmente mostrar datos en una página web.
Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Quim, no... no es por eso.
al menos con o sin # hace lo mismo, no lanza el evento AjaxEl ejemplo nefele_samples, el control WComboBox
123456789101112131415161718// Inatanciamos el wComboBox que va ha realizar la llamada por AJAX a nuestro CGIwith OBJECT WComboBox():New(:WO):cId := "diavisita":aItems := {{1,"Lunes"},{2,"Martes"},{3,"Miercoles"},{4,"Jueves"},{5,"Viernes"},{6,"Sabado"},{7,"Domingo"}}:cText := "Seleccione el día de visita":cIcon := "event_available":cTitle := "Día de visita":cHelp := "Este es el día que prefiere que le hagamos la visita periodica"// Aquí comienza la "magia" con Ajax:cAjaxBevel := "bvHoraVisita" // Le indicamos que la respuesta al evento no va ha ser una página nueva// sino que hay que "incrustarla" en el wBevel bvHoraVisita:lAjaxWaitON := .T. // Podemos indicarle que mientras se procesa la llamda por Ajax en el wBevel que va// recibir el resultado presente un indicador de actividad al estilo Materialize:cOnChange := "actualizahorario" // Este es el Method de nuestro CGI que procesara la llamada por AJAX// y nos devolvera el resultado// Creamos el wComboBox:Create()end withy la magia "fluye"... no con el caso de un WFileOpenDlg
12345678910With Object WFileOpenDlg():New(:WO):cName := "fichero":cTitle := "Fitxer Excel per crear ordre SEPA":cHelpOk := "Ok":cHelp := "Es necessita d'un fitxer en format Xls o Xlsx":cAjaxBevel := "bvHoraVisita":lAjaxWaitON := .T.:cOnChange := "actualizahorario":Create()End WithGracias por vuestro tiempo.
Un Saludo,
Xevi.
Quim,
Propiedades del proyecto... mira que "formulario principal" apunte al prg que tienes CGI_Init() y que ésta procedure/function sea la primera que tengas declarada en el prg
Un Saludo,
Xevi.
Le voy hechando ganas, si más no, jejeje
Creo que de momento, lo que más va a costarme será el "aspecto" ya que Néfele, al estar "intregrado" con Xailer, voy a poder utilizar o "reutilizar" mucho código escrito para presentar las páginas, al menos eso es lo que voy viendo.
Por lo que respecta a WSideNav, una tonteria que veo... la transparencia de cTitle no es 100%, pues el ejemplo que teneis, si nos fijamos bien, se muestra un fondo del Label del título.
En esta captura, igual se aprecia más...
Gracias por vuestro tiempo.
Un Saludo,
Xevi.
Fredy...
mis avances, en pruebas, solo me da que satisfacción a medida que me adentro en el código.
de momento, en mis pruebas, toco medidas del Logo y tamaño texto del Título de la NavBar
12:cCss := "#mirebar_logo > img {margin-top: 6px; height: 80% !important;}" +CRLF +;"#mirebar_title {font-size: 25px; !important;}"Un Saludo,
Xevi.
Andrés,
Se tiene que crear un acceso en el ficherete de Apache httpd.conf
ScriptAlias /nefele_samples "${SRVROOT}/cgi-bin/nefele_samples.exe"
y reiniciar Apache.
De no tener ese acceso, puedes acceder ingresando en el navegador
localhost/cgi-bin/nefele_samples.exe en el navegador
Un saludo,
Xevi
Siguiendo con el tema de "personalización" de la ReBar...
El tamaño del la imagen, ponerla a 70% y con un margen Top a 10px por ejemplo.123456789101112131415with object WRebar():New(oParent):oStyle:cBackground = "#bfccc3":lBeforeMain := .T.:lMenuNav := .T.:lBlock := .T.:cTitle := cTitle:cTitleAlign := xc_Center:cLogo := "images/@Soft/@Soft.ico":cLogoAlign := xc_Right/* Busco algo así:nLogoMarginTop := 10:nLogoPercent := 70%*/:Create()end withTambién, poder establecer una fuente y tamaño del texto de la WSideNav
1234567with object WSideNav():New(oParent):cId := "Menu":cTitle := "Mi Primera Web"/*Algo como:cFontNameTitle := "Arial":nFontSizeTitle := 15Perdona por las preguntas, pero no veo documentación en el Wiki, y de aquí mis inquietudes.
Gracias por tu tiempo.
Un saludo,
Xevi.
Ya funciona correctamente!!!
Una dudilla que tengo.
¿Como puedo establecer cClrPane personalizado a un control???Por ejemplo...
with object WRebar():New(oParent)
:cClrPane := "pink"desearia ponerlo
:cClrPane := #bfccc3
Quien dice una WreBar un Label o cualquer otro.
Gracias
Un Saludo,
Xevi
Fredy,
Sigue faltando, en el proyecto, el fichero "nefele.ch", que he tenido que copiar de la copia del primer ejemplo a la carpeta imclude y también a la carpeta SubProjects/Forms/include
Además, he tenido que cambiar en el proyecto... Fichero de salida
\Apache\cgi-bin\nefele_samples.exe
por
\Apache24\cgi-bin\nefele_samples.exe
Un Saludo,
Xevi
Al ejemplo que adjuntas, le falta el fichero nefele.ch que debe ubicarse en la carpeta include
Yo le he añadido el que tenia del ejemplo inicial, y ya compila el proyecto.
Gracias por vuestro tiempo y felicidades por el trabajo que estais realizando.
Un Saludo,
Xevi
Estoy haciendo mis pruebas en mi PC... Apache alojado en C:\Apache24
Resulta que dispongo de un Servidor Apache, montado con xampp
He copiado el fichero provanefele.exe en C:\xampp\cgi-bin y las imágenes en C:\xampp\htdocs\images
Lo lanzo de un navegador o desde un movil https://xevicomas.no-ip.org/cgi-bin/provanefele.exe
Es una chorrada, pero con eso, ya puedo comprobar el funcionamiento en modo programación y en resultado final.
Ahora es cuestión de ir añadiendo código, ficheretes css propios, bases de datos locales o atacar MariaDb de un servidor... pero el primer paso ya está hecho, y siempre hay que dar el primer paso para poder continuar con el siguiente...
Un Saludo,
Xevi.
Esto SI me está funcionando
1234567PROCEDURE MainPage()With Object TWebPage():New():lValign := .T.:cIcon := "images/@Soft.ico":cTitle := "ProvaNéfele Xevi":cBackground := "images/fons.jpg"Esto no me funciona
123456With Object TWebPage():New():lValign := .T.:cIcon := "images/@Soft.ico":cTitle := "ProvaNéfele Xevi":cBodyBackground := "images/fons.jpg":cBackgroundColor := "transparent !important"Por cierto... no veo documentadas en el Wiki esas propiedades.
Un Saludo,
Xevi.
Fredy,
Gracias por la respuesta.
Lo que pretendo es (aprender) crearme una barra Header y una barra Footer. Para ir viendo y entendiendo código... asimilando lo que se me viene encima, jejeje.
con :AddHtml, como bien dices, inyecto codigo html en el <body>, cosa que no es lo que pretendo.
Voy a intentar crear una barra Header con un boton para abrir un form y desde ahí, capturar un par de datos para enviarlos a otro form y a ver que me voy encontrando.
Seguro que os voy a molestar más de lo que desearia, pero como toda novedad, uno anda a ciegas.
Gracias por vuestro tiempo
Un Saludo,
Xevi.
Estaré a la expectativa del ejemplo completo que vayais a publicar.
De momento, voy intentando "aprender" y estudiando un poco como poder adentrarme en la programación web, de la mano de Néfele.
Veo que podemos "inyectar" código html directamente en el Header, Footer...
123456789With Object TWebPage():New()*...:cInHeader := '<img src="/images/@Soft.ico" />' +;'<b style="color:#1f1f92;margin-left: 2px;">COMAS Software </b>' +;'<button id="btnlogin" onclick="btnlogin_onclick()" style="position: absolute; right: 0; margin-top: 20px; margin-right: 10px;">Login</button>' +;"<script> function btnlogin_onclick( e = 'onclick') {return autoform({'FUNCTION':'Login','btnlogin': e},'','', false, null, null);}; </script>":cInFooter := '<b style="margin-left: 10px; color:rgba(0,0,0,0.87)">(c) 2020 COMAS Software, s.l. </b>'*...Esto nos va a permitir libertad total en la confección de las páginas.
Un Saludo,
Xevi
Visto que disponemos de un Footer... una manera para incluir una Barra superior en la página sería con :cInHeader y seguro que más propiedades... O se tiene que montar con un WBevel???
Para poner logo, bienvenido, un menu desplegable de opciones...
Va a ser una barra, que se mostrará en casi todas las ventanas que se llamen sucesivamente.
Gracias por vuestro tiempo.
Un Saludo,
Xevi
¿Como puedo poner un tipo de font en un WLabel???
Pretendo tener distintos WLabels con distintas fuentes...
Gracias por vuestro tiempo.
Un Saludo,Xevi.
Esta sí.
http://localhost/cgi-bin/néfele.exeBien, he conseguido compilar correctamente, segun el cambio en propiedades del proyecto, tal como me has indicado, Fredy.
Me crea el exe en su lugar, pero no me "lanza" la web. http://localhost/ejemplo desde el navegador.
entiendo que deberia de crear un ficherete ejemplo.html en htdocs??? ese ficherete no está.
Esta tarde, si me enviais solicitud a la reunión miro con detalle como lo haceis.
Gracias por el trabajo que estais realizando.
Un Saludo.
Xevi
He empezado con Néfele, instalación sobre mi xampp ubicado en C:\xampp\Apache
Al compilar el ejemplo que lleva Néfele, me lanza el siguiente error...
Compilant Main.prg...
Compilant néfele.rc...
Compilant néfele.prg...
Compilant Info.prg...
Compilant MainPage.prg...
Compilant EjemploDeControles.prg...
Enllaçant néfele.exe...
C:\Xailer\harbour\comp\mingw\Bin\ld: cannot open output file C:/Apache24/cgi-bin/néfele.exe.$$$: No such file or directory
6 Files, 0 Warnings, 1 Errors
Temps de compilació: 1.50s Temps d'enllaçat: 0.46s Temp total: 1.98sUn Saludo,
Xevi
