FiveTech Software tech support forums

__clsVerify(<nClassH>)-><acBrokenMessages>|Nil __objAddData(<oObject>,<cDataName>)->oObject __objAddInline(<oObject>,<cInlineName>,<bInline>)->oObject __objAddMethod(<oObject>,<cMethodName>,<nFuncPtr>)->oObject __objDelInline(&l...

__clsVerify __objAddData __objAddInline __objAddMethod __objDelInline __objDelMethod __objDelMethod __objDerivedFrom __objGetMethodList __objGetValueList __objModInline __objModMethod __objSetValueList __Pack __Run __Zap AAdd Abs AChoice AClone ACopy ACos AddASCII AddMonth ADel ADir ADSBlob2File ADS...

HB_FUN_HB_CODEPAGE_HR646 @367 HB_FUN_HB_CODEPAGE_HR852 @368 HB_FUN_HB_CODEPAGE_HRISO @369 HB_FUN_HB_CODEPAGE_HRWIN @370 HB_FUN_HB_CODEPAGE_HU852 @371 HB_FUN_HB_CODEPAGE_HU852C @372 HB_FUN_HB_CODEPAGE_HUISO @373 HB_FUN_HB_CODEPAGE_HUWIN @374 HB_FUN_HB_CODEPAGE_IS850 @375 HB_FUN_HB_CODEPAGE_IS861 @376...

... length" larger than the plaintext. Here is my code: pbBuffer := space(dwBufferLen) dwCount := fread(hSource,@pbBuffer,dwBlockLen) Encrypt(hKey, 0, feof(hSource), 0, @pbBuffer, @dwCount, dwBufferLen) DLL32 Function Encrypt( hKey AS LONG,; hHash AS LONG,; lFinal AS BOOL,; nFlags AS DWORD,; @cData ...

Hi, I found , harbour\contrib\libmisc.lib hb_feof() always return .t. 28.txt file as : line1 239845 2006-12-28 06:19:06 03 0 line2 659532 2006-12-28 06:21:08 03 0 line3 928440 2006-12-28 07:24:28 03 0 line4 938007 2006-12-28 07:24:28 03 0 hfile:=hb_Fuse("a28.txt") ?hb_feof() // .t. ?hb_freadln() //l...

... Error E0030 Syntax error: "parse error at 'INT'" Esta otra funcion siempre me da TRUE, es decir FIN DE FICHERO function feof( nHandle ) local lEof := ( fseek( nHandle, 1, FS_RELATIVE ) == fseek( nHandle, 0, FS_RELATIVE ) ) if ! lEof ...

hi,
I know xharbour has functions:

hfile:=hb_Fuse("ccc.txt")
while !hb_feof()
c1:=hb_freadln()
hb_fskip(1)
end
hb_fuse()
fclose(hfile)
but harbour without.

Are there lists of what functions each harbour libs files includes ?

Regards!
Shuming Wang

... { unsigned int ui = hb_parnl( 1 ); unsigned char uc = hb_parnl( 2 ); hb_retnl( ui >>= uc ); } > Name: feof() - see if the file pointer is at the end of file Usage: <logical> = feof(<handle>) > function feof( nHandle ) local lEof ...

... integer <number> number of shifts, not greater than 255 Returns: integer equal to the bitwise shr of <int> and <number> Name: feof () - see if the file pointer is at the end of file Usage: <logical> = feof(<handle>) Params: integer <handle> - handle from a ...

I suggest first create ADO Connection, this connection we can use in ADO Recordsets (in dBase terminology TABLE ), second parameter is string or ADO Connection object. If we create connection object we can use cnn:Execute("Select * FROM Table"), cnn:Errors and open method of recordsets is fast. My s...

Hola Elias, si, debes añadir la funcion pues no existe fEof en Harbour. Referente a porque no te funciona, pues a primera vista y sin probarlo, estas utilizando fRead, y esta funciona retorna los bytes leidos, y no la cadena leida. O bien usas fReadStr, ...

... *** if a < 0 return endif *** Inicializa variables c= 'datos.dbc' && se trata del enlace q tiene la tabla al *.dbc n= 0 do while !feof(a) b= lower(fread(a,1)) n= n + 1 c= right(c+b,9) if c= 'datos.dbc' fseek(a,0,0) && se posiciona al principio del fichero fseek(a,n-9) && ...

... *** if a < 0 return endif *** Inicializa variables c= 'datos.dbc' && se trata del enlace q tiene la tabla al *.dbc n= 0 do while !feof(a) b= lower(fread(a,1)) n= n + 1 c= right(c+b,11) if c= 'datos.dbc' fseek(a,0,0) && se posiciona al principio del fichero fseek(a,n-15) ...

Hola a todos...

Alguien sabe si se puede usar la función feof()??. Si es así que cabecera hay que incluir, porque a mi no me lo está cogiendo....


Saludos..

Elías Torres.

... la otra forma seria algo asi: lnFile = fopen(curdir()+"\articulo.dbf") if lnFile < 0 msginfo("Error al abrir el archivo.") else i = 0 do while !feof(lnFile) &&aqui va el codigo que no lo tengo muy claro.... enddo fclose(lnFile) endif Alguien puede hecharme una mano en esto??? Saludos ...