Hola a todos, necesito abrir un archivo para lectura y escritura en modo binario y no puedo hacerlo. El código es...

hInputFile := FOpen((cFilePath + cFileName + cFileExt), (2 + 16))
nBytesRead := FRead(hInputFile, @cBuffer, nBlockRead)

Da igual si la apertura del archivo es 0+0, 0+16, 2+0 ó 2+16 (modo lectura+compartido), o si nBlockRead es 1 ó mayor que 1 (cBuffer es una cadena de caracteres ajustada al tamaño de nBlockRead), me falla en todos.

¿Cómo lo puedo hacer?

Gracias.

Hola eb4bgr;
Veas si te sirve este ejemplo.

Un saludo
Fraguibo

Franguibo, muchas gracias por tu ayuda pero no me funciona. Con tu código, en C3 v2, me sale el mismo error: error no recuperable 999 (999=intento de ejecutar código no válido, según documentación de Clipper).

¿Alguna sugerencia?

Manda un ejemplo que veamos lo que haces.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Bruno, el código no tiene nada de especial y los valores de cada variable se comprueban antes de ejecutar el código. Es una rutina para leer los primeros #x bytes de un archivo, y dependiendo de lo que lea irá a una parte del programa o a otra, pero lo que falla es la apertura del archivo o su lectura. Ese mismo código funciona en Clipper 5.3

Para prevenir un posible fallo del compilador por si FRead() tiene funciones compartidas con los campos memo del driver dbfntx (que falla en ellos), no uso este driver; sólamente uso el driver dbfcdx+edbfcdx. El archivo se cierra al entrar en la función con FClose() para prevenir que ya pueda estar abierto, y si no está abierto FClose() cierra, sin generar error, una variable con el valor (-1). Pero también he probado a anular FClose() y abrir directamente el archivo y no funciona.

Alejandro,


Lo que para unos es código normal para otros puede no ser tan normal, si tu crees que lo que haces está bien pues adelante, si te falla algo a lo mejor hay algo que no está tan bien como te parece, prueba el ejemplo Blobs, hace uso de la función FOpen y FRead.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Hola de nuevo eb4bgr;

Despues de repasar las funciones FOpen() y Fread(), junto con el ejemplo Blobs, he llegado a confeccionar este metodo, pruebalo haber si es lo que estas buscando.

Method ExtraerBites() Class xxxx

Local aPun, aVar, aBit, aLee, aTot
// Abrimos y leemos el fichero.
aPun := Fopen( ‘Fichero’, FO_READ )
// Comprobamos el tamaño del fichero leído.
If aPun >= 0
aVar := Space( 4096 )
aBit := ‘’
aLee := FRead( aPun, @aVar, aVar )
aTot := aLee
// Si el Tamaño del fichero es mayor que aVar.
Do While aLee >0
aBit += Left( aVar, aLee )
aLee := FRead( aPun @aVar, aVar )
aTot += aLee
Enddo
Endif
FClose( aPun )

Return NIL

Ya me comentaras si te ha servido

Fraguibo

Gracias Franguibo, de momento estoy rehaciendo todo el proyecto desde cero, a ver si de paso también encuentro lo que me falla en la clase TRegEdit(). He hecho algunas pruebas modificando el proyecto de los BLObs y sigue funcionando, por lo que ya he descartado que fuera la peor de mis pesadillas. Con el tiempo lo encontraré.

Un saludo.

Franguibo, muchas gracias por tu ejemplo pero sigue sin funcionar. Ya he rastreado el error y es un fallo de C3. Por cierto, curioso uso el que le das a FRead(), aunque a mí no me ha leído nada. Bien, aquí está el error...

local aPun, aVar, aBit, aLee, aTot // FUNCIONA
private aPun, aVar, aBit, aLee, aTot // FALLA
public aPun, aVar, aBit, aLee, aTot // FALLA

// Abrimos y leemos el fichero.
aPun := Fopen( "prueba.txt", 0 )
// Comprobamos el tamaño del fichero leído.
If aPun >= 0
aVar := Space( 4096 )
aBit := ""
aLee := FRead( aPun, @aVar, aVar )
aTot := aLee
// Si el Tamaño del fichero es mayor que aVar.
Do While aLee >0
aBit += Left( aVar, aLee )
aLee := FRead( aPun, @aVar, aVar )
aTot += aLee
Enddo
Endif
FClose( aPun )

Hola de Nuevo eb4bgr:

De lo que me dices que es muy curioso la forma en que utilizo la función Fread(), pues si consultas las forma de trabajo de esta función, veras que esta es la mejor forma de utilizarla, sin exponerte a que el programa te de ERROR, aqui te adjunto un trozo de su documentación:

"Es muy Importante y Fundamental, el comprobar de antemano que la Variable, es lo suficiente grande, como para poder contener todos los Bites Leídos, ya que si la Variable es más pequeña, de lo necesario el Programa Falla.

Este es el error más común, que cometen los Programadores, cuando se utilizan funciones, de Entrada/salida de Bajo Nivel, por lo que el Método recomendado, con los resultados mas fiables y garantizados, es el utilizar la Longitud de la Variable de Memoria, como el Valor del Tercer Parámetro."

Todo esto y mucho más esta reflejado en el nuevo tutorial que estoy confeccionando para C3 y su IDE.

Bueno recibe un saludo.

Fraguibo

Hola Franguibo, lo del tamaño de las variables siempre lo he tenido en cuenta. Te lo decía por...

aLee := FRead( aPun, @aVar, aVar )

El último parámetro es numérico y le estás asignando una cadena de caracteres, pero al probar tu código no salió ningún error run-time.

Un saludo.

Estoy de acuedro con eb4bgr, ya que la documentación dice:

Syntax

FREAD(<nHandle>, @<cBufferVar>, <nBytes>) --> nBytes

Arguments

<nHandle> is the file handle obtained from FOPEN(), FCREATE(), or
predefined by DOS.

<cBufferVar> is the name of an existing and initialized character
variable used to store data read from the specified file. The length of
this variable must be greater than or equal to <nBytes>. <cBufferVar>
must be passed by reference and, therefore, must be prefaced by the pass-
by-reference operator (@).

<nBytes> is the number of bytes to read into the buffer.

... por lo que la sintaxis de Fragibo no la comparto.

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola eb4bgr y Jesús:

Los dos teneis razón el uno de extrañarse y el otro de no compartir mi opinión, por que segun la ducumentación, real de esta Función, deberia de habertela escrito así:

aLeido := FRead( aPuntero, @cVarBuff, Len( cVarBuff ))

Aqui os lo expongo reflejado, tal como viene en la documentación, de que dispongo yo:

aPuntero := Space( 4096 ) .
cVarBuff := FOpen( “Fichero”, FO_READ )
FRead( aPuntero, @cVarBuff, Len( cVarBuff ))

Así esta función devuelve, el Numero de Bites que realmente a Leído y sí si la lectura es Correcta, su valor será igual al Tercer Parametro.

Un saludo.
Fraguibo

Franguibo, no pasa nada, sólo te lo comenté porque me había llamado la atención tu código y al probarlo no me funcionaba. De hecho, ni si quiera esperaba tu respuesta a ese comentario. A pesar de saber que la sintáxis no era correcta, fuí yo quien decidió probar tu código para ver si funcionaba y era una característica no documentada de FRead().

El problema está solucionado y la parte correspondiente del código fuente del proyecto terminada.

Gracias a todos.