FiveTech Software tech support forums

... "+time()) oTxt:Close() if oFile:hFile > 0 h := fOpen(cFile) nSize := fSeek(h,0,2) fSeek(h,0,0) cBuff := Space(nSize) nRead := fRead(h,@cBuff,nSize) fClose(h)

... ACTION DOWNLOAD( oPrg ) ACTIVATE DIALOG oDlg; CENTER RETURN NIL STATIC FUNCTION DOWNLOAD( oPrg ) LOCAL hInternet, hConnect, hSource, hDest, nRead LOCAL cData := SPACE( 1024 ) LOCAL nPos := 0 hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) hConnect = ...

... NIL //----------------------------------------------------------------------------// METHOD PrintFile(cFile) CLASS TDosPrn LOCAL hFile LOCAL nRead LOCAL cBuffer hFile := FOpen(cFile, FO_READ) IF hFile < 0 RETURN .F. ENDIF cBuffer := Space(PF_BUFLEN) DO nRead := fRead(hFile, @cBuffer, PF_BUFLEN) ...

... NIL //----------------------------------------------------------------------------// METHOD PrintFile(cFile) CLASS TDosPrn LOCAL hFile LOCAL nRead LOCAL cBuffer hFile := FOpen(cFile, FO_READ) IF hFile < 0 RETURN .F. ENDIF cBuffer := Space(PF_BUFLEN) DO nRead := fRead(hFile, @cBuffer, PF_BUFLEN) ...

... nHandle := FOPEN( "memo2.fpt" ) nSize := FSeek( nHandle, 0, FS_END ) FSeek( nHandle, -nSize, FS_RELATIVE ) cAllMemos := SPACE( nSize ) nRead := FRead( nHandle, @cAllMemos, nSize ) FCLOSE( nHandle ) ? cAllMemos RETURN NIL cAllMemos contains in a single fRead all fpt file. For instance ...

... nHandle := FOPEN( "memo2.fpt" ) nSize := FSeek( nHandle, 0, FS_END ) FSeek( nHandle, -nSize, FS_RELATIVE ) cAllMemos := SPACE( nSize ) nRead := FRead( nHandle, @cAllMemos, nSize ) FCLOSE( nHandle ) ? cAllMemos RETURN NIL variable cAllMemos contains in a single fRead all fpt file. for ...

... cString1 , cString2, cString3, cString4 ) LOCAL iW1, iW2 LOCAL cStringa LOCAL cIndRec := cFile + "_rec" LOCAL nHandle LOCAL nSize LOCAL nRead LOCAL nPosRec LOCAL nHead, nRecSize LOCAL nPosStart := 0 LOCAL nPosRecord := 0 LOCAL aPosRec1 := {} LOCAL aPosRec2 := {} LOCAL aString := {} LOCAL ...

Jeff,

Please change this line to see the bytes that are successfully written:

MsgInfo( FWRITE( hDest, cData, nRead ) )

... nPosFin:=0 nLenRec:=55 // largo datos sin CR fseek(nFileMan,0,0) while (nPos1:=fseek(nFileMan,0,1)) < nTBytes cRec:=spac(nLenRec)) nRead:=FREAD( nFileMan, @cRec, nLenRec+2 ) nPos2:=fseek(nFileMan,0,1) //DE AQUI NO PUEDO PASAR, PUES SIEMPRE LEE 0 BYTES, //COMPROBADO CON EMPTY(cRec), ...

... nPosFin:=0 nLenRec:=55 // largo datos sin CR fseek(nFileMan,0,0) while (nPos1:=fseek(nFileMan,0,1)) < nTBytes cRec:=spac(nLenRec)) nRead:=FREAD( nFileMan, @cRec, nLenRec+2 ) nPos2:=fseek(nFileMan,0,1) //DE AQUI NO PUEDO PASAR, PUES SIEMPRE LEE 0 BYTES, //COMPROBADO CON EMPTY(cRec), ...

... STATIC FUNCTION SendFile(cFTPDir,cFile,oFtp,hMon,oInt) //--------------------------------------------------------// LOCAL oFile, h, cBuff, nSize, nRead, nWrite LOCAL lRet := .F. oFile := TFtpFile():New(cFTPDir+cFile,oFtp) oFile:OpenWrite() if oFile:hFile > 0 h := fOpen(cFile) nSize := fSeek(h,0,2) ...

... AS WORD MEMBER nChanType AS WORD MEMBER nPcdBase AS WORD MEMBER nEpsDpi AS WORD MEMBER nEpsWidth AS LONG MEMBER nEpsHeight AS LONG MEMBER nRead AS DWORD MEMBER nTell AS DWORD MEMBER nSeek AS DWORD MEMBER nAlloc AS DWORD MEMBER nFree AS DWORD MEMBER nAllocParm AS DWORD ENDSTRUCT RETURN ...

... la guardo en un campo memo de la siguiente forma: Artic->NomFoto:=aVars[15,2] nHandle:=FOpen(".\Fotos\"+aVars[15,2]) tFile:="" Do While .T. nRead:=FRead(nHandle,@cBuff,255) tFile+=Left(cBuff,nRead) If nRead != 255 Exit EndIf EndDo FClose(nHandle) // Guarda foto en campo memo If Rec_Lock(.5) ...

... FUNC Ureadln( hHandle, cReturn, nLen, lEof, cSkip, cSkipchr ) local cChar := "" , ; lRestline := .F. , ; nRead := 1 IF PCOUNT()<6 cSkipchr = CHR(255) ENDIF IF PCOUNT()<5 cSkip = .F. ENDIF IF PCOUNT()<3 nLen = 1 ENDIF // Init... IF nRead > 1 ...