FiveTech Software tech support forums

... = true) { $recordOffset = $header['headerLength'] + ($index * $header['recordLength']); fseek($fileHandle, $recordOffset); $record = fread($fileHandle, $header['recordLength']); if ($record === false) { if ($loggingEnabled) { error_log("Error reading record at index $index"); ...

... .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) end FClose( hSource ) oFile:End() return .t. //----------------------------------------------------------------------------//

encontre, esto, no tengo muy claro la parte de la lectura del archivo... m_str = fread( ifp, m_cnt ) http://www.verycomputer.com/165_a88f85a8a4ea61b7_1.htm FUNCTION comp_3( m_cnt )PRIVATE m_str, m_data, m_cnt, m_luku, m_ub, m_lb, m_uc, m_lcm_ub ...

... ) nMemLength := Fseek( nMemHandle, 0, 2) Fseek(nMemHandle,0) nCount := 1 Do While Fseek(nMemHandle, 0, 1)+1 < nMemLength nMemWidth:= space(18) Fread( nMemHandle, @nMemWidth, 18 ) cVarName := Left( nMemWidth, At( Chr(0) , nMemWidth ) -1 ) cVartype := Substr( nMemWidth, 12, 1 ) cVarRec := Bin2w( ...

Buenos dias

El comando FOpen() abre el archivo. Nada mas.

Fseek() posiciona el puntero de lectura.

Dentro de tu bucle no cambias el puntero con otro FSeek()
Como FRead() te devuelve el numero de bytes ledidos, yo comprobaría antes de escribir si cBuffer tiene contenido.

Saludos

I only use Memoread to read txt files. To read any others type I use Fread.
I also think BLOB fields are better to save PDF files.

... oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) endd FClose( hSource ) oFile:End()

... FParseEx(<cFileName>,[<cDelimiter>])->aTextArray FParseLine(<cTextLine>,[<cDelimiter>])->aTextFields FRead(<nHandle>,@<cBufferVar>,<nBytes>,[<nOffset>])->nBytes FReadStr(<nHandle>,<nBytes>)->cString FreeLibrary(<nDllHandle>)->lSuccess ...

... FileSize FileStats FileStr FileTime FileValid FileWriter FKLabel FKMax FLineCount FLock Floor FloppyType FOpen Found FParse FParseEx FParseLine FRead FReadStr FreeLibrary FRename FSeek FtoC Fv FWordCount FWrite GetActiveObject GetClearA GetClearB GetClrBack GetClrFore GetClrPair GetCurrentThread ...

... TELL NETWORK ADMINISTRATOR OF THIS!") END IF FILE("f:\SCO_LPT.DAT") HANDLE = FOPEN("f:\SCO_LPT.DAT",FO_READWRITE) FREAD(HANDLE,@PRINTPORT,1) FCLOSE(HANDLE) END SETCURSOR(HAROW) CHKSYSTIMR() SETCURSOR(HWAIT) IF !FILE(FILENAME) SETCURSOR(HAROW) * IF YNCONFIRM("A ...

... nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local nBufsize:=4000 local xfile:="" hSource = FOpen( hsource) while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 xfile:=xfile+left(cbuffer,nBytes) end FClose( hSource ) FClose( hTarget ) xfile:=StrToBase64(xfile) return ...

... sea en html, es decir algunas partes en negrita, enlace a su web y a mailto:... He creado un archivo .html con ese texto con formato, lo leo con fread(), pero al pasarlo a ctext me sale el texto tal y como figura en el archivo, es decir con las etiquetas html. osea no interpreta que es html. ...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

Using msvc 2013, on both 3.2 and 3.4 I started getting this warning when linking any/all programs using FWH 15.03. It's a warning, so my code still links, but this didn't happen prior to 15.03 and I would like to get this warning cleared. I expected to find a declaration declspec(dllimport) for each...

C:\fwh\samples>buildh32 webcam ┌────────────────────────────────────────────────────────────────────────────┐ │ FiveWin for Harbour 15.03 (MSVC++) Mar. 2015 Harbour development power │▄ │ (c) FiveTech, 1993-2015 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█ └────────────────────────────────...