Android Question Wrong File/ Contents

RJB · Feb 4, 2018

I have a problem which I've noticed since updating for runtime permissions so I presume it's related.
I'm using:

Dim ADir As String = ""
......
ADir = rp.GetSafeDirDefaultExternal("")
......
rp.GetSafeDirDefaultExternal("Receiver0")
......
etc.

to create folders. Then download jpg files to them. When new files are downloaded the old ones are deleted and the file names re-used, e.g. file0.jpg will have an image, file0.jpg is deleted and a different image is downloaded as file0.jpg.
However on reloading file0.jpg the app continues to show the original image, even though that image (should) no longer exist. I don't think it's the app. Opening the file with 'Photos' first shows the incorrect image, then the correct one, then again the incorrect one on closing. I have a video of this but can't upload it.

Any ideas as to what might cause this? Or how to 'permanently' delete the file so that it's contents can't be wrongly displayed?

KMatle · Feb 5, 2018

This is a normal behaviour as the filesystem does not update at once. I had this while creating pdf's wondering why it shows the "old ine". I think there's a method to do a refresh as you like (can't find it right now)

RJB · Feb 5, 2018

KMatle said:
This is a normal behaviour as the filesystem does not update at once. I had this while creating pdf's wondering why it shows the "old ine". I think there's a method to do a refresh as you like (can't find it right now)

I thought it might be something like that so tried putting a delay (sleep(1000)) but it made no difference. Then I noticed what 'Photos' was doing. I can exit the app, open the file in 'Photos' several minutes later (and get wrong contents - right contents - wrong contents) then go back into the app and still get the wrong contents displayed!! surely the file system should have updated by then? However I would try the refresh but can't find it!

Erel · Feb 5, 2018

It sounds strange. What is the output of Log($"$datetime{File.LastModified}"$) after you download the files?

Where is the code that saves the files?

RJB · Feb 5, 2018

Erel said:
It sounds strange. What is the output of Log($"$datetime{File.LastModified}"$) after you download the files?

Where is the code that saves the files?

Log($...... gives the time of the download, i.e the time you would expect for the new file, not the old one.
The file is downloaded into the 'rp.GetSafeDirDefaultExternal("Receiver0")' folder then renamed to the 'file0.jpg' format:

Code: Copy

RenameFile(FileDetails0,FileDetails1, rpReceiverDir(Receiving), _ 'AdzDir & "/" & Receiver(Receiving), _
        RouteListString(Receiving, FrameNo, FileNameField))

Sub RenameFile(DirSource As String, FileSource As String, DirTarget As String, FileTarget As String) As Boolean
   If FileSource = Null Or FileTarget = Null Or DirSource = Null Or DirTarget = Null Then Return False
   If Not(File.Exists(DirSource, FileSource)) Or File.Exists(DirTarget, FileTarget) Then Return False
 Dim Old As String = File.Combine(DirSource, FileSource)
 Dim New As String = File.Combine(DirTarget, FileTarget)
 Dim ReturnValue As Boolean = False
 If New = Old Then Return False
   Dim R As Reflector, NewObj As Object
        NewObj = R.CreateObject2("java.io.File",Array As Object(New),Array As String("java.lang.String"))
  R.Target = R.CreateObject2("java.io.File",Array As Object(Old),Array As String("java.lang.String"))
  ReturnValue =  R.RunMethod4("renameTo", Array As Object(NewObj), Array As String("java.io.File"))
 File.Delete(DirSource, FileSource)
 If File.Exists(DirSource, FileSource) Then
  Log("exists")
 Else
  Log("does not exist")
 End If
 Return ReturnValue
End Sub

The log at this point says that the file with the downloaded filename no longer exists. There would then be two files in the folder.
When it's time to download the next set of files the folder is cleared with this code which shows something strange!:

Code: Copy

Sub ClearDirectory(DirectoryString As String)
 Try
  Dim FilesToDelete As List
  FilesToDelete.Initialize
  FilesToDelete.AddAll(File.ListFiles(DirectoryString))
  For i = 0 To FilesToDelete.Size -1
   Try
    File.Delete(DirectoryString, FilesToDelete.Get(i))
    Log("File.Combine(DirectoryString, FilesToDelete.Get(i)))
   Catch
    AddToELog("file not deleted: " & DirectoryString & "/" & FilesToDelete.Get(i) & ": " & LastException.Message) '23/7/13
   End Try
  Next
 Catch
  AddToELog("ClearDirectory: " & LastException.Message)
 End Try
End Sub

Now the log lists an additional file, three in total, which is named as the original downloaded filename, i.e. that was renamed above.
The files are apparently all deleted ready for the next download/ rename, as above.
I don't know if it has any bearing on the problem but the image is displayed in a WebView. Would that somehow store the old image?

does any of that help?

Thanks

Erel · Feb 6, 2018

Where is the JobDone code?

RJB · Feb 6, 2018

The jobdone code is:

Code: Copy

public Sub ATPJobDone(job As ATPReturn)
  CallSub(ATPFunctions, "Disconnect")
  ServerLocation = RemoteServer
  Dim Coma As Int
  Coma = job.Name.IndexOf(",")
  FrameType = job.Name.SubString2(0, Coma)
  Dim Code As Int = job.Code.SubString2(0, 3)
  If Code = 200 Then
   If LastDownload.DLFile.ToLowerCase = "index.csv" Then
    LastIndexDate = job.Lastmodified
   End If
   DownloadDone(job.Success, job.name, job.Path, job.FileName, job.Lastmodified, job.Code)
  else If Code = 304 Then
   DownloadDone(job.Success, job.name, job.Path, job.FileName, job.Lastmodified, job.Code)
  else If (Code > 799) And (Code < 900) Then
   DownloadDone(job.Success, job.name, job.Path, job.FileName, job.Lastmodified, job.Code)
  Else
   DownloadDone(job.Success, job.name, job.Path, job.FileName, job.Lastmodified, "403")
  End If
End Sub

within 'DownloadDone' is the call that renames the file as above

Code: Copy

      RenameFile(FileDetails0,FileDetails1, rpReceiverDir(Receiving), _ 
                    RouteListString(Receiving, FrameNo, FileNameField))

RJB · Feb 6, 2018

Further information:

ATPJobdone is called from within ATPFunctions by:

Code: Copy

Sub AStream_NewStream (Dir As String, FileName As String)
'this event is raised when a file was received successfully
ReceiveTimer.Enabled = False
 Try
  FailtimerReset(Stop)
  ReceivingFile = False
  If ReceivingCorrectFile And (ReceiveFile <> "") Then
   ReceiveFile = ""
   ATPInfo.name = RequestName
   ATPInfo.Success = True
   ATPInfo.Code = "200"
   ATPInfo.Path = Dir
   ATPInfo.FileName = FileName
   ATPInfo.LastModified = LastWriteTime
   CallSub2(CallingModule, "ATPJobDone", ATPInfo) 'ok
  Else
   'file not expected or wrong file so discard
   If File.Exists(Dir, FileName) Then
    File.Delete(Dir, FileName)
   End If
   ATPInfo.Success = False
   ATPInfo.name = RequestName
   ATPInfo.Code = "444" 'will be ignored, JD gives 403
   ATPInfo.Path = ""
   ATPInfo.FileName = ""
   ATPInfo.LastModified = LastWriteTime
   CallSub2(CallingModule, "ATPJobDone", ATPInfo) 'not OK, get or getifnewer
  End If
 Catch
  AddToLog("ATP File Receive: " & LastException.Message)
 End Try 
End Sub

Erel · Feb 6, 2018

The first thing to try is to call File.Copy instead of renameTo.

RJB · Feb 6, 2018

Erel said:
The first thing to try is to call File.Copy instead of renameTo.

Same result!
Can I email you a video (only 266KB) which shows the file being opened by 'photos' which, I think indicates that the problem is outside of the app/ b4a?

Erel · Feb 6, 2018

It will not help and it also doesn't mean too much. It is possible that the photos app uses an internal cache. I've never seen a case where the file system returned an old version of the file.

My guess is that the problem is in your code.

RJB · Feb 6, 2018

As mentioned above I am using a WebView to show the image - by creating a file:

Code: Copy

  File.WriteString(rpDIRoot, "index.html", _
    "<html>" & CRLF & _
    "<style type=""text/css"">" & CRLF & _
    "<!--"  & CRLF & _
    "body {" & CRLF & _
    "background-image: url(" & DIImagePath & ");" & CRLF & _
    "background-repeat: no-repeat;"  & CRLF & _
    "background-size: 100% 100%;" & CRLF & _
    "}" & CRLF & _
    "-->" & CRLF & _
    "</style>" & CRLF & _
    "</body>" & CRLF & _
    "</html>")

then loading the url to the webview.
If I load the image to an imageview immediately before loading the url then the imageview always shows the correct image. The webview however doesn't.
I've tried loading the image as the .background for the webview instead using:

Code: Copy

  Dim bd As BitmapDrawable
  bd.Initialize(LoadBitmapSample("", DIImagePath, 400,300))
  bd.Gravity = Gravity.FILL
 DirectInputViewer(DINumber).Background = bd
  DirectInputViewer(DINumber).Invalidate

but this doesn't seem to work.
Maybe I'll have to give up on the image display!!

Erel · Feb 7, 2018

This thread is very confusing. You should have posted all the relevant information in the first post.

If the ImageView shows the correct image then there is no doubt that the file was created successfully.

For further discussion please start a new thread with the relevant information and the problem.

RJB · Feb 7, 2018

It is very confusing!
Two new threads:
WebView not updating correctly?
and
Unable to set WebView background

RJB · Feb 7, 2018

For anyone who reads this in future:
This was caused by the Webview loading from the cache instead of the file/ html.

This code:
Code:
Dim r As Reflector
r.target = WebView1
r.runmethod2("clearCache","True", "java.lang.boolean")
from: https://www.b4x.com/android/forum/threads/clear-webview-cache.10382/#post-65532, run before the load did the trick!

Android Question Wrong File/ Contents

RJB

Active Member

KMatle

Expert

RJB

Active Member

Erel

B4X founder

RJB

Active Member

Erel

B4X founder

RJB

Active Member

RJB

Active Member

Erel

B4X founder

RJB

Active Member

Erel

B4X founder

RJB

Active Member

Erel

B4X founder

RJB

Active Member

RJB

Active Member

Similar Threads