Page 1 of 1
Crear un fichero de más de 8 letras
Posted: Wed Apr 30, 2008 2:00 pm
by Andrés G.
Hola a todos,
Tengo que crear un fichero con un nombre largo (más de 8 carácteres).
¿Con que comando puedo crearlo? El comando FCREATE() no funciona.
Gracias.
Andrés
Posted: Wed Apr 30, 2008 11:01 pm
by Antonio Linares
Andrés,
Usa la función LFN2SFN( cNombreLargo ) --> cNombreCorto y crea ese nombre corto (que corresponde al nombre largo que deseas)
Posted: Mon May 05, 2008 9:33 am
by Andrés G.
Gracias Antonio.
Esto ya lo probé y lo que consigo es acortar el nombre a 8 caracteres no crear un fichero de mas de 8 caracteres, que es lo que yo necesito.
¿Hay alguna solución?
Recuerdos,
Andrés
Posted: Tue May 06, 2008 6:46 am
by Antonio Linares
Andrés,
Revisa samples\longname.prg
Posted: Tue May 06, 2008 10:14 am
by Andrés G.
Antonio,
He probado el ejemplo, lo he compilado tal cual y el resultado es un archivo con solo los 8 _ del nombre, obvía el resto.
¿Sabes a que puede deberse?
Recuerdos,
Andrés
Posted: Tue May 06, 2008 11:51 am
by Antonio Linares
Andrés,
Tienes razón, discúlpame
Ese ejemplo funciona correctamente con Harbour y FWH 32 bits, pero no con Clipper y FW 16 bits.
Posted: Wed May 07, 2008 7:21 pm
by Andrés G.
Gracias por tu interés Antonio.
Saludos,
Andrés
Posted: Mon May 12, 2008 8:57 am
by Sebastián Almirón
Hola, yo utilizo las siguientes funciones para crear y manipular los ficheros con nombres largos:
DLL32 FUNCTION FCreate32( lpPathName AS STRING, iAttribute AS LONG ) AS LONG PASCAL FROM "_lcreat" LIB "KERNEL32"
DLL32 FUNCTION FWrite32( hFile AS LONG, lpBuffer AS STRING, wBytes AS LONG ) AS LONG PASCAL FROM "_lwrite" LIB "KERNEL32"
DLL32 FUNCTION FClose32( hFile AS LONG ) AS LONG PASCAL FROM "_lclose" LIB "KERNEL32"
DLL32 FUNCTION FErase32( lpFileName AS STRING ) AS LONG PASCAL FROM "DeleteFileA" LIB "KERNEL32"
DLL32 FUNCTION FOpen32( lpPathName AS STRING, iReadWrite AS LONG ) AS LONG PASCAL FROM "_lopen" LIB "KERNEL32"
DLL32 FUNCTION FRead32( hFile AS LONG, @lpBuffer AS LPSTR, wBytes AS LONG ) AS LONG PASCAL FROM "_lread" LIB "KERNEL32"
DLL32 FUNCTION FSeek32( hFile AS LONG, lOffset AS LONG, iOrigin AS LONG ) AS LONG PASCAL FROM "_llseek" LIB "KERNEL32"
Es decir copias todo esto en tu programa y luego utilizar FCreate32 en vez de FCreate, lo mismo para FOpen, FWrite, FClose, FErase, FRead y Fseek.
Saludos
Posted: Mon May 12, 2008 10:04 am
by Andrés G.
Sebastián,
Funciona perfectamente, muchísimas gracias.
Recuerdos.
Andrés