Hola, tengo una utilidad en la que los usuarios pueden diseñar los emails con los que mandan las facturas y presupuestos. Este diseño se hace en un capo MEMO en html, e incluye logos, enlaces, etc. El resultado del código html se lo muestro en un controrl activex "Shell.Explorer.2". Los logos se incluyen en formato jpg/base64 para que no dependan de un enlace a ningún sitio. El problema lo estoy teniendo al incluir unos nuevos logos que ocupan mas, porque el campo memo donde se incluye el código no me admite una ligera variación de más en el tamaño el texto html. El texto html que necesito incluir guardado en un fichero .txt ocupa 27kb, pero al intentar copiar y pegar su contenido en el campo memo se corta y no lo copia entero, tampo por partes, ni siquiera deja escribir nada mas. Tenía entendido que el límite para los campos memo son 64kb, ¿O estoy equivocado? Uso FW32
Hola Sebastián:
Conviene separar dos límites: el del campo MEMO de la tabla y el del control con el que editas su contenido. Por lo que describes, que al pegar se corte y después no admita escribir más, comprobaría primero el límite del control de edición. Eso todavía no demuestra que se haya llenado el campo de la tabla.
En un EDIT de Windows el límite de entrada predeterminado, antes de configurarlo, es de 32.767 caracteres. Pero tus 27 KB no bastan para concluir que sea ese límite: puede haber una configuración distinta en el control o una diferencia entre el texto del fichero y el que realmente se está pegando.
En la clase TMultiGet actual existe LimitText() y se configura el límite al crear el control. No asumiría que tu versión o el control que utilizas se comporten igual, ni tomaría 64 KB como un límite universal de cualquier campo MEMO: importa el formato y el RDD.
¿Puedes mostrar la declaración o REDEFINE del control donde editas el HTML, indicar la versión de FWH y el RDD/formato de la tabla (por ejemplo, DBFCDX/FPT o DBFNTX/DBT)? Si es un control definido en recursos, incluye también su definición del RC.
Una comprobación útil, sobre una copia de los datos, es cargar el mismo fichero directamente en la variable y en el campo, sin pasar por copiar/pegar, y comparar la longitud antes de guardar y después de cerrar y volver a abrir la tabla. Si así se conserva completo, podremos centrar el problema en el editor y no en el almacenamiento. No hace falta compartir el HTML de facturas ni datos de clientes.
Referencia del límite de entrada de Windows:
https://learn.microsoft.com/en-us/windows/win32/controls/em-limittext
Un saludo,
FiveTech AI
Hola, he probado a cargar la variable directamente de un fichero de texto que ocupa 32kb con un memoread y lo carga entero, me muestra el resultado en el control active-x bien. Aunque así ya no me deja escribir en el control memo.
Como bien dices debe ser algún límite en el control memo, lo declaro así:
REDEFINE GET ocodtexto VAR ccodtexto ID 102 OF oDlg MULTILINE //Aqui se pone el código
REDEFINE ACTIVEX otexto ID 101 OF oDlg PROGID "Shell.Explorer.2" //Aqui se muestra el resultado
otexto:nDlgCode = DLGC_WANTALLKEYSEl dialogo está dentro de un fichero de recursos, este es el código:
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
Datosemail DIALOG 0, 0, 515, 425
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
LTEXT "email para la copia:", 0, 20, 103, 62, 9, SS_LEFT, WS_EX_LEFT
EDITTEXT 116, 86, 100, 195, 14, ES_AUTOHSCROLL, WS_EX_LEFT
EDITTEXT 102, 14, 142, 491, 104, WS_VSCROLL | NOT WS_TABSTOP | ES_AUTOVSCROLL | ES_MULTILINE | ES_WANTRETURN, WS_EX_LEFT
GROUPBOX " Previsualización del texto del email ", 0, 11, 252, 494, 147, 0, WS_EX_LEFT
GROUPBOX " Código del texto para el email ", 0, 12, 130, 494, 120, 0, WS_EX_LEFT
CONTROL "", 101, "TActiveX", 0x50010000, 13, 264, 491, 131, 0x00000000
PUSHBUTTON "Cancelar", 771, 454, 405, 50, 14, 0, WS_EX_LEFT
PUSHBUTTON "Aceptar", 770, 400, 405, 50, 14, 0, WS_EX_LEFT
GROUPBOX " Envio de copias de control ", 0, 12, 55, 493, 65, 0, WS_EX_LEFT
LTEXT "Si desea que se envíe una copia del email para control interno, indique la direcciones a las que se enviarán:", 0, 19, 69, 376, 9, SS_LEFT, WS_EX_LEFT
PUSHBUTTON "Seleccionar", 775, 354, 23, 73, 14, 0, WS_EX_LEFT
LTEXT "email para la copia:", 0, 20, 86, 62, 9, SS_LEFT, WS_EX_LEFT
EDITTEXT 115, 86, 83, 195, 14, ES_AUTOHSCROLL, WS_EX_LEFT
GROUPBOX " Configuración de la cuenta de e-mail ", -1, 11, 9, 494, 37, 0, WS_EX_LEFT
LTEXT "eMail remitente:", -1, 19, 24, 50, 8, SS_LEFT, WS_EX_LEFT
EDITTEXT 111, 73, 22, 274, 14, ES_AUTOHSCROLL, WS_EX_LEFT
}Hola Sebastián:
Gracias, esa prueba y la declaración ayudan a centrarlo en la entrada del GET MULTILINE. Que MemoRead cargue el texto y el ActiveX lo muestre no comprueba todavía el guardado completo en la tabla, pero sí distingue la carga del problema al seguir escribiendo.
Prueba a fijar explícitamente el límite cuando el diálogo ya está inicializado. En tu ACTIVATE DIALOG, añade:
ON INIT ocodtexto:LimitText( 100000 )Si ya tienes un ON INIT, integra esa llamada en su bloque existente; no sustituyas las otras inicializaciones. Hazlo en el diálogo que contiene el GET 102, no en el ActiveX. Los 100.000 son un límite elegido para esta prueba, no el tamaño máximo del campo MEMO.
He comprobado esta recomendación con un caso mínimo de REDEFINE GET MULTILINE y recurso EDITTEXT: cargando 40.000 caracteres, sin esa llamada la longitud seguía en 40.000 tras intentar escribir; con la llamada en ON INIT pasó a 40.192 y se veían los caracteres añadidos. La prueba fue con FWH 26.10 de 64 bits y Wine 11.19, no con tu FW32 ni en Windows nativo. No confirma por sí sola la causa en tu versión.
Comprueba sobre una copia si ahora puedes añadir texto, guardarlo y recuperarlo completo tras cerrar y reabrir. Dinos también la versión exacta de FWH y el RDD que utilizas. Si tu versión no reconoce LimitText(), indícalo antes de cambiar la clase o el recurso.
Un saludo,
FiveTech AI
Gracias Fivetech AI, a falta de una comprobación más profunda, poner ON INIT ocodtexto:LimitText( 100000 ) me ha funcionado perfecctamente. El caso es que incluso anteriormente había intentado poner la data Limitext a 64000 directamente en la clase y no me funcionó, por lo que abandoné esa posibilidad, no se me ocurrió que al ponerla en el ON INIT del dialogo pudiera funcionar. Doy el hilo por solucionado.
Gracias por confirmar la prueba, Sebastián. Me alegro de que te haya funcionado y puedas dar el hilo por solucionado.
Dejamos como solución que has comprobado la llamada a LimitText( 100000 ) en el ON INIT del diálogo, sin necesidad de modificar la clase. Queda pendiente esa comprobación más profunda que comentas; no la damos por hecha.
Un saludo,
FiveTech AI