FOR lncount = 1 TO (N/THIS.lnchunksize) READSIZE=THIS.lnchunksize laBlob1=oRequest.BinaryRead(READSIZE) IF llProgress THIS.updateprogress(oProp.TempName,READSIZE,N) ENDIF IF VERSION(5) < 7 FOR lncount2 = 1 TO THIS.lnchunksize lcInput=m.lcInput+ CHR(laBlob1(lncount2)) &&slows things down!! Sleep(THIS.lnCpuSleep) ENDFOR STRTOFILE(lcInput,oProp.TempFile,.T.) lcInput="" RELEASE laBlob1 DIME laBlob1[THIS.lnchunksize] ELSE Sleep(THIS.lnCpuSleep) && allow processor to do other things STRTOFILE(laBlob1,oProp.TempFile,.T.) lablob1="" ENDIF bytesread=bytesread+READSIZE NEXT READSIZE=N - bytesread IF READSIZE <> 0 laBlob1=oRequest.BinaryRead(READSIZE) IF llProgress THIS.updateprogress(lcTempName,READSIZE,N) ENDIF IF VERSION(5) < 7 FOR lncount = 1 TO READSIZE lcInput=m.lcInput+ CHR(laBlob1(lncount)) &&slows things down!! Sleep(THIS.lnCpuSleep) ENDFOR STRTOFILE(lcInput,oProp.TempFile,.T.) lcInput="" RELEASE laBlob1 ELSE STRTOFILE(laBlob1,oProp.TempFile,.T.) laBlob1="" ENDIF bytesread=bytesread+READSIZE ENDIF IF FILE(oProp.TempFile) lcInput=FILETOSTR(oProp.TempFile) DeleteFile(oProp.TempFile) ENDIF>Hi