FiveTech Software tech support forums

Definitivamente, con FW 16 Bits, GetDc32() y ReleasDc32() de USER32.DLL no funcionan correctamente. No es que se corte el programa, pero en mi módulo de carga de fotos no va como debería. Ni copiando el USER32 del XP. Lastima. Seguiré investigando...

Bueno, Fernando, no soy yo el más indicado para explicarte eso, pues llevo tan sólo algunas semanas con el traspaso de datos a Excel y World. Pero si entras en cualquiera de ellos, vete a la opcion "herramientas" del menu, subopcion "Macro", y pincha en "Editor de Visual Bas...

OK lo pruebo y te cuento. Gracias

Gracias Manuel. Es una buena solucion. La utilizaré.
Si no te importa, te voy a preguntar otra cosilla. ¿se puede cambiar el nombre al documento antes de modificarlo, ampliarlo, guardarlo, etc...?

Buena idea, lo probaré. Supongo que habrá que ponerlo entre oBook := oWord:Get("ActiveWorkBook") y oSheet := oWord:Get("ActiveSheet") Es que soy novato con excel. De todas formas, me gustaría que la hoja (factrura) se guardara, para que sea más automático y por si al cliente se l...

Ver¡ficado, he copiado el RunDlg32 del XP a mi ordenador W.Me (al directorio de la aplicacion) y problema solucionado, el cInitialFile ya sale.

Gracias Antonio.

He conseguido que FreeImage me funcione en 16 bits. En XP utilizo GetDc32() y ReleaseDc32(), y me lee todos lo JPG y PNG pero no me lee los GIF ni los TGA. Para W.Me tengo que utilizar GetDc() y ReleaseDc() normales, con lo que algunos JPG no me los lee. Al final he hecho una mezcla de un poco de to...

Resulta que tengo una hoja Excell con comodines que sustituyo, con mi aplicación, por los valores de la Base de Datos. Después le presento al usario los resultados (la Hopja Exel) en pantalla para que compruebe que están correctos y para que añada lo que le apetezca. Previamente he guardado la Hoja ...

Nada, solucionado con la MoveFile() de la kernel32.dll.

Funciona perfectamente. Primero se copia con nombre corto, y después se cambia de nombre con MoveFile()

Effectivly it doesn't work. But this works correctly: FUNCTION MAIN() TEST1() RETURN NIL STATIC FUNCTION TEST1() LOCAL oDlg LOCAL lGo := .F. DEFINE DIALOG oDlg; TITLE "Test1" @ 1, 1 BUTTON "Switch to test2"; ACTION (lGo := .T., oDlg:End()) ACTIVATE DIALOG oDlg CENTER ? "Exit...

Try this: FUNCTION MAIN() TEST1( 0 ) RETURN NIL STATIC FUNCTION TEST1( hWnd ) LOCAL oDlg IF hWnd # 0 PostMessage(hWnd,WM_CLOSE) ENDIF DEFINE DIALOG oDlg; TITLE "Test1" @ 1, 1 BUTTON "Switch to test2"; ACTION TEST2( oDlg:hWnd ) ACTIVATE DIALOG oDlg; CENTER ? "Exiting from tes...

Uno de mis problemas típicos que no parecen tener solución.
Pero lo intentaré, a ver si alguien sabe como se pueden copiar ficheros con CLIPPER 5.3. y FW 2.3, sin que pierdan el NOMBRE LARGO, y no se conviertan en: PLANTI~1.DOC

El INI está bien: [GetSaveFileName] lpstrFilter=Configuración de Documentos (CFD)|*.CFD lpstrIniFile=CLSEGUIM.CFD lpstrTitle=GUARDAR EL FICHERO DE CONFIGURACION nFilterIndex=1 lpstrInitialDir=C:\CLIPPER5\INMOB\DOCS\PLANTI~1\ Flags=4 hwndOwner=2692 working=1 [GetDirectory] working=0 lpstrDirectory= C...

Perdona Fernando, el día que leí tu solicitud no pude contestar y después se me olvidó. Ahora repasando algunas cosas he vuelto a leer este Topic. Algo debes estar haciendo mal, pués no depende de ninguna versión de FW, e incluso, debería funcionar en (x)Habour. A lo mejor no declaraste la variable ...

Gracias, Antonio, Solucionado. Cómo no.
En cuanto al tema del cInitialFile ¿Nada?

Un Saludo.